LATIHAN SOAL VISUAL BASIC Pra Uts

Program Penjualan Tiket BSI Kencana

Keterangan soal

1.       Jika kode kereta diklik maka nama kereta seperti ditabel

Kode Kereta	Nama Kereta
ARB	ARGO BISNIS
JES	JOHAR EXPRES
KKD	KERETA KUDA

2.       Jurusan dan jenis pelayanan harga tiket

Jurusan	Harga Tiket
	Busines	Executive
Cikampek-Tuparev	20000	30000
Johar-Bypass	10000	20000
Klari-badami	15000	25000

3.       Total harga= jumlah beli * harga tiket

4.       Buat prosedur  Bersih(), Aktif(), dan TidakAktif().

(U_U) Selamat Mengerjakan

Kunci Jawaban

Private Sub Form_Load()

cmbkk.AddItem ("ARB") //menambahkan item ARB pada kode barang.. dst

cmbkk.AddItem ("JES")

cmbkk.AddItem ("KKD")

cmbj.AddItem ("cikampek-tuparev")

cmbj.AddItem ("johar-bypass")

cmbj.AddItem ("klari-badami")

tidakaktif   //memanggil prosedur tidak aktif

End Sub

Private Sub cmbkk_Click()

Select Case (cmbkk.Text) //cocokan kata pada kode barang

Case "ARB"  //jika ARB maka

txtk.Text = "ARGO BISNIS"    //nama kereta ARGO BISNIS dst

Case "JES" 

txtk.Text = "JOHAR EXPRES"

Case "KKD"

txtk.Text = "KERETA KUDA"

End Select

End Sub

Private Sub rdob_Click()

If cmbj.Text = "cikampek-tuparev" Then //jika jurusan sama dengan cikampek-tuparev

txtht.Text = 20000 //harga tiket sama dengan 20000

ElseIf cmbj.Text = "klari-badami" Then

txtht.Text = 15000

Else  //selain pilihan kedua tadi

txtht.Text = 10000  //harga tiket sama dengan 10000

End If

End Sub

Private Sub rdoe_Click()

If cmbj.Text = "cikampek-tuparev" Then

txtht.Text = 30000

ElseIf cmbj.Text = "klari-badami" Then

txtht.Text = 25000

Else

txtht.Text = 20000

End If

End Sub

Private Sub txtjb_Change()

                //total harga=jumlah beli * harga tiket

txtth.Text = Val(txtjb.Text) * Val(txtht.Text)

End Sub

Private Sub btninput_Click()

If btninput.Caption = "Input Data" Then //jika caption pada tombol input = input data

Aktif   //panggil prosedur aktif

btninput.Caption = "Bersih"  //ganti caption menjadi Bersih

Else  //jika caption sama dengan Bersih

Bersih   //panggil prosedur bersih

Tidakaktif   //panggil prosedur tidak aktif

btninput.Caption = "Input Data"  //caption tombol ganti kembali menjadi input data

End If

End Sub

Sub aktif() //Membuat Prosedur Aktif

txtno.Enabled = True

txtnp.Enabled = True

txtnk.Enabled = True

cmbkk.Enabled = True

txtk.Enabled = True

cmbj.Enabled = True

rdob.Enabled = True

rdoe.Enabled = True

txtht.Enabled = True

txtjb.Enabled = True

txtth.Enabled = True

End Sub

Sub tidakaktif()  //Membuat Prosedur Tidak Aktif

txtno.Enabled = False

txtnp.Enabled = False

txtnk.Enabled = False

cmbkk.Enabled = False

txtk.Enabled = False

cmbj.Enabled = False

rdob.Enabled = False

rdoe.Enabled = False

txtht.Enabled = False

txtjb.Enabled = False

txtth.Enabled = False

End Sub

Sub bersih()  //Membuat prosedur bersih

txtno.Text = ""

txtnp.Text = ""

txtnk.Text = ""

cmbkk.Text = ""

txtk.Text = ""

cmbj.Text = ""

txtht.Text = ""

txtjb.Text = ""

txtth.Text = ""

txtno.SetFocus

End Sub