Membuat Kalkulator Sederhana dengan RadioGroup di Delphi 7

Hai semua, pada kesempatan kali ini saya akan membagikan cara membuat kalkulator sederhana dengan memanfaatkan RadioGroup. Pertama mari kita siapkan dulu bahan-bahannya.

1.  Buat 3 Label, ganti caption menjadi Nilai 1, Nilai 2 dan Hasil.

2.  Buat 3 Edit, kosongkan caption, pasangkan Edit1 dengan Nilai 1, Edit2 dengan Nilai 2 dan Edit3 dengan Hasil.

3.  Buat 2 Button, ganti caption menjadi Hitung dan Keluar.

4.  Buat 1 RadioGroup, ganti caption misal Perhitungan.

     Pada Properties - Items klik pada tombol titik 3, tambahkan listnya.

5.  Klik dua kali button Hitung, kemudian masukkan kode berikut di atas begin.

var
n1,n2,h:real;

6.  Masih dalam button Hitung, tambahkan kode berikut di dalam begin.

n1:=StrToFloat(Edit1.text);
n2:=StrToFloat(Edit2.Text);
if RadioGroup1.ItemIndex=0 then
h:=n1+n2
else if RadioGroup1.ItemIndex=1 then
h:=n1-n2
else if RadioGroup1.ItemIndex=2 then
h:=n1/n2
else
h:=n1*n2;
Edit3.Text:=FloatToStr(h);

Untuk menambahkan pesan peringatan gunakan kode berikut:

ShowMessage('Pesan Peringatan');

7.  Kemudian klik dua kali button Keluar, tambahkan kode berikut di dalam begin.

close;

8.  Done.


Sekian. Semoga Bermanfaat.