Membuat kalkulator sederhana dengan program delphi7

Hi sobat blogger kali ini saya mau posting cara membuat kalkulator sederhana dengan program delphi7, berikut langkah langkahnya :

• Buka aplikasi delphi7
• klik icon 'panel' pada menu utama kemudian klik sekali pada kolom form1
• pada kolom object inspector pilih menu align kemudian ganti dari 'AlNone' jadi 'Alclient'
• klik icon 'edit' pada menu utama kemudian klik sekali pada kolom form1 dan ubah ukuran kotak sesuai dengan keinginan anda (kotak ini yang akan dijadikan kolom dari hasil hitungan kalkulator)
• pada kolom object inspector pilih menu teks dan hapus tulisan 'edit1', kemudian pilih menu ReadOnly dan ganti 'false' menjadi 'true'
• klik icon 'button' pada menu utama kemudian klik sekali pada kolom form1 dan ubah kotak sesuai dengan keinginan anda (kotak ini yang akan dijadikan tombol pada kalkulator).
• pada kolom object inspector pilih menu caption dan ubah nama 'button1' menjadi angka 1.ulangi langkah diatas tapi dengan nama caption yang berbeda (1,2,3,4,5,6,7,8,9,0,+,-,x,/,c,=), .
• klik dua kali pada tombol angka 1 dan masukkan perintah berikut dibawah begin (besar kecil huruf berpengaruh karena ini termasuk program pascal):

Edit1.Text:=Edit1.Text+’1’;

• masukkan perintah berikut dibawah begin pada tombol hapus :

Edit1.Text:=‘’;

• masukkan perintah berikut dibawah begin pada tombol tambah :

a:=StrToFloat (Edit1.Text);

tambah:=1;Edit1.Text:=‘’;

• masukkan perintah diatas pada tombol(sesuaikan perintah ''tambah' dengan tombol).
• masukkan perintah berikut dibawah 'var Form1' pada tombol samadengan :

a,b,c : real;

tambah,kurang,kali,bagi : integer;

• masukkan perintah berikut dibawah begin pada tombol samadengan :

b:StrToFloat (Edit1.Text);

if (tambah > 0) then

begin

c:=a+b;Edit1.Text:=floattostr(c);

a:=0;

b:=0;

tambah:=0;

end;

if (kurang > 0) then

begin

c:=a-b;

Edit1.Text:=floattostr(c);

a:=0;

b:=0;

kurang:=0;

end;

if (kali > 0) then

begin

c:=a*b;Edit1.Text:=floattostr(c);

a:=0;

b:=0;

kali:=0;

end;

if (bagi > 0) then

begin

c:=a/b;

Edit1.Text:=floattostr(c);

a:=0;

b:=0;

bagi:=0;

end;

• klik icon run pada manu utama untuk mencobanya.