PENJUALAN TIKET KERETA API

 

 

Private Sub cmdlagi_Click()

txtkt = “”

txttxtht = “”

txtjk = “”

txtjb = “”

txtjt = “”

txttotalp = “”

txtkt.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

Dim KT, JK, JB As String

Dim HT As Currency

KT = Left(txtkt.Text, 3)

If KT = “BIM” Then

HT = “50000”

JK = “BIMA”

JB = “16,oo”

ElseIf KT = “EKO” Then

HT = “35000”

JK = “EKONOMI”

JB = “19,00”

ElseIf KT = “MUT” Then

HT = “23000”

JK = “MUTIARA”

JB = “17,00”

ElseIf KT = “SEN” Then

HT = “15000”

JK = “SENJA”

JB = “20,00”

End If

txtht.Text = HT

txtjk.Text = JK

txtjb.Text = JB

txtjt.SetFocus

End Sub

Private Sub txtjt_keypress(keyascii As Integer)

If keyascii = 13 Then

txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)

End If

End Sub