teman teman bagai mana ya untuk pengoperasian apabila saya mau bilangan diantara = 0 sampai= 3 saja yang saya mau setting, untuk diluar itu ada message error, tolong ya, misal saya set angka 3 dimana misal A=3,maka edit.text:= 4 +A akan menunjukan angka 7 tapi apabila saya masukan angka 4 yang seharusnya nilai 8 ada mesage error begitupun dengan angka 0, akan menunjukkan bil operasi, tapi apabila saya tulis 4 maka message error yang keluar , terima kasih banyak

xixix bingung nih :D

diperjelas dung masalahnya.... yar yang mau bantuin ga bingung.... liat tuch... bung DelphiExpert ja kebingungan.... xixixixixix....

uses idGlobal; onKeyPress(..) if not(key in ['1','2','3',BACKSPACE]) then key:=CHAR0;

maka edit.text:= 4 +A

ya error lha wong integer kok di tambah string...

Ikut bingung ah!

Mungkin bahasa andriyanto harus diperbaiki agar forum ini ngerti maksud-nya :)

Yuhuuuuuu ooo tau tau maksudnya.. gini ya : kamu mau bilangan diantara 0=<X<=3 dan bilangan X itu mau dioperasikan bebas ya,terus bilangan yang berada diluar jangkauan X apabila dioperasikan akan muncul fungsi error ? misal: X=1 jadi (4 + X =5...benar) misal: X=4 jadi (1 + X =5...error) so.. procedure TForm1.Button1Click(Sender: TObject); var x:real; y:real; z:real; begin x:=StrToFloat(edit1.Text) ; if (x>=0) and (x<=3) then begin y:=strtofloat(edit2.Text); z:=x+y; edit3.Text:=FloatToStr(z); end else ShowMessage('error'); end; end. Muddah2an kayak gini ya maksudnya hehehe adik tingkatnya bosenjadiprogrammer

seep mendukung.. kita satu kantor..wekekek satu almamater juga.. musibah bagi kantor yang membayar kita berdua, wekekekke. :twisted:

kemaren mau posting.. di lock, eh skrg can post dah di jawab ma ksatria.. well idem deh... yang rukun ya... jgn berantem... kekekek...