Membuat Form Pemesanan Tiket dengan VB

Hallo! Disini saya akan memberikan contoh bagaimana membuat program pemesan tiket konser menggunakan Visual Basic.

1. Buatlah design form Pemesanan Tiket konser sesuai dengan apa yang kamu inginkan atau buat seperti contoh di bawah ini

2. Masukkan Source Code seperti yang tertera di bawah.

Source Code

Public Class Form1

    Sub hapus()
        TxtNama.Text = ""
        TxtNoId.Text = ""
        ComboBoxTgl.Text = ""
        ComboBoxBln.Text = ""
        ComboBoxThn.Text = ""
        ComboBoxTiket.Text = ""
        TxtHarga.Text = ""
        ComboBoxBanyak.Text = ""
        TxtTotal.Text = ""
        TxtNama.Focus()
    End Sub

    Function total(ByVal HargaTiket, ByVal BanyakTiket)
        total = (HargaTiket * BanyakTiket)
    End Function

    Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        Call hapus()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For a = 1 To 31
            ComboBoxTgl.Items.Add(a)
        Next
        For b = 1 To 12
            ComboBoxBln.Items.Add(b)
        Next
        For c = 1997 To 1966 Step -1
            ComboBoxThn.Items.Add(c)
        Next

        Dim i As Integer
        ComboBoxBanyak.Items.Clear()
        i = 4
        While i > 0
            ComboBoxBanyak.Items.Add(i)
            i -= 1
        End While
    End Sub

    Private Sub BtnBeli_Click(sender As Object, e As EventArgs) Handles BtnBeli.Click
        Dim x = MsgBox("Yakin Anda Telah Selesai Melakukan Pemesanan?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
        If x = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub BtnLihat_Click(sender As Object, e As EventArgs) Handles BtnLihat.Click
        Form2.Show()
    End Sub

    Private Sub BtnTotal_Click(sender As Object, e As EventArgs) Handles BtnTotal.Click
        TxtTotal.Text = total(TxtHarga.Text, ComboBoxBanyak.Text)
    End Sub

    Private Sub TxtHarga_TextChanged(sender As Object, e As EventArgs) Handles TxtHarga.TextChanged
        If ComboBoxTiket.Text = "Daily Pass 4 Maret 2016" Then
            TxtHarga.Text = "550000"
        ElseIf ComboBoxTiket.Text = "Daily Pass 5 Maret 2016" Then
            TxtHarga.Text = "550000"
        ElseIf ComboBoxTiket.Text = "Daily Pass 6 Maret 2016" Then
            TxtHarga.Text = "550000"
        ElseIf ComboBoxTiket.Text = "3 Days Pass 4-6 Maret 2016" Then
            TxtHarga.Text = "1400000"
        Else
            TxtHarga.Text = "1250000"
        End If
    End Sub

    Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click
        Select Case ComboBoxBanyak.Text
            Case 1
                Label9.Text = "Anda mendapatkan 1 tiket"
            Case 2
                Label9.Text = "Anda mendapatkan 2 tiket"
            Case 3
                Label9.Text = "Anda mendapatkan 3 tiket"
            Case Else
                Label9.Text = "Anda mendapatkan 3 tiket"
        End Select
    End Sub
End Class


3. Dan inilah hasilnya jika klik button Total

4. Jika klik tombol lihat yang akan keluar jadi seperti ini