Kalkulator Delphi #12

andrypein.net : Nah setelah potingan kemarin yang tentang variabel dan tipe data pada Delphi itu, sekarang mari kita implementasikan penggunaannya pada sebuah aplikasi Kalkulator delphi sederhana.

Bentuk formnya sederhana dan mudah dimengerti saja.

Penampakan kalkulator delphi :

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));

dan maklumi saja karena tidak seperti kalkulator tampan lainnya, namanya juga sederhana.

(*AFK)