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 Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf H = "EKO" Or H Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf H = "MUT" Or H Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf H = "SEN" Or H 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) * (txtjt)
End If
End Sub
Tidak ada komentar:
Posting Komentar