tugas 3.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 I, JK, HT, JB As String
I = Left(txtkt.Text, 3)
If I = "BIM" Then
JK = "BIMA"
HT = "50000"
JB = "16.00"
ElseIf I = "EKO" Then
JK = "EKONOMI"
HT = "35000"
JB = "19.00"
ElseIf I = "MUT" Then
JK = "MUTIARA"
HT = "23000"
JB = "17.00"
ElseIf I = "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