Membuat Kalkulator Sederhana Dengan Delphi7

Assalamu'alaikum Wr.Wb...
Selamat datang di Blog Anak Ujung Gading...
OK agan semua, kali ini kita akan sedikit membahas tentang Delphi 7 (kulit nya ajah... hehehe).
LAnsung saja, pada pertemuan ini kita akan mencoba membuat kalkulator sederhana dengan delphi 7.
langkah nya adalah:
1. Buka Borland Delphi yang sudah terinstal di PC kita pastinya dengan cara Klik Start > All Program > Delphi7

2.  Buat Projek baru dengan cara klik File > New >
Application sehingga muncul tampilan sebagai berikut!

3. Tambahkan 1 panel dari palet standart kedalam form, kemudian hapus properties captionnya, dan properties name nya akan otomatis menjadi Panel1.
4. Masukkan 4 buah Radio Button ke Panel 1 tadi, ubah Properties Caption masing- masing nya menjadi
RB 1= Perkalian, RB2= Pembagian, RB 3= Penjumlahan, RB4= Pengurangan seperti ini:

5.  Tambahkan 1 buah Button dari Palet Standard ke dalam Panel 1, ubah Properties Name nya menjadi Close atau tutup. (terserah dah).
6.  Tambahkan 4 buah Panel lagi, Kosongkan Properties Captionnya kemudian setting Align masing- masingnya nya menjadi "Altop" dan Properties Visible nya menjadi "false".
7.  Tambahkan 3 buah Edit dari palet standar ke dalam masing- masing Panel (panel 2, 3, 4, dan 5) secara berurutan, kosongkan Properties Text nya.
8.  Tambahkan 2 buah Button (masih dari pallet standar) kedalam masing- masing Panel (panel 2, 3, 4, dan 5) secara berurutan, Ubah Properties Caption nya menjadi Hasil (button pertama) dan Back (button ke dua), hingga hasil akhirnya seperti ini.

9.  Yang terakhir tambahkan 1 buah Button ke dalam masing- masing panel, ubah properties captionnya menjadi Reset. lihat gambar !!!

10.  OK . . . Proses Design dah selesai, Selanjutnya tinggal Ngekoding.
double klik Button Close pada Panel 1, diantara Begin dan End; pastekan kode "Close;" ( tanpa tanda kutip).

11. Double Klik Button Back pada panel 2 lalu pastekan kode diantara Begin dan End;
panel1.Show;
panel2.Hide;

12.  Double Klik pada Button Hasil pada Panel 2, lalu pastekan kode berikut

var
a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a*b;
edit3.Text:=floattostr(c);
end;

13.  Double Klik pada Button Reset pada Panel 2 dan pastekan kode berikut!
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.SetFocus;

14.  Untuk kode selengkapnya silakan klik di sini kemudian pastekan ke sourchkode form.
15.  Selesaiii...
Klik di sini untuk proyek yang saya buat. masih amburadul sih.. (maklumlah, baru pemula, :D).

Jangan Lupa tinggalin Kritikan nya eah!!!