Ini Pelajaran ku tentang pemprograman menggunakan Delphi 7,
Ini sedikit Script untuk menjalankan pogram ini :
procedure TForm1.btcloseClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.ednotaKeyPress(Sender: TObject; var Key: Char);
begin
if not(key=chr(13)) then exit;
ednama.SetFocus;
end;
procedure TForm1.ednamaKeyPress(Sender: TObject; var Key: Char);
begin
if not(key=chr(13)) then exit;
edkode.SetFocus;
end;
procedure TForm1.edkodeKeyPress(Sender: TObject; var Key: Char);
begin
if not(key=chr(13)) then exit;
lbljenis.Caption:=LeftStr(edkode.Text,3);
lblno.Caption:=MidStr(edkode.Text,5,1);
lbllantai.Caption:=RightStr(edkode.Text,3);
if LeftStr(edkode.EditText,3)='VVP' then
begin
lbljenis.Caption:='Very Very Important Persone';
lblharaga.Caption:='2500000';
end
else if LeftStr(edkode.EditText,3)='VIP' then
begin
lbljenis.Caption:='Very Important Persone';
lblharaga.Caption:='1700000';
end
else if LeftStr(edkode.EditText,3)='SPR' then
begin
lbljenis.Caption:='Suit President';
lblharaga.Caption:='3500000';
end
else if LeftStr(edkode.EditText,3)='STP' then
begin
lbljenis.Caption:='Standart Satu';
lblharaga.Caption:='1250000';
end
else if LeftStr(edkode.EditText,3)='STD' then
begin
lbljenis.Caption:='Standart Dua';
lblharaga.Caption:='1000000';
end
else if LeftStr(edkode.EditText,3)='STT' then
begin
lbljenis.Caption:='Standart Tiga';
lblharaga.Caption:='750000';
end;
edcekin.SetFocus;
end;
procedure TForm1.edcekinKeyPress(Sender: TObject; var Key: Char);
begin
if not(key=chr(13)) then exit;
if edcekin.EditText=''then
begin
ShowMessage('Tanggal harus di isi');
end
else
begin
edcekout.SetFocus;
end;
end;
procedure TForm1.edcekoutKeyPress(Sender: TObject; var Key: Char);
begin
if not(key=chr(13)) then exit;
if edcekout.EditText=''then
begin
ShowMessage('Tanggal harus di isi');
end
else
begin
edjam.SetFocus;
end;
end;
procedure TForm1.btbersihClick(Sender: TObject);
begin
ednota.Clear;
ednama.Clear;
edkode.Clear;
lbljenis.Caption:='0';
lblno.Caption:='0';
lbllantai.Caption:='0';
lblharaga.Caption:='0';
edcekin.Clear;
edcekout.Clear;
edjam.Clear;
edextra.Clear;
lblket.Caption:='0';
lbldenda.Caption:='0';
lbllama.Caption:='0';
edextra.Clear;
lblttlawal.Caption:='0';
lblttlakhir.Caption:='0';
diskon.Caption:='0';
lblawal.Caption:='0';
lbldis.Caption:='0';
lblakhir.Caption:='0';
end;
procedure TForm1.edjamKeyPress(Sender: TObject; var Key: Char);
var
jamcekout:TTime;
cekin, cekout:TDate;
lama,jam,menit,denda:Real;
jenis:String;
begin
if not(key=chr(13)) then exit;
jamcekout:=StrToTime(edjam.Text);
cekin:=StrToDate(edcekin.Text);
cekout:=StrToDate(edcekout.Text);
jam:=StrToFloat(LeftStr(edjam.Text,2));
menit:=StrToFloat(RightStr(edjam.Text,2));
jenis:=LeftStr(edkode.Text,3);
lama:=cekout-cekin;
lbllama.Caption:=FloatToStr(lama);
if LeftStr(edjam.Text,2)=''then
begin
ShowMessage('Jam harus di isi');
end
else
begin
if (jam<=15) and (menit=00) then
begin
lblket.Caption:='Terimakasih atas kunjungannya';
end
else if (jam<=19) and (menit>=00) then
begin
lblket.Caption:='Anda melewati waktu cekout';
if jenis='VVP' then
begin
denda:=((jam-15)*12*3000)+(menit/5*3000);
end
else if jenis='VIP' then
begin
denda:=((jam-15)*12*2000)+(menit/5*2000);
end
else if jenis='SPR' then
begin
denda:=((jam-15)*12*5000)+(menit/5*5000);
end
else if jenis='STP' then
begin
denda:=((jam-15)*12*1500)+(menit/5*1500);
end
else if jenis='STD' then
begin
denda:=((jam-15)*12*1000)+(menit/5*1000);
end
else
begin
denda:=((jam-15)*12*1000)+(menit/5*1000);
end;
end
else
begin
lblket.Caption:='Melewati batas penyewaan terhitung 1 hari sewa';
if jenis='VVP' then
begin
denda:=2500000;
end
else if jenis='VIP' then
begin
denda:=1700000;
end
else if jenis='SPR' then
begin
denda:=3500000;
end
else if jenis='STP' then
begin
denda:=1250000;
end
else if jenis='STD' then
begin
denda:=1000000;
end
else
begin
denda:=750000;
end;
end;
end;
lbldenda.caption:=FloatToStr(denda);
edextra.SetFocus;
end;
procedure TForm1.edextraKeyPress(Sender: TObject; var Key: Char);
var
vvp1,vip1,spr1,stp1,std1,stt1:Integer;
jns:String;
a,b,den,eks,dis,ttlawal,ttlakhir,hrg,ttlabk:Real;
jlh,ttlakkb: Currency;
begin
if not(key=chr(13)) then exit;
a:=StrToFloat(lbllama.Caption);
den:=StrToFloat(lbldenda.Caption);
jns:=LeftStr(edkode.Text,3);
if edextra.Text=''then
begin
ShowMessage('Isi Kembali');
edextra.SetFocus;
end
else
begin
eks:=StrToFloat(edextra.text);
if jns='VVP' then
begin
if a >=50then
begin
dis:=6*2500000;
end
else
begin
if a >30 then
begin
dis:=4*2500000;
end
else
begin
if a >=10 then
begin
dis:=1*2500000;
end
else
begin
dis:=0;
end;
end;
end;
ttlawal:=(a*2500000)+den+eks;
vvp.Caption:=IntToStr(StrToInt(vvp.Caption)+1);
end
else if jns='VIP' then
begin
if a>=50 then
begin
dis:=6*1700000;
end
else
begin
if a>30 then
begin
dis:=4*1700000;
end
else
begin
if a>=10 then
begin
dis:=1*1700000;
end
else
begin
dis:=0;
end;
end;
end;
ttlawal:=(a*1700000)+den+eks;
vip.Caption:=IntToStr(StrToInt(vip.Caption)+1);
end
else if jns='SPR' then
begin
if a>=50 then
begin
dis:=6*3500000;
end
else
begin
if a >30 then
begin
dis:=4*3500000;
end
else
begin
if a >=10 then
begin
dis:=1*3500000;
end
else
begin
dis:=0;
end;
end;
end;
ttlawal:=(a*3500000)+den+eks;
spr.Caption:=inttostr(StrToInt(spr.Caption)+1);
end
else if jns='STP' then
begin
if a >=50 then
begin
dis:=6*1250000;
end
else
begin
if a >30 then
begin
dis:=4*1250000;
end
else
begin
if a >=10 then
begin
dis:=1*1250000;
end
else
begin
dis:=0;
end;
end;
end;
ttlawal:=(a*1250000)+den+eks;
stp.Caption:=inttostr(StrToInt(stp.Caption)+1);
end
else if jns='STD' then
begin
if a >=50 then
begin
dis:=6*1000000;
end
else
begin
if a >30 then
begin
dis:=4*1000000;
end
else
begin
if a >=10 then
begin
dis:=1*1000000;
end
else
begin
dis:=0;
end;
end;
end;
ttlawal:=(a*1000000)+den+eks;
std.Caption:=IntToStr(StrToInt(std.Caption)+1);
end
else
begin
if a>=50 then
begin
dis:=6*750000;
end
else
begin
if a>30 then
begin
dis:=4*750000;
end
else
begin
if a>=10 then
begin
dis:=750000;
end
else
begin
dis:=0;
end;
end;
end;
ttlawal:=(a*750000)+den+eks;
stt.Caption:=inttostr(StrToInt(stt.Caption)+1);
end;
end;
vvp1:=StrToint(vvp.Caption);
vip1:=StrToInt(vip.Caption);
spr1:=StrToInt(spr.Caption);
stp1:=StrToInt(stp.Caption);
std1:=StrToInt(std.Caption);
stt1:=StrToInt(stt.Caption);
hrg:=StrToFloat(lblharaga.Caption);
b:=StrToFloat(lbllama.Caption);
ttlawal:=(hrg*b)+eks;
lblttlawal.Caption:=floattostr(ttlawal);
diskon.caption:=floattostr(dis);
ttlakhir:=ttlawal-dis;
lblttlakhir.caption:=floattostr(ttlakhir);
ttlakhir:=strtofloat(lblttlawal.Caption);
if ttlakhir<50000000 then
begin
if ttlakhir>20000000 then
begin
ttlabk:=hrg*(vvp1+vip1+spr1+stp1+std1+stt1);
lbldis.Caption:='15%';
ttlakkb:=ttlabk-(ttlawal*15/100);
end
else
begin
ttlabk:=ttlawal;
end;
end
else
begin
ttlabk:=hrg*(vvp1+vip1+spr1+stp1+std1+stt1);
lbldis.Caption:='20%';
ttlakkb:=ttlawal-(ttlawal*20/100);
lbldis.Caption:=FloatToStr(dis);
lblawal.caption:=floattostr(ttlabk);
lblakhir.caption:=CurrToStr(ttlakkb);
showmessage('Data Selesai');
end;
end;
procedure TForm1.btClick(Sender: TObject);
begin
lsnama.Items.add(ednama.Text);
lskamar.Items.Add(lbljenis.Caption);
lslama.Items.Add(lbllama.Caption);
end;
end.
05.51 |
Category: |
0
komentar
Comments (0)