Kamis, 09 Mei 2013
Tutorial Project Kalkulator Di Borland Delphi
Pertama tama masukan Label, Edit, dan Button ke dalam Form 1.
Jumlahnya :
Label => 7
Edit => 6
Button => 3
Ganti Caption Label :
Label 1 => Bilangan Pertama
Label 2 => Bilangan Kedua
Label 3 => ============
Label 4 => Hasil Perkalian
Label 5 => Hasil Pembagian
Label 6 => Hasil Penjumlahan
Label 7 => Hasil Pengurangan
Ganti Name Edit :
Edit 1 => EdtBP
Edit 2 => EdtBK
Edit 3 => EdtKali
Edit 4 => EdtBagi
Edit 5 => EdtTambah
Edit 6 => EdtKurang
Ganti Caption Button :
Button 1 => Hitung
Button 2 => Bersih
Button 3 => Tutup
Nah sekarang kita mulai coding Button1 'Hitung'
Double Click Button Hitung dan mulailah masukan source code seperti di bawah ini.. :
procedure TForm1.Button1Click(Sender: TObject);
var
bilp,bilk,hasil : real;
begin
bilp := strtofloat(edtbp.Text);
bilk := strtofloat(edtbk.Text);
hasil := bilp*bilk;
edtkali.Text := floattostr(hasil);
hasil := bilp/bilk;
edtbagi.Text := floattostr(hasil);
hasil := bilp+bilk;
edttambah.Text := floattostr(hasil);
hasil := bilp-bilk;
edtkurang.Text := floattostr(hasil);
end;
Selesai lah kita coding Button Hitung.. :D
Sekarang kita mulai memasukan source code di Button Bersih.
Double Click Button Bersih dan masukanlah source code seperti di bawah ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
edtbp.Text := '';
edtbk.Text := '';
edtkali.Text := '';
edtbagi.Text := '';
edttambah.Text := '';
edtkurang.Text := '';
edta1.Text := '';
edta2.Text := '';
edthasil.Text := '';
end;
Button Bersih sudah selesai kita masukan sorce codenya.. :D
Sekarang terakhir kita masukan souce code untuk Button Tutup.
Double Click Button Tutup dan masukanlah source code seperti di bawah ini :
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
Selesai semua dech.. :D
Mari kita coba Running dengan menekan tombol 'F9' atau dengan menekan tombol play pada toolbar.. ^^
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar