Cara membuat kalkulator dengan delphi 7

pada postingan kali ini saya akan menuliskan sedikit tentang bagaimana cara membuat kalkulator sederhana dengan menggunakan aplikasi delphi.....

Buat para pembaca yang berminat pebngen nyobain buat kalkulator seperti gambar diatas,berikut langkah - langkahnya :

1. Buat Form baru terlebih dahulu,kemudian letakkan 1 buah Panel yang berada  

2. Pada tab standard, buat 6 button dan 3 label.

3. Setelah itu atur letak kesemuanya seperti terlihat pada gambar diatas dan ganti name dan captionnya.

Nah sekarang pembaca tinggal meletakkan sedikit coding pada masing masing button tersebut.berikut cara peletakannya :

1. Klik 2x pada button “ + “,kemudian paste kode berikut :

var a,b,c:integer;
begin
a:=strtoint(angka1.text);
b:=strtoint(angka2.text);
c:=a+b;
hasil.Text:=inttostr(c);
end;

2. Pada button “ –“ klik 2x dan paste code berikut :

var a,b,c:integer;
begin
a:=strtoint(angka1.text);
b:=strtoint(angka2.text);
c:=a-b;
hasil.Text:=inttostr(c);
end;

3. Klik 2 x pada button “ / “, kemudian paste code berikut :

var a,b,c:integer;
begin
a:=strtoint(angka1.text);
b:=strtoint(angka2.text);
c:=a div b;
hasil.Text:=inttostr(c);
end;

4. Pada operasi perkalian,paste code berikut :

var a,b,c:integer;
begin
a:=strtoint(angka1.text);
b:=strtoint(angka2.text);
c:=a*b;
hasil.Text:=inttostr(c);
end;

5. Untuk button “C” paste lagi code berikut : 

begin
angka1.text:=' ';
angka2.text:=' ';
hasil.text:=' ';
end;

6. Sedangkan untuk button “KELUAR” anda hanya tinggal menambahkan code berikut
“ close ; “ tanpa tanda kutip.

7. Nah selesai sudah...sekarang coba anda running program yang sudah anda buat
tadi..mudahan berhasil..hehehheee