TUGAS 3.5

TUGAS 3.5

PENJUALAN TIKET KERETA API  OLEH MAHASISWA STMIK PRINGSEWU

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkt = ""

Txtht = ""

Txtjk = ""

Txtjb = ""

txtjt = ""

txttotalp = ""

txtkt.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim B, jk, ht, jb As String

B = Left(txtkt, 3)

If B = "BIM" Or B = "bim" Then

jk = "BIMA"

ht = "50000"

jb = "16.00"

ElseIf B = "EKO" Or B = "eko" Then

jk = "EKONOMI"

ht = "35000"

jb = "19.00"

ElseIf B = "MUT" Or B = "mut" Then

jk = "MUTIARA"

ht = "23000"

jb = "17.00"

ElseIf B = "SEN" Or B = "sen" Then

jk = "SENJA"

ht = "15000"

jb = "20.00"

End If

Txtjk = jk

Txtht = ht

Txtjb = 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) * Val(txtjt)

End If

End Sub