Kali ini saya akan membuat program reservasi tiket bioskop. Dalam pembuatan program ini saya menggunakan aplikasi Visual Basic 2013.

Berikut ini sistem reservasi pemesanan tiketnya :

1. Isi data nama pemesan tiket
2. Pilihlah jenis film yang ingin ditonton
3. Masukan berapa banyaknya tiket yang ingin dipesan
4. Jika sudah yakin klik OK untuk mengetahui total harga tiket
5. Jika ingin melakukan pembatalan klik CANCEL
6. Setelah itu klik SIMPAN untuk menyimpan data jika ingin melakukan pemesanan

Penjelasan :
TextBox1 = nama
TextBox2 = harga tiket satuan
TextBox3 = banyak tiket
TextBox4 = total harga tiket

Button1 = Ok
Button2 = Cancel
Button3 = Simpan

Source Coding :
Public Class Form1

    Dim reservasitiket As New Reservasi_Tiket
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = 25000
        TextBox4.Text = reservasitiket.tiket(TextBox2.Text, TextBox3.Text)


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        RadioButton1.Checked = ""
        RadioButton2.Checked = ""
        RadioButton3.Checked = ""
        RadioButton4.Checked = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Terimakasih atas reservasi tiket anda :) ")
        Close()

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\minions.jpg")
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\Avenger.jpg")
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\fast.jpg")
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\insurgent.jpg")
    End Sub

End Class

Source Coding Class :
Public Class Reservasi_Tiket
    Dim hargatiket As Integer

    Public Function tiket(ByVal Hargatiket As Integer, ByVal Banyaktiket As Integer)
        tiket = (Hargatiket * Banyaktiket)

    End Function
End Class