Contoh Delphi 7

Tulisan kali ini saya ingin sharing tentang contoh Delphi 7 yang saya buat,mungkin sekali lagi ini adalah sekedar catatan saya kuliah saya saja agar saya tidak lupa jika menghadapi soal ujian seperti ini :-P
Dengan menuliskan contoh ini di blog, supaya saya lebih gampang untuk mencarinya. dan siapa tahu ada sobat yang datang kesini dan sedang belajar juga tentang delphi7 ini
Untuk contoh delphi 7, pertama-tama saya buat dulu formnya dan formnya seperti berikut.


sedangkan untuk properties di formnya saya buat menjadi seperti ini

Object NameCaption
Label1Label1Parkir XYZ
Label2Label2Harga/jam
Label3Label3Lama Parkir
Label4Label4Total Harga
Group Box1Group Box1Jenis Kendaraan
Radio Button1rmobilMobil
Radio Button2rmotorMotor
Edit1EhargaKosongkan
Edit2ElamaKosongkan
Edit3EtotalKosongkan
Button1Button1Hitung
Button2Button2Ulang
Button3Button3Keluar

dan yang terakhir yaitu pengkodean saya buat kode nya seperti berikut.

Untuk Mengisi Radio Box1 dengan harga 2000/jam
procedure TForm1.RmobilClick(Sender: TObject);
begin
if rmobil.Checked=true then
eharga.Text:='2000';
end;

Untuk Mengisi Radio Box2 dengan harga 1000/jam
procedure TForm1.RmotorClick(Sender: TObject);
begin
if rmotor.Checked=true then
eharga.Text:='1000'
end;


Untuk Mengitung lama parkir (harga/jam kali lama waktu)
procedure TForm1.Button1Click(Sender: TObject);
var
harga,lmparkir,total:real;
begin
harga:=strtofloat(eharga.Text);
lmparkir:=strtofloat(elama.Text);
total:=harga*lmparkir;
etotal.Text:=floattostr(total);
end;

Untuk Ulang
procedure TForm1.Button2Click(Sender: TObject);
begin
rmobil.Checked:=false;
rmotor.Checked:=false;
eharga.Text:='';
elama.Text:='';
etotal.Text:='';
end;

Untuk Perintah  Keluar dengan memberikan pesan Keluar aplikasi?
procedure TForm1.Button3Click(Sender: TObject);
begin
if(application.MessageBox('Keluar Aplikasi?','fajar345.com',mb_yesno))=idyes then
close;
end;
end.

Somoga contoh delphi 7 ini dapat bermanfaat juga buat sobat.

Sobat suka tulisan ini..?

Dapatkan Tulisan Gratis Via Email!

Follow Fajar345!

0 komentar:

Posting Komentar

 

Like This yo

Recommended Post Slide Out For Blogger
© Copyright 2010. Fajar345 Blog . All rights reserved | Fajar345 Blog is proudly powered by Blogger.com | Template by o-om.com - zoomtemplate.com