Latihan Visual Basic Agen Bus

Ketentuan Soal :

            1. Buat prosedur aktif,nonaktif dan bersih, pada saat form dijalankan semua objek

                dalam keadaan tidak aktif dan bersih.

            2. Klik Button Lagi maka semua objek aktif, bersih dan kursor berada pada Kode Bus.

            3. Pilih Kode Bus maka muncul Nama Bus

Kode Bus	Nama Bus
D1	Dedy Jaya
B2	Budiman
P3	Primajasa
A4	Arimbi

      4. Jurusan berdasarkan Kode Bus, pilih jurusan maka harga muncul

Kode Bus	Jurusan	Harga
D1	Bandung	35000
	Tasik	40000
	Garut	45000
	Cirebon	50000
B2	Bandung	30000
	Tasik	50000
	Garut	45000
	Cirebon	60000
P3	Bandung	25000
	Tasik	40000
	Garut	35000
	Cirebon	70000
A4	Bandung	20000
	Tasik	30000
	Garut	20000
	Cirebon	50000

5. Pilih Fasilitas maka harga muncul

Fasilitas	Harga
AC	10000
Smooking room, TV	15000
Smooking TV, AC	20000

 

6.  Klik Hitung maka Total Bayar Muncul

            Total = (harga*jumlah)+ac+smooking room tv+smooking room ac tv

7. Input uang bayar otomatis muncul uang kembalian

           Uang kembali = uang bayar – total bayar

8. Klik Button Keluar maka muncul pesan

Sub bersih ( ) Cmbkode=”--Pilih--” Tnama=”” Tharga=”” Tjumbel=”” Cac.value=false Ctv.value=false Cwc.value=false Tac=”” Ttv=”” Twc=”” Ttotal=”” Tubay=”” Tukem=”” End sub  Sub aktif() Cmbkode.enabled=true Tnama. enabled=true ljur.enabled=true tharga.enabled=true tjumbel.enabled=true cac.enabled=true ctv.enabled=true cwc.enabled=true ttotal.enabled=true tubay.enabled=true tukem.enabled=true end sub  sub nonaktif() cmbkode.enabled=false tnama.enabled=false ljur.enabled=false tharga.enabled=false tjumbel.enabled=false cac.enabled=false ctv.enabled=false cwc.enabled=false ttotal.enabled=false tubay.enabled=false tukem.enabled=false end sub form load () nonaktif bersih End sub Private sub cmdbersih_click() Aktif Bersih Cmbkode.setfokus End sub Private sub cmbkode_click() If cmbkode.text=”D1” then    Tnama.text=”Dedy jaya” Elseif cmkode.text=”B2” then    Tnama.text=”Budiman”   Elseif cmbkode.text=”P3” then   Tnama.text=”Primajaya” Else   Tnama.text=”Arimbi” End if End sub Private sub ljur_click() If cmbkode.text=”D1” then                 If ljur.text=”Bandung” then                                 Tharga.text=30000                 Elseif  ljur.text=”Tasik” then                                 Tharga.text=35000                 Elseif  ljur.text=”Garut” then                                 Tharga.text=40000                 Else                                 Tharga.text=50000                 End if Elseif cmbkode.text=”B2” then                 If ljur.text=”Bandung” then                                 Tharga.text=30000                 Elseif ljur.text=”Tasik” then                                 Tharga.text=50000                 Elseif ljur.text=” Garut” then                                 Tharga.text=60000                 Else                                 Tharga.text=70000                 End if Elseif cmbkode.text=”P3” then                 If ljur.text=”Bandung” then                                 Tharga.text=25000                 Elseif ljur.text=”Tasik” then                                 Tharga.text=35000                 Elseif ljur.text=”Garut” then                                 Tharga.text=50000                 Else                                        Tharga.text=70000                 End if Elseif cmbkode.text=”A4” then                 If ljur.text=”Bandung” then                                 Tharga.text=20000                 Elseif ljur.text=”Tasik” then                                 Tharga.text=30000                 Elseif ljur.text=”Garut” then                                 Tharga.text=20000                 Else                                 Tharga.text=50000                 End if End if End sub Private sub cac_click() If cac.checked=true then                 Tac.text=10000 Else                 Tac.text=0 End if End sub Private sub ctv_click() If ctv.checked=true then                 Ttv.text=15000 Else                 Ttv.text=0 End if End sub Private sub cwc_click() If cwc.checked=true then                 Twc.text=20000 Else                 Twc.text=0 End if End sub Private sub cmdhitung_click() Ttotal.text=val(tharga)*val(tjumbel)+val(tac)+val(ttv)+val(twc) End sub Private sub tubay_change() Tukem.text=val(tubay)-val(ttotal) End sub Private sub cmdkeluar_click() P=msgbox(“Mau Keluar???”,vbquestion+vbYesNo,”Info”) If p=vbYes then Unload me End if End sub Buat Latihan Diatas Bisa Juga Didownload Disini Download Latihan Visual Basic Agen Bus