Ketentuan Soal :

1. Buat direktori baru di Drive C dengan nama Quiz.
2. Simpan project  di C:\Quiz\NIM\TipeSoal.dpr

     Contoh : C:\Quiz\1208xxxx\TipeB.dpr

     Simpan Form dengan nama : Travel.

     Rubah Caption Form menjadi Form Quiz Tipe B – 1206xxxx.

3. Logika Program :

• Saat Form di jalankan SetFocus ada di Nama.
• ComboBox pesawat berisi nama pesawat yaitu : Garuda Air Lines, Mandala Air dan Batavia Air.
• Input Nama Pemesan dan Alamat.
• Pilih Nama Pesawat yang ada di dalam ComboBox.
• Pilih Jurusan yang ada di dalam ListBox maka Harga Tiket akan muncul.
• Ketentuan Harga Tiket :

• Pilih salah satu RadioButton yang ada di dalam Biaya Tambahan maka biaya akan muncul, jika yang dipilih Antar maka biaya = 5% dari harga tiket, jika yang dipilih Ambil Sendiri maka biaya=0.
• Input Jumlah Beli.
• Klik Button Total Biaya maka Total Bayar akan muncul.
• Total Bayar = (Harga Tiket x Jumlah Beli) + Biaya.

• Klik Button Bersih maka semua object di dalam Form akan kosong.

Klik Button Keluar maka akan muncul MessageBox :

LISTING PROGRAMNYA:

procedure TFormQuizB.lsjurusanClick(Sender: TObject);

begin

if lsjurusan.ItemIndex = 0 then

   begin

   if cmbpesawat.ItemIndex =0 then

      eharga.Text:='400000'

   else

   if cmbpesawat.ItemIndex =1 then

      eharga.Text:='300000'

   else

      eharga.Text:='350000';

   end

else

if lsjurusan.ItemIndex = 1 then

   begin

   if cmbpesawat.ItemIndex =0 then

      eharga.Text:='450000'

   else

   if cmbpesawat.ItemIndex =1 then

      eharga.Text:='350000'

   else

      eharga.Text:='400000';

   end

else

   begin

   if cmbpesawat.ItemIndex =0 then

      eharga.Text:='500000'

   else

   if cmbpesawat.ItemIndex =1 then

      eharga.Text:='400000'

   else

      eharga.Text:='450000';

   end;

end;

procedure TFormQuizB.cmbpesawatClick(Sender: TObject);

begin

lsjurusan.Selected[0]:=false;

eharga.Text:='0';

end;

procedure TFormQuizB.bkeluarClick(Sender: TObject);

begin

if(application.MessageBox('Yakin Mau Keluar...?','Konfirmasi',mb_okcancel)=idok) then

close;

end;

procedure TFormQuizB.rantarClick(Sender: TObject);

begin

ebiaya.Text:=floattostr(5/100*strtoint(eharga.Text));

ejumbel.SetFocus;

end;

procedure TFormQuizB.rambilClick(Sender: TObject);

begin

ebiaya.Text:='0';

ejumbel.SetFocus;

end;

procedure TFormQuizB.btotbayClick(Sender: TObject);

begin

etotbay.Text:=floattostr(strtofloat(eharga.Text)*strtoint(ejumbel.Text)+strtofloat(ebiaya.Text))

end;

procedure TFormQuizB.bbersihClick(Sender: TObject);

begin

enama.Text:='';

ealamat.Text:='';

cmbpesawat.Text:='';

lsjurusan.Selected[0]:=false;

rantar.Checked:=false;

rambil.Checked:=false;

ebiaya.Text:='0';

eharga.Text:='0';

ejumbel.Text:='0';

etotbay.Text:='0';

enama.SetFocus;

end;