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.
Docly Documentation 
Gullu Knowledge Base 
Rogan Documentation 
Sample User Guide 