TUGS 3_5

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Txtkt = ””

Txtht = ””

Txtjk = ””

Txtjb = ””

Txtjt = ””

Txttotalp = “”

Txtkt.SetFokus

End Sub

Private Sub cmdproses_Click()

Dim P, JK, HT, JB As String

P= Left(txtkt.Text,3)

If P = ”BIM” Or P = “bim” Then

JK = “BIMA”

HT = “20000”

JB = “15.00”

ElseIf P = ”EKO” Or P = “eko” Then

JK = “EKONOMI”

HT = “25000”

JB = “16.00”

ElseIf P = ”MUT” Or P = “mut” Then

JK = “MUTIARA”

HT = “30000”

JB = “17.00”

ElseIf P = ”SEN” Or P = “sen” Then

JK = “SENJA”

HT = “35000”

JB = “17.00”

End If

Txtjk.Text  = JK

Txtht. Text = HT

Txtjb. Text = JB

Txtjt.SetFocus

End Sub

Private Sub Form_Activate()

Txtkt. SetFocus

End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttotalp = Val(txtht.Text) * val (txtjt. Text)

End If

End Sub