Penjualan Tiket Kereta Api tgs3.5

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkt = ""

txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
txtkt.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim H, JK, HT, JB As String
H = Left(txtkt.Text, 3)
If H = "BIM" Or H = "bim" Then
JK = "BIMA"
HT = "50000"
JB = "16.00"
ElseIf H = "EKO" Or H = "eko" Then
JK = "EKONOMI"
HT = "35000"
JB = "19.00"
ElseIf H = "MUT" Or H = "mut" Then
JK = "MUTIARA"
HT = "23000"
JB = "17.00"
ElseIf H = "SEN" Or H = "sen" Then
JK = "SENJA"
HT = "15000"
JB = "20.00"
End If
txtjk.Text = JK
txtht.Text = HT
txtjb.Text = JB
txtjt.SetFocus
End Sub

Private Sub Form_Activate()
txtkt.SetFocus
End Sub

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

End Sub