TAMPILAN DAN LISTING PRA UTS_3

Sub aktif()

tidp.Enabled = True

tnapem.Enabled = True

cjetik.Enabled = True

ctujuan.Enabled = True

cwaktu.Enabled = True

tjumbel.Enabled = True

tubay.Enabled = True

End Sub

Sub nonaktif()

tidp.Enabled = False

tnapem.Enabled = False

cjetik.Enabled = False

ctujuan.Enabled = False

tjumbel.Enabled = False

tubay.Enabled = False

tnapet.Enabled = False

lrute.Enabled = False

cwaktu.Enabled = False

tharga.Enabled = False

ttotbay.Enabled = False

tukem.Enabled = False

ttgl.Enabled = False

End Sub

Sub bersih()

tidp.Text = ""

tnapem.Text = ""

cjetik.Text = ""

ctujuan.Text = ""

tjumbel.Text = ""

tubay.Text = ""

tnapet.Text = ""

lrute.Clear

cwaktu.Text = ""

tharga.Text = ""

ttotbay.Text = ""

tukem.Text = ""

ttgl.Text = ""

End Sub

Private Sub cisi_Click()

aktif

bersih

tidp.SetFocus

cisi.Enabled = False

ckeluar.Enabled = True

cpesan.Enabled = True

End Sub

Private Sub ckeluar_Click()

Unload Me

End Sub

Private Sub cpesan_Click()

If cpesan.Enabled = True Then

MsgBox "MakaCihhhhh!!!!!", vbOKOnly

Call Form_Activate

Else

Unload Me

End If

End Sub

Private Sub ctujuan_Click()

If cjetik.Text = "Eksekutif" Then

  If ctujuan.Text = "Solo" Then

lrute.Clear

lrute.AddItem "Salatiga-Kartosuro-Tirtonadi-Sumber-Karanganyar"

tharga.Text = 200000

  ElseIf ctujuan.Text = "Surabaya" Then

lrute.Clear

lrute.AddItem "Surabaya-Kediri-Ngawi-Nganjuk-Madiun"

tharga.Text = 300000

  ElseIf ctujuan.Text = "Bandung" Then

lrute.Clear

lrute.AddItem "Purwakarta-Padalarang-Cicaheum-Leuwipanjang"

tharga.Text = 100000

  ElseIf ctujuan.Text = "Cirebon" Then

lrute.Clear

lrute.AddItem "Indramayu-Cirebon-Kuningan-Subang"

tharga.Text = 110000

  ElseIf ctujuan.Text = "Semarang" Then

lrute.Clear

lrute.AddItem "Indramayu-Cirebon-Tegal-Brebes-Demak-Semarang"

tharga.Text = 200000

  ElseIf ctujuan.Text = "Purwokerto" Then

lrute.Clear

lrute.AddItem "Nagrek-Malambong-Tasik-Banjar-Cilacap-Purwokerto"

tharga.Text = 200000

  End If

ElseIf cjetik.Text = "Ekonomi AC" Then

  If ctujuan.Text = "Solo" Then

lrute.Clear

lrute.AddItem "Salatiga-Kartosuro-Tirtonadi-Sumber-Karanganyar"

tharga.Text = 180000

  ElseIf ctujuan.Text = "Surabaya" Then

lrute.Clear

lrute.AddItem "Surabaya-Kediri-Ngawi-Nganjuk-Madiun"

tharga.Text = 270000

  ElseIf ctujuan.Text = "Bandung" Then

lrute.Clear

lrute.AddItem "Purwakarta-Padalarang-Cicaheum-Leuwipanjang"

tharga.Text = 70000

  ElseIf ctujuan.Text = "Cirebon" Then

lrute.Clear

lrute.AddItem "Indramayu-Cirebon-Kuningan-Subang"

tharga.Text = 90000

  ElseIf ctujuan.Text = "Semarang" Then

lrute.Clear

lrute.AddItem "Indramayu-Cirebon-Tegal-Brebes-Demak-Semarang"

tharga.Text = 170000

  ElseIf ctujuan.Text = "Purwokerto" Then

lrute.Clear

lrute.AddItem "Nagrek-Malambong-Tasik-Banjar-Cilacap-Purwokerto"

tharga.Text = 170000

  End If

Else

  If ctujuan.Text = "Solo" Then

lrute.Clear

lrute.AddItem "Salatiga-Kartosuro-Tirtonadi-Sumber-Karanganyar"

tharga.Text = 150000

  ElseIf ctujuan.Text = "Surabaya" Then

lrute.Clear

lrute.AddItem "Surabaya-Kediri-Ngawi-Nganjuk-Madiun"

tharga.Text = 250000

  ElseIf ctujuan.Text = "Bandung" Then

lrute.Clear

lrute.AddItem "Purwakarta-Padalarang-Cicaheum-Leuwipanjang"

tharga.Text = 50000

  ElseIf ctujuan.Text = "Cirebon" Then

lrute.Clear

lrute.AddItem "Indramayu-Cirebon-Kuningan-Subang"

tharga.Text = 70000

  ElseIf ctujuan.Text = "Semarang" Then

lrute.Clear

lrute.AddItem "Indramayu-Cirebon-Tegal-Brebes-Demak-Semarang"

tharga.Text = 150000

  ElseIf ctujuan.Text = "Purwokerto" Then

lrute.Clear

lrute.AddItem "Nagrek-Malambong-Tasik-Banjar-Cilacap-Purwokerto"

tharga.Text = 150000

  End If

End If

End Sub

Private Sub Form_Activate()

bersih

nonaktif

ttgl.Text = Date

cjetik.AddItem "Eksekutif"

cjetik.AddItem "Ekonomi AC"

cjetik.AddItem "Ekonomi non AC"

ctujuan.AddItem "Solo"

ctujuan.AddItem "Surabaya"

ctujuan.AddItem "Bandung"

ctujuan.AddItem "Cirebon"

ctujuan.AddItem "Semarang"

ctujuan.AddItem "Purwokerto"

cwaktu.AddItem "07.00 wib"

cwaktu.AddItem "10.00 wib"

cwaktu.AddItem "13.00 wib"

cwaktu.AddItem "16.00 wib"

cwaktu.AddItem "19.00 wib"

cwaktu.AddItem "22.00 wib"

cisi.Enabled = True

ckeluar.Enabled = False

cpesan.Enabled = False

End Sub

Private Sub tidp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

  If tidp.Text = "080901" Then

tnapet.Text = "Jarwo"

ElseIf tidp.Text = "080902" Then

tnapet.Text = "Rudi"

ElseIf tidp.Text = "080903" Then

tnapet.Text = "Alex"

ElseIf tidp.Text = "080904" Then

tnapet.Text = "Marwan"

ElseIf tidp.Text = "080905" Then

tnapet.Text = "Darmo"

End If

tnapem.SetFocus

End If

End Sub

Private Sub tjumbel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ttotbay.Text = Val(tharga.Text) * Val(tjumbel.Text)

tubay.SetFocus

End If

End Sub

Private Sub tubay_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Val(tubay.Text) < Val(ttotbay.Text) Then

MsgBox "Duit Elo Kurang Rp." & (Val(ttotbay.Text) - Val(tubay.Text)) & "," & "Masukin nominal lagi yaaa!!!", vbOKOnly + vbInformation, "informasi"

tubay.Text = ""

tubay.SetFocus

tukem = ""

Else

tukem.Text = Val(tubay.Text) - Val(ttotbay.Text)

End If

cisi.Enabled = True

ckeluar.Enabled = False

End If

If Not (KeyAscii <= Asc("9") And KeyAscii >= Asc("0") Or KeyAscii = vbKeyBack) Then

KeyAscii = 0

End If

End Sub