Program Sederhana VB.NET Penjualan Tiket Film

Assalamualaikum,,,

Dimalam yang dingin ini, sebelum saya main futsal saya sempatkan untuk memposting Program Sederhana VB.NET Penjualan Tiket Film, yang mungkin bisa menjadi referensi anda untuk belajar pemrograman VB.NET.

Langsung saja ya ini Program Sederhana VB.NET Penjualan Tiket Film.

Desain form berikut :




Jika sudah selesai membuat form, berikut listing Proram Sederhana VB.NET Pejualan Tiket Film :

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
            Nama_studio.Text = "Studio 1"
            Kelas.Text = "Eksklusif"
            Harga.Text = 900000
        ElseIf Kode.Text = "A002" Then
            Nama_studio.Text = "Studio 2"
            Kelas.Text = "Bisnis"
            Harga.Text = 800000
        ElseIf Kode.Text = "A003" Then
            Nama_studio.Text = "Studio 3"
            Kelas.Text = "Ekonomi"
            Harga.Text = 700000
        Else
            Nama_studio.Text = "Studio 4"
            Kelas.Text = "Super Ekonomi"
            Harga.Text = 600000
        End If
        Jumlah.Focus()
    End Sub

    Sub Hapus()
        Kode.Text = ""
        Nama_studio.Text = ""
        Kelas.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Tohar.Text = ""
        Dis.Text = ""
        Tobar.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
            Tohar.Text = Harga.Text * Jumlah.Text
            If Jumlah.Text >= 5 Then
                kon.Text = "10%"
                Dis.Text = 0.1 * Tohar.Text
            Else
                kon.Text = "0%"
                Dis.Text = 0
            End If
            Tobar.Text = Tohar.Text - Dis.Text
            Dibayar.Focus()
        End If

    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

    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 - Tobar.Text
        End If
    End Sub

    Private Sub Dibayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dibayar.TextChanged

    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 Program Sederhana VB.NET Penjualan Tiket Film bisa bermanfaat, dan terimakasih.
wasalamm,,,
Share this article :

Posting Komentar

 
Support : Creating Website | Igaph Sinaga | Mas Template
Copyright © 2013. Blognya Igaph - All Rights Reserved
Template Created by Creating Website Published by Igaph Sinaga
Proudly powered by Blogger