penjualan tiket kereta api 5

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""

End Sub

Private Sub cmdproses_Click()
Dim C As String

C = Left(txtkode, 3)

If C = "BIM" Then

txtht = "50000"

txtjk = "BIMA"

txtjb = "16.00"

ElseIf C = "EKO" Then

txtht = "35000"

txtjk = "EKONOMI"

txtjb = "19.00"

ElseIf C = "MUT" Then

txtht = "23000"

txtjk = "MUTIARA"

txtjb = "17.00"

ElseIf C = "SEN" Then

txtht = "15000"

txtjk = "SENJA"

txtjb = "20.00"

End If


txtjt.SetFocus

End Sub


Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub