Kalkulator Delphi

Nah setelah potingan kemarin yang tentang variabel dan tipe data pada Delphi itu,,sekarang mari kita implementasikan penggunaannya pada sebuah aplikasi Kalkulator sederhana,, yo men lets start it,,, buka borland Delphimu men....
oke sekarang bentuk Formnya kaya gene neh

and So :o begini loh listing programnya,,,,,,

Sebelumnya beri variabel globalnya dulu dengan
var
Form1: TForm1;
a,b,c: real;
x,y,z: integer;
saya beri kode buat tombol perhitungannya saja yah :$
ini untuk tombol perkalian
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=a*b;
edit3.Text:=floattostr(c);
end;
# strtofloat adalah fungsi unutk mengubah data yang berbentuk string menjadi floating point(real)
# sedangkat floattostr adalah sebaliknya,dari floating menjadi string

untuk tombol pembagian tinggal ganti c:=a*b; nya menjadi c:=a/b; begitu pula penjumlahan c:=a+b; dan pengurangan c:=a-b; namun untuk fungsi mod, kita tidak memakai strtofloat tapi strtoint sehingga seperti inilah rumusnya x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
z:=(x mod y);
edit3.Text:=inttostr(z);
# sama inttostr juga yaitu mengubah nilai integer menjadi string
# dan strtoint dari string ke integer
makanya di atasnya juga var nya beda hehehe :$ :$
dan untuk fungsi pangkat adalah c:=exp(b*ln(a));

Posted in: Delphi