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;
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
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.
