Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
Txtkd.SetFocus
Txtkd.Text = “”
Txtha.Text = “”
Txtjs.Text = “”
Txtjam.Text = “”
Txtjum.Text = “”
Txttot.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtkd.Text, 1, 3)
If J = “BIM” Then
Txtha.Text = “50000”
Txtjs.Text = “BIMA”
Txtjam.Text = “16.00”
ElseIf J = “EKO” Then
Txtha.Text = “35000”
Txtjs.Text = “EKONOMI”
Txtjam.Text = “19.00”
ElseIf J = “MUT” Then
Txtha.Text = “23000”
Txtjs.Text = “MUTIARA”
Txtjam.Text = “17.00”
ElseIf J = “SEN” Then
Txtha.Text = “15000”
Txtjs.Text = “SENJA”
Txtjam.Text = “20.00”
End If
Txtjum.SetFocus
End Sub
Private Sub Txtjum_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttot.Text = Val(Txtha * Txtjum)
End If
End Sub
Advertisements