Membuat Kalkulator dengan Delphi 7

Program-program dasar untuk melatih penggunaan operator penghitungan untuk program Borland Delphi 7. Membuat kalulator sederhana pada delphi 7 sangatlah mudah apabila Anda sudah terbiasa. Agar sobat lebih terbiasa lagi yuk kita latihan buat calculator sederhana ini. Berikut tutorial membuat sebuah applikasi penghitung kalkulator :

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. 
    2. 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 :

    procedure TForm1.Button2Click(Sender: TObject);
    var x,y,z : real;
    begin
      x:=StrToFloat(Edit1.Text);
      y:=StrToFloat(Edit2.Text);
      z:=x-y;
      Edit3.Text:=FloatToStr(z);
    end;

  3. 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 :

    procedure TForm1.Button3Click(Sender: TObject);
    var x,y,z : real;
    begin
      x:=StrToFloat(Edit1.Text);
      y:=StrToFloat(Edit2.Text);
      z:=x*y;
      Edit3.Text:=FloatToStr(z);
    end;

  4. 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 :

    procedure TForm1.Button4Click(Sender: TObject);
    var x,y,z : real;
    begin
      x:=StrToFloat(Edit1.Text);
      y:=StrToFloat(Edit2.Text);
      z:=x / y;
      Edit3.Text:=FloatToStr(z);
    end;

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