CONTOH RENTAL CD SEDERHANA DENGAN DELPHI 7
Berikut adalah contoh sederhana mengenai rental cd semoga dapat menjadi bahan untuk belajar Delphi 7. S
Langkah 1 :
siapkan label, edit.text,memeo1,button,datetimepicker dan sesuaikan seperti gambar dibawah silahkan berkreasi…
Langkah 2 :
Properties :
Combobox1
Name :
|
ckode
|
Label1:Caption :
Name :
|
Kode CD
Biarkan saja default nya
|
Edit2
Name :
Label2:Caption :
|
enama
jenis film
|
Edit3
Name
Label3 :Caption :
|
Eharga
Harga sewa
|
Datetimepicker1:
Label4 :Caption :
Datetimepicker2
Label 5:Caption:
|
Biarkan saja
Tanggal pinjam
Biarkan saja
Tanggal kembali
|
Button1
Name
Caption
|
Ehitung
Hitung
|
Label 6: Caption :
Edit3:
|
Lama peminjaman
elamapinjam
|
Label 7:Caption :
Edit4: Name
|
Denda
Edenda
|
Button2 :
Caption
Name
|
Clear
Bclear
|
Memo1:
Name
|
Memo1
|
Langkah 3:
Klik 2 x pd ckode lalu masukkan code berikut:
IF Ckode.Text='P1' THEN
BEGIN
enama.Text:='Horror';
eharga.Text:='2000';
END
else if Ckode.Text='P2' THEN
BEGIN
enama.Text:='Komedi';
eharga.Text:='3000';
END
else if Ckode.Text='P3' THEN
BEGIN
enama.Text:='Korea';
eharga.Text:='1500';
END
else if Ckode.Text='P4' THEN
BEGIN
enama.Text:='Kolosal';
eharga.Text:='3500';
END
else
BEGIN
enama.Text:='Kartun';
eharga.Text:='5000';
END;
Klik 2x pd button hitung :
Lalu masukan code berikut
procedure TForm1.Button1Click(Sender: TObject);
var
denda,harga,lama :integer;
tgl1,tgl2 : double;
kode,jns,hrg,tgll1,tgll2,lamap,den : string;
begin
//pendeklarasian atau pengenalan terlebih dahulu..
tgl1:=DateTimePicker1.Date;
tgl2:=DateTimePicker2.Date;
lama:=Round(tgl2-tgl1);
harga:=StrToInt(eharga.Text);
//kondisi jika denda > 7 maka denda-7
if (lama > 7) then
begin
lama:=lama;
denda:=(lama-7)*harga;
end
else
begin
lama:=lama;
denda:=0;
end;
elamapinjam.Text:=FloatToStr(lama);
edenda.Caption:=FloatToStr(denda);
//untuk menampilkan ke memo.....
kode:=Ckode.Text;
jns:=enama.Text;
hrg:=IntToStr(harga);
tgll1:=DateToStr(tgl1);
tgll2:=DateToStr(tgl2);
lamap:=IntToStr(lama);
den:=IntToStr(denda);
Memo1.Clear;
Memo1.Lines.Add(' PUSAT RENTAL CD ');
Memo1.Lines.Add(' WAYAN YASHUNI ');
Memo1.Lines.Add(' Bandar Lampung ');
Memo1.Lines.Add('===================================================');
Memo1.Lines.Add('Kode : '+kode);
Memo1.Lines.Add('Jenis Film : '+jns);
Memo1.Lines.Add('Harga Sewa : '+hrg);
Memo1.Lines.Add('Tanggal Pinjam : '+tgll1);
Memo1.Lines.Add('Tanggal Kembali : '+tgll2);
Memo1.Lines.Add('Lama Pinjam : '+lamap);
Memo1.Lines.Add('Denda : '+den);
Memo1.Lines.Add('===================================================');
Memo1.Lines.Add('');
Memo1.Lines.Add('');
Memo1.Lines.Add(' Pimpinan');
Memo1.Lines.Add('');
Memo1.Lines.Add(' Wayan Yashuni');
Memo1.Color:=clAqua;
end;
pada tombol clear isikan code :
procedure TForm1.Button2Click(Sender: TObject);
begin
Ckode.Text:='';
enama.Text:='';
eharga.Text:='0';
DateTimePicker1.Date:=Date;
DateTimePicker2.Date:=Date;
elamapinjam.Text:='';
edenda.Caption:='0';
end;
semoga bermanfaat
No comments:
Post a Comment