Membuat Kalkulator Sederhana dengan Delphi 7

Untuk membuat Kalkulator dengan Pemograman Delphi, maka dapat kita lakukan beberapa langkah berikut :
1. Jalankan Delphi

2. Setelah muncul Form baru pada halaman Delphi maka tambahkan icon pada halaman form1 :

• Button1, Button2, Button3, Button4
• label1, label2, label3, label4,
• edit1,edit2, edit3  

4. Atur property Caption berbagai icon tersebut pada object inspector.
3. Contoh  tampilan form yang telah saya buat berbentuk seperti gambar berikut :

4. Selanjutnya klik 2x pada button1(Penjumlahan(+)), tuliskan kode program berikut :
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
c:=a+b;
edit3.text:=floattostr(c);
end;


5. Lanjutkan dengan klik 2x pada button2(Pengurangan(-)), dan tulis kode programnya :
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
c:=a-b;
edit3.text:=floattostr(c);
end;


6. Selanjutnya klik 2x pada button3 (Perkalian (x)), dan tulis kode program di bawah ini:
procedure TForm1.Button3Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
c:=a*b;
edit3.text:=floattostr(c);
end;


7. Dan terakhir klik 2x pada button4, tulis lagi kode di bawah :
procedure TForm1.Button4Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
c:=a/b;
edit3.text:=floattostr(c);
end;
end.


8. Eksekusikan program di atas dengan menekan tombol (F9).


note : untuk ''.end'' nya di perhatikan, jangan sampai terhapus. kalau gak, programnya tidak bisa jalan.