tugas 3.5 tambahan keypress

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 B As String

B = Left(txtkt, 3)

If B = "BIM" Then

txtht = "50000"

txtjk = "BIMA"

txtjb = "17.00"

ElseIf B = "RANI" Then

txtht = "35000"

txtjk = "EKONOMI"

txtjb = "20.00"

ElseIf B = "MUT" Then

txtht = "23000"

txtjk = "TIARA"

txtjb = "13.00"

ElseIf B = "SEN" Then

txtht = "15000"

txtjk = "Malam"

txtjb = "17.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