tugas 3.3

Private Sub Cmdproses_Click()

Dim s As String

s = Left(Txtkode, 3)

If s = "BIM" Then

Txtjk = "BIMA"

Txtht = "50000"

Txtjb = "16.00"

ElseIf s = "EKO" Then

Txtjk = "EKONOMI"

Txtht = "35000"

Txtjb = "19.00"

ElseIf s = "MUT" Then

Txtjk = "MUTIARA"

Txtht = "23000"

Txtjb = "17.00"

ElseIf s = "SEN" Then

Txtjk = "SENJA"

Txtht = "15000"

Txtjb = "20.00"

End If

Txttp = Val(Txtjt) * Val(Txtht)

Txtjt.SetFocus

End Sub

Private Sub Command2_Click()

Txtkode.SetFocus

Txtkode = ""

Txtht = ""

Txtjk = ""

Txtjb = ""

Txtjt = ""

Txttp = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttp = Val(Txtjt) * Val(Txtht)

End If

End Sub