Contoh program sederhana E-tiket kereta listrik

• Form tampilan program E-tiket sederhana

• Source code program E-tiket sederhana

Public Class tiket_kereta
Private Sub cmbKodeKereta_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKodeKereta.SelectedIndexChanged
If cmbKodeKereta.SelectedIndex = 0 Then
txtNamaKereta.Text = ""
ElseIf cmbKodeKereta.SelectedIndex = 1 Then
txtNamaKereta.Text = "Argo Bisnis"
ElseIf cmbKodeKereta.SelectedIndex = 2 Then
txtNamaKereta.Text = "Johar Express"
ElseIf cmbKodeKereta.SelectedIndex = 3 Then
txtNamaKereta.Text = "Kereta Kuda"
End If
End Sub

Private Sub RadioBusiness_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioBusiness.CheckedChanged
If cmbJurusan.SelectedIndex = 0 Then
txtHargaTiket.Text = ""
ElseIf cmbJurusan.SelectedIndex = 1 Then
txtHargaTiket.Text = "200000"
ElseIf cmbJurusan.SelectedIndex = 2 Then
txtHargaTiket.Text = "100000"
ElseIf cmbJurusan.SelectedIndex = 3 Then
txtHargaTiket.Text = "150000"
End If
End Sub

Private Sub RadioExecutive_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioExecutive.CheckedChanged
If cmbJurusan.SelectedIndex = 0 Then
txtHargaTiket.Text = ""
ElseIf cmbJurusan.SelectedIndex = 1 Then
txtHargaTiket.Text = "300000"
ElseIf cmbJurusan.SelectedIndex = 2 Then
txtHargaTiket.Text = "200000"
ElseIf cmbJurusan.SelectedIndex = 3 Then
txtHargaTiket.Text = "250000"
End If
End Sub

Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
txtTotalBayar.Text = Val(CDbl(txtHargaTiket.Text) * CDbl(txtJumlahBeli.Text))
End Sub

Private Sub btnKembalian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKembalian.Click
txtKembalian.Text = Val(CDbl(txtBayar.Text) - CDbl(txtTotalBayar.Text))
End Sub
End Class

Download programnya disini

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest