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 | Name | Caption |
Label1 | Label1 | Parkir XYZ |
Label2 | Label2 | Harga/jam |
Label3 | Label3 | Lama Parkir |
Label4 | Label4 | Total Harga |
Group Box1 | Group Box1 | Jenis Kendaraan |
Radio Button1 | rmobil | Mobil |
Radio Button2 | rmotor | Motor |
Edit1 | Eharga | Kosongkan |
Edit2 | Elama | Kosongkan |
Edit3 | Etotal | Kosongkan |
Button1 | Button1 | Hitung |
Button2 | Button2 | Ulang |
Button3 | Button3 | Keluar |
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.
0 komentar:
Posting Komentar