Belajar Delphi 7 Aplikasi Kalkulator Sederhana
Hello @3rd Post
Hii Semua ,
Kali ini saya akan sharing ilmu tentang " Cara Membuat Aplikasi Kalkulator Sederhana Di Delphi "
Oke Next :
Step 1 : Buka Delphi 7 Enterprise Edition..
Tidak punya ? :D
So ,, woles aja saya sediain link untuk download nya :
Download Delphi 7 + Crack : Klik Disini
(source link download dari : http://www.kuyhaa-android19.com/delphi-7-enterprise-full-keygen.html)
Password RAR : www.kuyhaa-android19.com
Note : Untuk screenshot tidak disediakan :D karena saya bikin postingan di warnet , (maklum gituh :D)
Nanti saya edit beserta screenshotnya ;)
Step 2 : Buat New Project
Tambahkan :
(+) Label 1 Dengan Caption : Bilangan 1
(+) Label 2 Dengan Caption : Bilangan 2
(+) Label 3 Dengan Caption : Penjumlahan
(+) Label 4 Dengan Caption : Pengurangan
(+) Label 5 Dengan Caption : Perkalian
(+) Label 6 Dengan Caption : Pembagian
(+) Label 7 Dengan Caption : Penjumlahan
(+) Edit 1 Dengan Nama : Ebil1 , Text : *Blank* (Kosongkan)
(+) Edit 2 Dengan Nama : Ebil2 , Text : *Blank* (Kosongkan)
(+) Edit 3 Dengan Nama : Ejumlah , Text : *Blank* (Kosongkan)
(+) Edit 4 Dengan Nama : Ekurang , Text : *Blank* (Kosongkan)
(+) Edit 5 Dengan Nama : Ekali , Text : *Blank* (Kosongkan)
(+) Edit 6 Dengan Nama : Ebagi , Text : *Blank* (Kosongkan)
(+) Button 1 Dengan Caption : Penjumlahan
(+) Button 2 Dengan Caption : Pengurangan
(+) Button 3 Dengan Caption : Perkalian
(+) Button 4 Dengan Caption : Pembagian
(+) Button 5 Dengan Caption : Keluar
Dan akan terlihat seperti gambar dibawah ini.
Pada Edit1 :
Pada Edit2 :
Sesuai control yang telah dituliskan diatas . pada edit3 , edit4 , edit5 dan seterusnya dinamai dengan Nama yang sudah ditentukan.
Next Step :
Pada
Button 1 (Penjumlahan) Sama-kan kode :
procedure TForm1.Button1Click(Sender: TObject);
var
bil1,bil2 : Real;
Jumlah : Real;
begin
bil1 := StrToFloat Ebil1.Text;
bil2 := StrToFloat Ebil2.Text;
Jumlah := bil1+bil2;
Ejumlah.Text := FloatToStr (Jumlah)
end;
Pada
Button 2 (Pengurangan) :
procedure TForm1.Button1Click(Sender: TObject);
var
bil1,bil2 : Real;
Kurang : Real;
begin
bil1 := StrToFloat Ebil1.Text;
bil2 := StrToFloat Ebil2.Text;
Kurang := bil1-bil2;
Ekurang.Text := FloatToStr (Kurang)
end;
Pada
Button 3 (Perkalian) :
procedure TForm1.Button1Click(Sender: TObject);
var
bil1,bil2 : Real;
Kali : Real;
begin
bil1 := StrToFloat Ebil1.Text;
bil2 := StrToFloat Ebil2.Text;
Kali := bil1 * bil2;
Ekali.Text := FloatToStr (Kali)
end;
Pada
Button 4 (Pembagian) :
procedure TForm1.Button1Click(Sender: TObject);
var
bil1,bil2 : Real;
Bagi : Real;
begin
bil1 := StrToFloat Ebil1.Text;
bil2 := StrToFloat Ebil2.Text;
Bagi := bil1 * bil2;
Ebagi.Text := FloatToStr (Bagi)
end;
Selesai. ;) Coba Test program kalkulator sederhananya dengan mengklik pada logo Debug .
Goodluck (y) ;)
