05 February, 2010

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




Artikel Terkait

2 comments:

Anonymous said...

:29

5464y said...

:26

:10 :11 :12 :13
:14 :15 :16 :17
:18 :19 :20 :21
:22 :23 :24 :25
:26 :27 :28 :29
:30 :31 :32 :33
:34 :35 :36 :37
:38 :39 :40 :41
:42 :43 :44 :45
:46 :47 :48 :49
:50 :51 :52 :53
:54 :55 :56 :57

Post a Comment

Template by : kendhin x-template.blogspot.com ==> Editor by : BIK