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


Post a Comment

0 Comments