https://www.facebook.com/groups/186850424680734/

javascript:void(0) >>>> noah sepruh aq
javascript:void(0) >>>> noah demi kita
javascript:void(0) >>>> noah mati tampa mu
javascript:void(0) >>>> noah terbangun sendiri
http://www.youtube.com/watch?v=9B7UcTBJYCA&noredirect=1
http://www.youtube.com/watch?v=5oSmE5fcqxY&feature=related

ungu

clasick

 

LISTING NYA

Private Sub ac_Click()

If kd_bus.ListIndex = 0 Then

    If ekonomi.Value = True Then

        tiket.Text = 13000

    ElseIf ac.Value = True Then

        tiket.Text = 15000

    Else

        tiket.Text = 17000

    End If

ElseIf kd_bus.ListIndex = 1 Then

    If ac.Value = True Then

        tiket.Text = 10000

    ElseIf ac.Value = True Then

        tiket.Text = 120000

    Else

        tiket.Text = 130000

    End If

Else

    If ac.Value = True Then

        tiket.Text = 150000

    ElseIf ac.Value = True Then

        tiket.Text = 170000

    Else

        tiket.Text = 200000

    End If

End If

End Sub

Private Sub bayar_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

kembali.Text = Val(bayar.Text) - Val(total.Text)

End If

End Sub

Private Sub ekonomi_Click()

If kd_bus.ListIndex = 0 Then

    If ekonomi.Value = True Then

        tiket.Text = 13000

    ElseIf ac.Value = True Then

        tiket.Text = 15000

    Else

        tiket.Text = 17000

    End If

ElseIf kd_bus.ListIndex = 1 Then

    If ac.Value = True Then

        tiket.Text = 10000

    ElseIf ac.Value = True Then

        tiket.Text = 120000

    Else

        tiket.Text = 130000

    End If

Else

    If ac.Value = True Then

        tiket.Text = 150000

    ElseIf ac.Value = True Then

        tiket.Text = 170000

    Else

        tiket.Text = 200000

    End If

End If

End Sub

Private Sub executive_Click()

If kd_bus.ListIndex = 0 Then

    If ekonomi.Value = True Then

        tiket.Text = 13000

    ElseIf ac.Value = True Then

        tiket.Text = 15000

    Else

        tiket.Text = 17000

    End If

ElseIf kd_bus.ListIndex = 1 Then

    If ac.Value = True Then

        tiket.Text = 10000

    ElseIf ac.Value = True Then

        tiket.Text = 120000

    Else

        tiket.Text = 130000

    End If

Else

    If ac.Value = True Then

        tiket.Text = 150000

    ElseIf ac.Value = True Then

        tiket.Text = 170000

    Else

        tiket.Text = 200000

    End If

End If

End Sub

Private Sub Form_Load()

kd_bus.AddItem "B001"

kd_bus.AddItem "B002"

kd_bus.AddItem "B003"

End Sub

Private Sub jumbel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

jumyar.Text = tiket.Text * jumbel.Text

pajak.Text = Val(jumyar.Text) * 0.1

total.Text = Val(jumyar.Text) - Val(pajak.Text)

bayar.SetFocus

End If

End Sub

Private Sub kd_bus_Change()

If kd_bus.ListIndex = 0 Then

    Text.Clear

    nm_bus.Text = "SINAR JAYA"

    jurusan.Text = "JKT-JOKJA"

ElseIf cbkode.ListIndex = 1 Then

    Text.Clear

    nm_bus.Text "DEDI JAYA"

    jurusan.Text "JKT-SEMARANG"

Else

    Text.Clear

    nm_bus.Text "HIBA UTAMA"

    jurusan.Text "JKT-SOLO"

End If

jumbel.SetFocus

End Sub

Private Sub kd_bus_Click()

If kd_bus.ListIndex = 0 Then

    'Text.Clear

    nm_bus.Text = "SINAR JAYA"

    jurusan.Text = "JKT-JOKJA"

Else

If kd_bus.ListIndex = 1 Then

    'Text.Clear

    nm_bus.Text = "DEDI JAYA"

    jurusan.Text = "JKT-SEMARANG"

Else

    'Text.Clear

    nm_bus.Text = "HIBA UTAMA"

    jurusan.Text = "JKT-SOLO"

End If

End If

End Sub

Private Sub keluar_Click()

X = MsgBox("Yakin Mau Keluar Program  .. ?", vbYesNo + vbQuestion, "Info")

If X = vbYes Then

End

End If

End Sub

Private Sub lagi_Click()

penumpang.Text = ""

nm_bus.Text = ""

jurusan.Text = ""

ekonomi.Value = False

ac.Value = False

executive.Value = False

tiket.Text = "0"

jumbel.Text = "0"

pajak.Text = "0"

jumyar.Text = "0"

total.Text = "0"

bayar.Text = "0"

kembali.Text = "0"

penumpang.SetFocus

End Sub