TUGAS 3.3

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

Txtkt.SetFocus

Txtkt = “”

Txtht = “”

Txtjk = “”

Txtjb = “”

Txtjt = “”

Txttotalp = “”

End Sub

 

 

Private Sub Cmdproses_Click()

Dim a As String

s = Left(Txtkt.Text, 7)

If s = “BIM1021” Then

Txtjk.Text = “BIMA”

Txtht.Text = “50000”

Txtjb.Text = “16.00”

Txtjt.SetFocus

ElseIf s = “EKO2021” Then

Txtjk.Text = “EKONOMI”

Txtht.Text = “35000”

Txtjb.Text = “19.00”

Txtjt.SetFocus

ElseIf s = “MUT3023” Then

Txtjk.Text = “MUTIARA”

Txtht.Text = “23000”

Txtjb.Text = “17.00”

Txtjt.SetFocus

ElseIf s = “SEN4210” Then

Txtjk.Text = “SENJA”

Txtht.Text = “15000”

Txtjb.Text = “20.00”

Txtjt.SetFocus

End If

End Sub