Program Kalkulator Menggunakan Delphi 7.0

Cara Membuat Kalkulator Menggunakan Program Delphi 7.0
From : http://www.atiefprogramer.blogspot.com

NO	TOOLBOX	PROPERTIES
1.	Label1	Caption  : Nama Judul Name     : Label 1
2.	Label2	Caption  : Data 1 Name     : Label 2
3.	Label3	Caption  : Data 2 Name     : Label 3
4.	Edit1	Text       : Dikosongkan Name     : EdData1
5.	Edit2	Text       : Dikosongkan Name     : EdData2
6.	Edit3	Text       : Dikosongkan Name     : EdData3
7.	Button1	Caption  : Kali Name     : BtnKali
8.	Button2	Caption  : Bagi Name     : BtnBagi
9.	Button3	Caption  : Tambah Name     : BtnTambah
10.	Button4	Caption  : Kurang Name     : BtnKurang
11.	Button5	Caption  : Keluar Name     : BtnKeluar

Listing Program:

procedure TForm1.btnKaliClick(Sender: TObject);
begin EdHasil.Text:=FloatTostr(strToFloat(EdData1.Text)*strToFloat(EdData2.Text));
end;

procedure TForm1.btnBagiClick(Sender: TObject);
begin
EdHasil.Text:=FloatTostr(strToFloat(EdData1.Text)/strToFloat(EdData2.Text));
end;

procedure TForm1.btnTambahClick(Sender: TObject);
begin
EdHasil.Text:=FloatTostr(strToFloat(EdData1.Text)+strToFloat(EdData2.Text));
end;

procedure TForm1.btnKurangClick(Sender: TObject);
begin
EdHasil.Text:=FloatTostr(strToFloat(EdData1.Text)-strToFloat(EdData2.Text));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

Semoga Program Kalkulator ini bisa bermanfaat untuk kalian semua Amin.....!!!
Ingat Sebelum Mencobanya baca Bismillah ya...!!!

free music at divine-music.info