Membuat Kalkulator Sederhana Dengan Delphi7

Post On: 1 April 2019
April 1, 2019

Tutorial sederhana membuat kalkulator menggunakan Delphi7. Ini adalah tutorial paling sederhana, dan mungkin kedepan akan saya tambahin atau saya ubah menjadi lebih baik lagi. Lets gooo..

  1. Buka aplikasi Dephi7 ente dan buat form baru.
  2. Tambahkan 2 buah Edit 3 buah Label dan 4 buah button.
  3. Seperti gambar di bawah ini.

4. Tambahkan Kode
Kode untuk button1(Tambah) :
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1+angka2;
label1.caption := floattostr(hasil);
end;


Kode untuk button2(Kurang) :
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1-angka2;
label1.caption := floattostr(hasil);
end;


Kode untuk Button3 (Kali) :
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1*angka2;
label1.caption := floattostr(hasil);
end;


Kode untuk button4 (Bagi) :
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1/angka2;
label1.caption := floattostr(hasil);
end;

5. Jalankan program. Done.

Download Link Source Kalkulator.rar

Tags: , ,

Related to Membuat Kalkulator Sederhana Dengan Delphi7