Membuat Kalkulator Sederhana Delphi

Kali ini kita akan membuat sebuah kalkulator sederhana dengan delphi 7. berikut gambarnya...





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
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.
7. Nah selesai sudah...sekarang coba anda running program yang sudah anda buat
tadi..mudahan berhasil..hehehheee

Semoga bermanfaat

Posted in: Programming