MEMBUAT KALKULATOR SEDERHANA MENGGUNAKAN DELPHI 7 / 2010

Kali ini saya akan share cara membuat kalkulator sederhana menggunakan aplikasi delphi 2010. kalkulator ini dapat mengoperasikan perhitungan penambahan, pengurangan, pembagian dan perkalian.

contoh screenshot kalkulator :

contoh coding  penambahan :

 

procedure TForm1.BitBtn1Click(Sender: TObject);

Var

X, Y : Integer;

Z : Real;

begin

if not (edit1.Text <>'') or not (edit2.Text <>'')  then

begin

Application.MessageBox('Nilai Masih ada Yang Belum di masukan!!! Silahkan Cek Kembali','Peringatan',

mb_Ok + Mb_IconExclamation);

edit1.SetFocus;

exit;

end;

X := strtoint(Edit1.Text);

Y := strtoint(Edit2.Text);

Z := X + Y;

Edit3.Text := Floattostr(Z);

end;

untuk proses pengurangan, perkalian dan pembagian hanya dirubah pada simbol + nya saja, 

untuk program nya : DOWNLOAD DISINI

 
note : klik SKIP AD untuk melanjutkan ke link download