Cara membuat kalkulator sederhana menggunakan borland delphi v.7

Dengan menggunakan delphi versi 7..karna saya juga belajarnya pakai versi 7,makanya saya juga buat programnya pakai versi 7.
Buat para pembaca yang berminat pebngen nyobain buat kalkulator, berikut

langkah - langkahnya :
1. Buat Form baru terlebih dahulu,kemudian letakkan 1 buah Panel yang berada pada tab standard
2. Seletah itu,pada tab properties hilangkan caption panel tersebut, dan kemudian pada warna panel pilih “clGradientInactiveCaption”.
3. Kemudian masih pada tab standard letakkan 6 buah button,4 buah data edit dan 4 buah label.
4. Setelah itu atur letak kesemuanya seperti terlihat pada gambar diatas, Nah sekarang pembaca tinggal meletakkan sedikit coding pada masing masing button tersebut.berikut

cara peletakannya :

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

b1:integer;

b2:integer;

jml:integer;

begin

b1:=StrToInt(Eb1.Text);

b2:=StrToInt(Eb2.Text);

jml:=b1+b2; ///operasi penambahan

Ejml.text:=FloatToStr(jml);

End;

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

b1:integer;

b2:integer;

jml:integer;

begin

b1:=StrToInt(Eb1.Text);

b2:=StrToInt(Eb2.Text);

jml:=b1-b2; //operasi pengurangan

Ejml.text:=FloatToStr(jml);

end;

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

b1:integer;

b2:integer;

jml:integer;

begin

b1:=StrToInt(Eb1.Text);

b2:=StrToInt(Eb2.Text);

jml:=b1 div b2;

Ejml.text:=FloatToStr(jml);

end;

4. Pada operasi perkalian,paste code berikut :

b1:integer;

b2:integer;

jml:integer;

begin

b1:=StrToInt(Eb1.Text);

b2:=StrToInt(Eb2.Text);

jml:=b1*b2;

Ejml.text:=FloatToStr(jml);

end;

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

begin

Eb1.Text:='0';

Eb2.Text:='0';

Ejml.Text:='0';

end;

6. Sedangkan untuk button “KELUAR” anda hanya tinggal menambahkan code berikut

“ close ; “ tanpa tanda kutip.

Untuk lebih jelasnya silahkan download pada link berikut : Download

Tweet

Subscribe to receive free email updates: