Program Sederhana Persewaan CD/DVD for Delphi

Di dalam program ini Pemilik persewaan CD/DVD, menginputkan jumlah CD/DVD yang dipinjam oleh konsumen dan menginputkan keterlambatan konsumen dalam mengembalikannya. Sehingga Si pemilik persewaan ini mendapatkan sedikit kemudahan dalam menghitung CD/DVD yang dipinjam.

Di program ini harga sewa CD,DVD dan keterlambatan sudah diterntukan, diantaranya adalah :

a. harga sewa CD / keping : Rp. 1000
b. harga sewa DVD / keping : Rp. 2000
c. keterlambatan CD / keping : Rp. 500
d. keterlambatan DVD / keping : Rp. 1000

Untuk membuat program yang sangat sederhana seperti penjelasan diatas. Yang perlu disiapkan adalah :

a. 12 (duabelas) komponen TLabel.
b. 3 (tiga) komponen TEdit.
c. 2 (dua) komponen TButton.

kemudian susunlah komponen-komponen diatas seperti gambar dibawah ini :

Untuk mengganti nama label,nama button dan mengganti warna TForm dapat dilihat di postingan sebelumnya.

Selanjutnya langkah memasukkan program ke dalam button hitung dan exit, diantaranya adalah :

a. button hitung isikan program seperti dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
cd,dvd,trlmbt,jw,hsewa,denda:real;
begin
cd:=strtofloat(edit1.Text);
dvd:=strtofloat(edit2.Text);
trlmbt:=strtofloat(edit3.Text);
jw:=cd+dvd;
hsewa:=(cd*1000)+(dvd*2000);
label10.Caption:=floattostr(hsewa);
denda:=(trlmbt*cd*500)+(trlmbt*dvd*1000);
label11.Caption:=floattostr(denda);
label12.Caption:=floattostr(hsewa+denda);
end;

b. button exit isikan program seperti dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin???',
'informasi',mb_okcancel or mb_iconquestion)=mrok then
Application.Terminate;
end;
end.

nah... sangat mudahkan?? silahkan coba jalankan program tersebut jika tidak ada kesalahan maka akan berjalan seperti gambar di bawah ini :

kurang lebihnya seperti itu, program ini untuk contoh programer pemula, jadi para master jangan
menertawakan dengan postingan ini. ngledek boleh tapi orang lain jangan sampek tahu,,, hehehe