Private Sub CMDKELUAR_Click()

Unload Me

End Sub

 

Private Sub CMDLAGI_Click()

TXTKT.SetFocus

TXTKT.Text = “”

TXTHT.Text = “”

TXTJK.Text = “”

TXTJB.Text = “”

TXTJT.Text = “”

TXTTP.Text = “”

 

End Sub

 

Private Sub CMDPROSES_Click()

Dim KT As String

 

KT = Left(TXTKT.Text, 3)

If KT = “BIM” Then

TXTHT.Text = 50000

TXTJK.Text = “BIMA”

TXTJB.Text = “16.00”

 

ElseIf KT = “EKO” Then

TXTHT.Text = 35000

TXTJK.Text = “EKONOMI”

TXTJB.Text = “19.00”

 

ElseIf KT = “MUT” Then

TXTHT.Text = 23000

TXTJK.Text = “MUTIARA”

TXTJB.Text = “17.00”

 

ElseIf KT = “SEN” Then

TXTHT.Text = 15000

TXTJK.Text = “SENJA”

TXTJB.Text = “20.00”

End If

TXTJT.SetFocus

 

End Sub

 

Private Sub TXTJT_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTTP = Val(TXTHT.Text) * Val(TXTJT.Text)

End If

 

 

End Sub