Pemrograman Kalkulator Sederhana Menggunakan Delphi7

Teman, kalian tau kan Kalkulator itu seperti apa ? Gunanya untuk apa ? Kalian tau ga bagaimana kita membuat kalkulator itu ? Kali ini aku ingin berbagi sedikit ilmu tentang bagaimana membuat kalkulator sederhana menggunakan Delphi7.

Yang pertama, Siapkan beberapa Komponen sebagai berikut :

No	Komponen	Name	Text	Caption
1	Edit1	edt1	-	-
2	Edit2	edt2	-	-
3	Label1	Label1	-	Nilai 1
4	Label2	Label2	-	Nilai 2
5	Label3	lblHasil	-	-
6	RadioButton1	rdTambah	-	+
7	RadioButton2	rdKurang	-	-
8	RadioButton3	rdKali	-	x
9	RadioButton4	rdBagi	-	/

Selanjutnya buat tampilan form user interface seperti ini :

Trus tuliskan listing pada masing-masing RadioButton Berikut :

procedure TForm1.rdTambahClick(Sender: TObject);
var Hasil:Real;
beginHasil:= StrToFloat(edt1.Text) + StrToFloat(edt2.Text);
lblHasil.Caption := FloatToStr(Hasil);
end;

procedure TForm1.rdKurangClick(Sender: TObject);
var Hasil:Real;
beginHasil:= StrToFloat(edt1.Text) - StrToFloat(edt2.Text);
lblHasil.Caption := FloatToStr(Hasil);
end;

procedure TForm1.rdKaliClick(Sender: TObject);
var Hasil:Real;
beginHasil:= StrToFloat(edt1.Text) * StrToFloat(edt2.Text);
lblHasil.Caption := FloatToStr(Hasil);end;

procedure TForm1.rdBagiClick(Sender: TObject);
var Hasil:Real;
beginHasil:= StrToFloat(edt1.Text) / StrToFloat(edt2.Text);
lblHasil.Caption := FloatToStr(Hasil);
end;

Kalau sudah, coba Run (F9) .

Isikan nilai kedalam masing-masing kotak, kemudian Klik salah satu RadioButton. Dan lihat hasilnya . . .

Penjumlahan

Perkalian

Selamat mencoba dan berkarya buat calon - calon programmer Software Enginerring.