tugas 3_5

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
textkode = ""
textharga = ""
textjenis = ""
textjb = ""
textjumlah = ""
texttotal = ""
textkode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim B As String
B = Left(textkode, 3)
If B = "BIM" Then
textharga = "50000"
textjenis = "BIMA"
textjb = "16.00"
ElseIf B = "EKO" Then
textharga = "35000"
textjenis = "EKONOMI"
textjb = "19.00"
ElseIf B = "MUT" Then
textharga = "23000"
textjenis = "MUTIARA"
textjb = "17.00"
ElseIf B = "SEN" Then
textharga = "15000"
textjenis = "SENJA"
textjb = "20.00"
End If
textjumlah.SetFocus
End Sub

Private Sub textjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
texttotal = Val(textharga) * Val(textjumlah)
End If
End Sub