[Tugas Pemrograman Visual] Aplikasi Penjualan Tiket Film Menggunakan VB.Net

Berjumpa lagi.

Di tengah-tengah hari libur ini, saya tetap memikirkan tugas-tugas yang diberikan oleh dosen saya (curhat deh). Postingan ini juga salah satunya. Karena banyak orang senang menonton film, maka saya akan memberikan sedikit bocoran aplikasi penjualan tiketnya menggunakan vb.net seperti yang sudah saya pelajari.

Berikut listing programnya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("A003")
        Kode.Items.Add("A004")
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            namastudio.Text = "Studio 1"
            Kelas.Text = "Eksklusif"
            harga.Text = 100000
        ElseIf Kode.Text = "A002" Then
            namastudio.Text = "Studio 2"
            Kelas.Text = "Bisnis"
            harga.Text = 80000
        ElseIf Kode.Text = "A003" Then
            namastudio.Text = "Studio 3"
            Kelas.Text = "Ekonomi"
            harga.Text = 70000
        Else
            namastudio.Text = "Studio 4"
            Kelas.Text = "Super Ekonomi"
            harga.Text = 60000
        End If
        Jumlah.Focus()
    End Sub

    Sub Hapus()
        Kode.Text = ""
        namastudio.Text = ""
        Kelas.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        totalharga.Text = ""
        diskon.Text = ""
        totalbayar.Text = ""
        Dibayar.Text = ""
        Kembalian.Text = ""
    End Sub


    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            totalharga.Text = harga.Text * jumlah.Text
            If Jumlah.Text >= 5 Then
                diskon.Text = "10%"
                diskon.Text = 0.1 * totalharga.Text
            Else
                diskon.Text = "0%"
                diskon.Text = 0
            End If
            totalbayar.Text = totalharga.Text - diskon.Text
            Dibayar.Focus()
        End If

    End Sub

    Private Sub Bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkeluar.Click
        Me.Close()
    End Sub

    Private Sub Dibayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Dibayar.KeyPress
        If e.KeyChar = Chr(13) Then
            kembalian.Text = dibayar.Text - totalbayar.Text
        End If
    End Sub

    Private Sub Bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhapus.Click
        Call Hapus()
    End Sub
End Class

Semoga bermanfaat dan dapat menambah wawasan teman-teman semuanya. Good night.