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
0 Comments
Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi