Cara Membuat Kalkulator dengan Delphi7

     Contoh program sederhana Membuat kalkulator dengan delphi7, ini adalah salah satu program sederhana yang saya dapatkan saat praktek industri atau PKL walau belajar secara otodidak hanya melihat buku yang di berikan oleh  salah satu pegawai  tempat saya PI tapi tetap bersyukur,
alhamdulillah saya dapat ilmu baru..hehehe ^_^ hehehe.. sedikit tau tentang delphi lah...hehehe..,

nah bagi yang ingin membuatnya silahkan lihat di bawah ini :

1.Buka Program Delphi7

2.Kemudian tambahkan pada Form andan 4 Label, 3 Edit, 6 Button lalu buat desain form seperti di bawah ini :

3. Kemudian masukkan kode atau listing program seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
nil1,nil2:real;
Tambah:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
tambah :=nil1 + nil2;
Edit3.Text := floattostr(tambah);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
nil1,nil2:real;
Kurang:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Kurang :=nil1 - nil2;
Edit3.Text := floattostr(kurang);
end;

procedure TForm1.Button3Click(Sender: TObject);
 var
nil1,nil2:real;
Kali:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Kali :=nil1 * nil2;
Edit3.Text := floattostr(Kali);

end;

procedure TForm1.Button4Click(Sender: TObject);
var
nil1,nil2:real;
Bagi:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Bagi :=nil1 / nil2;
Edit3.Text := floattostr(Bagi);

end;



procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Close
end;

end.

4. save Program anda lalu jalankan program., Run pilih start atau tekan F9.., 

   Selamat mencoba.....^_^..,