Tugas 3.6

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtkt = ""

Txtjk = ""

Txtht = ""

Txtjb = ""

Txtjt = ""

txttotalp = ""

End Sub

Private Sub Cmdproses_Click()

Dim a As String

a = Mid(Txtkt, 1, 3)

If a = "BIM" Then

Txtjk = "BIMA"

Txtht = "50000"

Txtjb = "16.00"

End If

If a = "EKO" Then

Txtjk = "EKONOMI"

Txtht = "35000"

Txtjb = "19.00"

End If

If a = "MUT" Then

Txtjk = "MUTIARA"

Txtht = "23000"

Txtjb = "17.00"

End If

If a = "SEN" Then

Txtjk = "SENJA"

Txtht = "15000"

Txtjb = "20.00"

End If

Txtjt.SetFocus

End Sub

Private Sub Txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(Txtjt) * Val(Txtht)

End If

End Sub