Latihan Delphi 1 Part 1

Form Latihan

Ini listingnya

cmbpaketChange

begin

listmenu.Clear;

if cmbpaket.Text='Paket 1' then

begin

listmenu.Items.Add('Nasi Goreng');

listmenu.Items.Add('Kerupuk');

hargamakanan.Text:='8000';

end

else

if cmbpaket.Text='Paket 2' then

begin

listmenu.Items.Add('Nasi Uduk');

listmenu.Items.Add('Perkedel');

hargamakanan.Text:='7000';

end

else

begin

listmenu.Items.Add('Nasi Kuning');

listmenu.Items.Add('Lalapan');

hargamakanan.Text:='9000';

end;

end;

esClick

begin

hargaminuman.Text:='5000';

end;

kopiClick

begin

hargaminuman.Text:='3000';

end;

airClick

begin

hargaminuman.Text:='2000';

end;

tehClick

begin

hargaminuman.Text:='2500';

end;

jusClick

begin

hargaminuman.Text:='4000';

end;

HitungClick

begin

total.Text:=inttostr(strtoint(hargamakanan.Text)+strtoint(hargaminuman.Text));

end;

BayarKeyPress

begin

if key=#13 then

begin

if strtoint(bayar.Text)

begin

application.MessageBox('Yah Duitnya Kurang','Eiittssss',mb_ok);

bayar.Clear;

end

else

kembali.Text:=inttostr(strtoint(bayar.Text)-strtoint(total.Text));

end;

end;

BersihClick

begin

cmbpaket.Text:='Pilih Paket';

listmenu.Clear;

hargamakanan.Clear;

es.Checked:=false;

kopi.Checked:=false;

air.Checked:=false;

teh.Checked:=false;

jus.Checked:=false;

hargaminuman.Clear;

total.Clear;

bayar.Clear;

kembali.Clear;

cmbpaket.SetFocus;

end;