Tugas BP1 (Program F)

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt = ""

txtht = ""

txtjk = ""

txtjb = ""

txtjt = ""

txttp = ""

End Sub

Private Sub cmdproses_Click()

txttp = Val(txtht) * Val(txtjt)

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjt.SetFocus

End If

Dim k As String

k = txtkt

If k = "BIM" Then

txtht = "50000"

txtjk = "BIMA"

txtjb = "16.00"

ElseIf k = "EKO" Then

txtht = "35000"

txtjk = "EKONOMI"

txtjb = "19.00"

ElseIf k = "MUT" Then

txtht = "23000"

txtjk = "MUTIARA"

txtjb = "17.00"

ElseIf k = "SEN" Then

txtht = "15000"

txtjk = "SENJA"

txtjb = "20.00"

End If

End Sub