TUGAS KUIS DELPHI

PROGRAM PENJUALAN TIKET BUS NUSANTARA

Proses input nya adalah:

Nama Penumpang , No. kursi , Jumlah Tiket dan Cash Di input manual (jika salah satu dari ke-4 text Box itu ngak di isi,,maka saat di tekan Bottun proses akan muncul peringatan ERROOR).

Untuk option Kelas, harga tiket Eksekutif dan Ekonomi beda harga, yg akan muncul di TOTAL BAYAR

Untuk check Bok pagi, siang dan malam berfungi untuk menampilkan fasilitas yg didapat.

misal untuk option kelas Eksekutif lalu dichecklist keberangkatan malam maka akan muncul di tekxbox fasilitas yang diperoleh adl MAKAN + SNAK,

Tombol Button proses berfungsi memberi hasil dari uang kembali yg  diperoleh dari pengurangan Cash dikurangi Total bayar.

untuk melihat listing nya, silahkan periksa dibawah ini:

procedure TForm1.FormCreate(Sender: TObject);
begin
dateseparator:='-';
shortdateformat:='dd/mmmm/yyyy';
label12.Caption:=datetostr(date);
ejam.Text:=timetostr(now);
end;

procedure TForm1.ckodeClick(Sender: TObject);
begin
if ckode.Text='01'then
begin
ejurusan.Text:='Semarang';
eharga.Text:='65000';
end else

begin
if ckode.Text='02'then
begin
ejurusan.Text:='Blora';
eharga.text:='75000';
end else

begin
if ckode.Text='03'then
begin
ejurusan.Text:='Surabaya';
eharga.Text:='100000';

 end else
ejurusan.Text:='0';
end;
end;
end;

procedure TForm1.ReksClick(Sender: TObject);
var
a,b:real;
hasil:real;
begin
if Reks.Checked=true then
a:=strtofloat(eharga.Text);
b:=strtofloat(ejml.Text);
hasil:=a*b*2;
etotal.text:=floattostr(hasil)

end;

procedure TForm1.RbisClick(Sender: TObject);

var
a,b:real;
hasil:real;
begin
if Rbis.Checked=true then
a:=strtofloat(eharga.Text);
b:=strtofloat(ejml.Text);
hasil:=a*b*1.5;
etotal.text:=floattostr(hasil)
end;



procedure TForm1.CsiangClick(Sender: TObject);
begin
efas.Text:='Makan';

end;

procedure TForm1.CmalamClick(Sender: TObject);
begin
efas.Text:='Makan + Snak';
end;

procedure TForm1.CpagiClick(Sender: TObject);
begin
efas.Text:='Snak';
end;

procedure TForm1.BprosesClick(Sender: TObject);
var
a,b:real;
hasil:real;
begin
a:=strtofloat(ecash.Text);
b:=strtofloat(etotal.Text);
hasil:=a-b;
ekmbl.text:=floattostr(hasil)

end;



procedure TForm1.BbersihClick(Sender: TObject);
begin
enm.SetFocus;
ckode.Clear;
ecash.Clear;
efas.Clear;
eharga.Clear;
ejml.Clear;
ejurusan.Clear;
ekmbl.Clear;
enm.Clear;
eno.Clear;
etotal.Clear;
Rbis.Checked:=false;
Reks.Checked:=false;
Cmalam.Checked:=false;
Cpagi.Checked:=false;
Csiang.Checked:=false;
end;

procedure TForm1.BcloseClick(Sender: TObject);
begin
if application.MessageBox('MAS JANGAN DIKELUARIN DONK !!!!!!','Awaaaaaaasss',mb_yesno)=idyes then
close;
end;

end.