Kalkulator Sederhana Menggunakan Delph7

BlogPemrograman : Pada pembahasan pertama tentang pemrograman delphi, saya akan memberikan atau pun berbagi sedikit ilmu bagaimana kita membuat sebuah kalkulator sederhana menggunakan delphi7 sebagai bahasa programmingnya. Saya anggap sobat semua sudah mengerti dan memahami tentang bagian-bagian, komponen-komponen dan lembar kerja delphi. Yang terpenting adalah sobat sudah menginstall program delphinya. Setelah semuanya siap, mari kita lanjutkan ke pembahasan selanjutnya.

Pertama siapkan komponen-komponen berikut ini :

No	Komponen	Name	Text	Caption
1	Text1	txtSatu	0	-
2	Text2	txtDua	0	-
3	Label1	lblHasil	-	0
4	Button1	cmdTambah	-	+
5	Button2	cmdKurang	-	-
6	Button3	cmdKali	-	x
7	Button4	cmdBagi	-	/
8	Button5	cmdClear	-	&Clear

Kemudian Buat Sebuah Form User Interface seperti ini :

Ketikkan listing berikut pada masing-masing tombol dengan cara doble klik pada tombol.

Tombol Tambah (cmdTambah )

procedure TForm1.cmdTambahClick(Sender: TObject);

var

  satu,dua:real;

begin

  satu:= StrToFloat(txtSatu.Text);

  dua:= StrToFloat(txtDua.Text);

  lblHasil.Caption:= FloatToStr(satu+dua);

end;

Tombol Kurang ( cmdKurang )

procedure TForm1.cmdKurangClick(Sender: TObject);

var

  satu,dua:real;

begin

  satu:= StrToFloat(txtSatu.Text);

  dua:= StrToFloat(txtDua.Text);

  lblHasil.Caption:= FloatToStr(satu-dua);

end;

Tombol Kali ( cmdKali )

procedure TForm1.cmdKaliClick(Sender: TObject);

var

  satu,dua:real;

begin

  satu:= StrToFloat(txtSatu.Text);

  dua:= StrToFloat(txtDua.Text);

  lblHasil.Caption:= FloatToStr(satu*dua);

end;

Tombol Bagi ( cmdBagi )

procedure TForm1.cmdBagiClick(Sender: TObject);

var

  satu,dua:real;

begin

  satu:= StrToFloat(txtSatu.Text);

  dua:= StrToFloat(txtDua.Text);

  lblHasil.Caption:= FloatToStr(satu / dua);

end;

Tombol Clear ( cmdClear )

procedure TForm1.cmdClearClick(Sender: TObject);

begin

  txtSatu.Text:= '';

  txtDua.Text := '';

  lblHasil.Caption := '0';

  txtSatu.SetFocus;

end;

Silahkan Jalankan, masukkan sebuah angka dan klik salah satu tombolnya kemudian amati hasilnya ...