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.

Comments

Leave a Reply

Your email address will not be published. Required fields are marked *