Kali ini kita akan belajar bagaimana membuat progtram kalkulator dengan menggunakan delphy 7. Buat para pembaca yang berminat pengen nyobain buat kalkulator seperti gambar disamping, 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 kita 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. kalo dah selesai membuat seperti gambar diatas, langkah berikutnya tinggal kita jalankan dengan menekan tombol F9 pada keybord atau dengan klik tombol run pada menu, SEMOGA BERMANFAAT..........
0 komentar:
Posting Komentar