Program Kalkulator sederhana menggunakan Delphi 7

Program Kalkulator sederhana menggunakan Delphi 7

Program-program dasar untuk melatih penggunaan operator penghitungan untuk program Borland Delphi 7. Program delphi ini adalah sebuah kalkulator sederhana yang berisi penjumlahan, pengurangan, perkalian, dan pembagian untuk dua bilangan.

Komponen-komponen yang dibutuhkan untuk pembuatan program :

1. 2 buah Tlabel
2. 3 buah Tedit
3. 4 buah Tbutton

Komponen dapat disusun seperti gambar berikut :

Untuk script hanya di masukkan ke dalam Tbutton :

1. Klik dua kali button + dengan nama default button1. Dan akan muncul jendela baru dan berikan command/script seperti berikut. 

Dan berikut source code untuk button1 untuk penjumlahan :

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z : real;

begin

  x:=StrToFloat(Edit1.Text);

  y:=StrToFloat(Edit2.Text);

  z:=x+y;

  Edit3.Text:=FloatToStr(z);

end;

Keterangan variabel x,y,z di deklarasikan sebagai variabel non-global. Dan digolongkan ke dalam type data real.

2. Klik dua kali button - dengan nama default button2. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button2 untuk pengurangan :

3.   

4.  procedure TForm1.Button2Click(Sender: TObject);

5.  var x,y,z : real;

6.  begin

7.    x:=StrToFloat(Edit1.Text);

8.    y:=StrToFloat(Edit2.Text);

9.    z:=x-y;

10.  Edit3.Text:=FloatToStr(z);

end;

11. Klik dua kali button * dengan nama default button3. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button3 untuk perkalian :

12. 

13.procedure TForm1.Button3Click(Sender: TObject);

14.var x,y,z : real;

15.begin

16.  x:=StrToFloat(Edit1.Text);

17.  y:=StrToFloat(Edit2.Text);

18.  z:=x*y;

19.  Edit3.Text:=FloatToStr(z);

end;

20. Klik dua kali button / dengan nama default button4. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button4 untuk pembagian :

21. 

22.procedure TForm1.Button4Click(Sender: TObject);

23.var x,y,z : real;

24.begin

25.  x:=StrToFloat(Edit1.Text);

26.  y:=StrToFloat(Edit2.Text);

27.  z:=x / y;

28.  Edit3.Text:=FloatToStr(z);

end;

Setelah itu klik toolbar->Run->Run(F9) atau pencet shortcut F9 untuk melakukan proses running program.