Cara Membuat Kalkulator Sederhana Menggunakan Borland Delphi 7

Pertama-tama langkah yang harus dilakukan untuk membuat program Kalkulator Sederhana di Borland Delphi 7 yaitu mendesain form dengan menggunakan tombol edit, button, dan panel,  seperti gambar dibawah ini :

Ket :

Untuk yang paling atas(kotak putih) itu menggunakan Edit

Untuk angka 1,2,3 sampai sama dengan (=) itu menggunakan Button

Dan untuk yang paling besar / warna silver itu menggunakan Panel.

Setelah membuat Form seperti di atas selanjutnya kita menuju langkah berikutnya.

Dan langkah langkahnya sebagai berikut :

1. Pada Edit1 ubah ReadOnly menjadi True maksudnya adalah agar Edit1 tidak berupa inputan dari keyboard. caranya silahkan klik Edit1-> cari ‘ReadOnly’ pada Object Inspector -> klik tulisan False -> silahkan di ganti True.

2. Kemudian double click pada button 1(angka 1), lalu ketik kode berikut ini :

begin

Edit1.Text:=Edit1.Text+'1';

end;

3. Kemudian double click pada button 2 (angka 2), lalu ketik kode berikut ini :

begin

Edit1.Text:=Edit1.Text+'2';

end;

4. Lakukan hal yang sama pada Button 3 - 0. untuk angka 0 silahkan pada kode di ganti dengan 10. Seperti ini :

begin

Edit1.Text:=Edit1.Text+'10';

end;

 

5. Kemudian double click pada button C, lalu ketik kode berikut ini :

begin

Edit1.Text:='';

end;

Button C berguna untuk menghapus.

6. Kemudian tambahkan kode berikut ini dibagian var :

var

  Form1: TForm1;

  a,b,c : real;

  tambah,kurang,kali,bagi : integer;

7. Kemudian double click pada button +, lalu ketik kode berikut ini :

begin

a:=StrToFloat(Edit1.Text);

tambah:=1;

Edit1.Text:='';

end;

 

8. Begitu juga selanjutnya untuk Button -, X dan /.

Double click pada button -, X dan / ketikan kode seperti diatas, dan hanya diubah dibagian tambah:=1; menjadi kurang:=1; pada button - , dan seterusnya.

Contoh :

Pada Button - (Kurang) :

begin

a:=StrToFloat(Edit1.Text);

kurang:=1;

Edit1.Text:='';

end;

9. Kemudian double click pada Button =, lalu ketikan kode berikut ini :

begin

b:=StrToFloat(Edit1.Text);

if (tambah > 0) then

begin

  c:=a+b;

  Edit1.Text:=FloatToStr(c);

  a:=0;

  b:=0;

  tambah:=0;

end;

if (kurang > 0) then

begin

  c:=a-b;

  Edit1.Text:=FloatToStr(c);

  a:=0;

  b:=0;

  kurang:=0;

end;

  
if (kali > 0) then
begin

  c:=a*b;

  Edit1.Text:=FloatToStr(c);

  a:=0;

  b:=0;

  kali:=0;

end;

if (bagi > 0) then

begin

  c:=a/b;

  Edit1.Text:=FloatToStr(c);

  a:=0;

  b:=0;

  bagi:=0;

end;

end;

end.

Oke, Sekian postingan saya pada hari ini, semoga bermanfaat bagi kalian semua. Apabila ada kekurangan dalam postingan saya ini silahkan Komentar di bawah.