tugas 3.5

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode.SetFocus
txtkode = ""
txthati = ""
txtjeke = ""
txtjambe = ""
txtjuti = ""
txttotal = ""
End Sub

Private Sub cmdproses_Click()
Dim B As String
B = Left(txtkode, 3)
If B = "BIM" Then
txthati = "50000"
txtjeke = "BIMA"
txtjambe = "16.00"
ElseIf B = "EKO" Then
txthati = "35000"
txtjeke = "EKONOMI"
txtjambe = "19.00"
ElseIf B = "SEN" Then
txthati = "15000"
txtjeke = "SENJA"
txtjambe = "20.00"
End If
txtjuti.SetFocus
End Sub
Private Sub txtjuti_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal = Val(txthati) * Val(txtjuti)
End If
End Sub