Penjualan Tiket Kereta Api

KODE PADA KOLOM JENIS KERETA

Private Sub cbokereta_Click()

If cbokereta.Text = "MELATI" Then

txtjam.Text = "10.00 WIB"

txtharga.Text = "200000"

ElseIf cbokereta.Text = "MAWAR" Then

txtjam.Text = "13.00 WIB"

txtharga.Text = "300000"

ElseIf cbokereta.Text = "LILI" Then

txtjam.Text = "15.00 WIB"

txtharga.Text = "400000"

ElseIf cbokereta.Text = "KAMBOJA" Then

txtjam.Text = "08.00 WIB"

txtharga.Text = "500000"

ElseIf cbokereta.Text = "DELIMA" Then

txtjam.Text = "09.00 WIB"

txtharga.Text = "600000"

End If

txtjumlah.SetFocus

End Sub

KODE PADA TOMBOL LAGI

Private Sub cmdlagi_Click()

txtnama.Text = ""

txtalamat.Text = ""

txtkelamin.Text = ""

txtkode.Text = ""

cbokereta.Text = ""

txtjam.Text = ""

txtharga.Text = ""

txtjumlah.Text = ""

txttotal.Text = ""

txtnama.SetFocus

End Sub

KODE PADA TOMBOL PROSES

Private Sub cmdproses_Click()

txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

End Sub

KODE PADA TOMBOL SELESAI

Private Sub cmdselesai_Click()

Unload Me

End Sub

KODE UNTUK MEMUNCULKAN NAMA KERETA

Private Sub Form_Load()

cbokereta.AddItem "MELATI"

cbokereta.AddItem "MAWAR"

cbokereta.AddItem "LILI"

cbokereta.AddItem "KAMBOJA"

cbokereta.AddItem "DELIMA"

End Sub

KODE PADA OPTION LAKI-LAKI

Private Sub optlaki_Click()

txtkelamin.Text = "Laki-Laki"

End Sub

KODE PADA OPTION PEREMPUAN

Private Sub Optperempuan_Click()

txtkelamin.Text = "Perempuan"

End Sub

KODE HASIL MENGGUNAKAN ENTER

Private Sub txtjumlah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

End If

End Sub