Membuat Aplikasi Kalkulator sederhana dengan Delphi 7.0 | Hulu Online
Membuat Aplikasi Kalkulator
sederhana dengan Delphi 7.0 | Hulu Online
Cara Membuat Aplikasi Kalkulator Sederhana di Delphi 7.0
1. Membuat Aplikasi Kalkulator sederhana dengan Delphi 7.0 Hulu Online, yang pertama kita buka aplikasi delphi yang sudah tersedia. kamudia kita mendesain template calculator seperti gambar di bawah ini :
KOMPONEN
|
PROPERTIS
YANG DI UBAH
|
|
Panel1
|
Caption
|
Calculator
|
Panel
|
Color
|
Dirubah
|
Label2-Label4
|
Caption
|
Angka1-angka2, hasil
|
Edit1-edit2-edit3
|
Caption
|
Kosong, Name = eangka1, eangka2, ehasil
|
Button1-button2
|
Caption
|
Ulangi, keluar . Name= culang, ckeluar
|
Gropbox
|
Caption
|
Operator hitung
|
Radio button 1
|
Caption
|
Penjumlahan, pengurangan, perkalian, pembagian
|
Radio button4
|
Nama
|
Tambah, kurang, kali, bagi
|
List Program/coding
di tombol ulang kita klik 2x dan masukan kodingnya :
TOMBOL ULANG
eangka1.Text:='';
eangka2.Text:='';
ehasil.Text:='';
tambah.Checked:=false;
kurang.Checked:=false;
bagi.Checked:=false;
kali.checked:=false;
eangka1.setfocus;
TOMBOL KELUAR
Close
Tambah
ehasil.text:=inttostr(strtoint(eangka1.Text)+strtoint(eangka2.text));
Kurang
ehasil.text:=inttostr(strtoint(eangka1.Text)-strtoint(eangka2.text));
Bagi
ehasil.text:=inttostr(strtoint(eangka1.Text)div strtoint(eangka2.text));
Kali
ehasil.text:=inttostr(strtoint(eangka1.Text)*strtoint(eangka2.text));
3. jangan lupa save dengan type Delphi Unit (*.pas)
4. Setelah selesai masukin kodingnya, sekarang tinggal RUN untuk melihat hasil aplikasinya.
TOMBOL ULANG
eangka1.Text:='';
eangka2.Text:='';
ehasil.Text:='';
tambah.Checked:=false;
kurang.Checked:=false;
bagi.Checked:=false;
kali.checked:=false;
eangka1.setfocus;
TOMBOL KELUAR
Close
Tambah
ehasil.text:=inttostr(strtoint(eangka1.Text)+strtoint(eangka2.text));
Kurang
ehasil.text:=inttostr(strtoint(eangka1.Text)-strtoint(eangka2.text));
Bagi
ehasil.text:=inttostr(strtoint(eangka1.Text)div strtoint(eangka2.text));
Kali
ehasil.text:=inttostr(strtoint(eangka1.Text)*strtoint(eangka2.text));
3. jangan lupa save dengan type Delphi Unit (*.pas)
4. Setelah selesai masukin kodingnya, sekarang tinggal RUN untuk melihat hasil aplikasinya.
No comments: