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
 Contoh program sederhana menu makanan
Posted by Fadly Rifai at 7:08 AM

Nah kali ini, kita akan mencoba berlatih membuat sebuah program yang sederhana yang bisa digunakan untuk
melihat daftar makanan dan minuman, harga makanan dan minumannya, serta menghitung harga total jumlah
pesanan kita.

Saya kasih sedikit scrinsutnya nih mengenai program yang akan kita buat nanti :

Desain program diatas terdiri dari :

 7 Label
 2 ComboBox
 1 CheckBox
 1 GroupBox
 2 TextBox
 1 Button
 Kotak yang berwarna hijau adalah “ComboBox”.
 Kotak yang berwarna merah adalah “Label”.
 Kotak yang berwarna kuning adalah “Button”
 Kotak yang berwarna pink adalah “CheckBox”
 Kotak yang berwarna biru adalah “TextBox”
 Kotak yang berwarna hitam adalah “GroupBox”.
Kemudian ubah text nya dibagian “properties” untuk semua control object, jika ingin terlihat lebih indah bisa
juga diwarna-warni kan seperti gambar dibawah ini :
Combobox1 digunakan untuk menampilkan daftar makanan nya dan combobox2 digunakan untuk menampilkan
daftar minumannya.

Sedikit catatan mengenai Combobox, combobox adalah sebuah control object yang digunakan untuk membuat
menu drop down serta combobox ini adalah salah satu control object yang digunakan untuk membatasi
pemilihan pengguna, jadi pengguna hanya dapat memilih satu item dari beberapa item yang disediakan. Lho,
terus kenapa kita menggunakan combobox kalau fungsinya untuk membatasi pemilihan? Ya jadi ini hanya
untuk latihan saja sob, mungkin nanti bisa sobat ganti sendiri, hehe.
Berikut adalah tampilan dari Combobox jika programnya sudah dijalankan :

Nah untuk membuat daftar pilihannya, carilah “items” dibagian properties.

Disebelah kanan ada tulisan “Collection” yang berarti bahwa isi dari items tersebut adalah suatu kumpulan data,
nah untuk menambahkan datanya klik kotak titik tiga yang ada disebelah kanan, kemudian nanti akan muncul
sebuah tempat untuk mengisikan datanya dan Setiap datanya dipisahkan oleh baris.
Diatas adalah contoh datanya, bisa sobat ganti atau sobat tambahkan.

Nah sekarang mari kita mulai membuat kodingannya, double klik pada Combobox1 dan koding seperti ini :

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventAr
gs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "Nasi Uduk" 
                         Label2.Text = "Rp. 3500" 
                         hrgmakanan = 3500
            Case "Bakso" 
                         Label2.Text = "Rp. 6000" 
                         hrgmakanan = 6000
            Case "Mie Ayam" 
                         Label2.Text = "Rp. 7000" 
                         hrgmakanan = 7000
        End Select 
End Sub

Tapi sebelumnya sobat harus membuat dua buah variable terlebih dahulu dengan nama “hrgmakanan” dan
“hrgminuman” yang bersifat global agar kedua variable tersebut dapat digunakan disemua blok program,
variable tersebut bertipe data integer karena nantinya digunakan untuk menyimpan harga makanan dan harga
minuman.
Public Class Form1 
Public hrgmakanan, hrgminuman As Integer

Pada listing program diatas jika yang dipilih adalah “Nasi Uduk” maka “label2” akan menampilkan “Rp. 3500”
dan variable “hrgmakanan” akan diisi dengan nilai 3500, begitu seterusnya.

Sekarang double klik pada Combobox2 dan koding seperti ini :

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventAr
gs) Handles ComboBox2.SelectedIndexChanged
        Select Case ComboBox2.Text
            Case "Es Jeruk" 
                          Label4.Text = "Rp. 3000" 
                          hrgminuman = 3000
            Case "Jus Alpukat" 
                          Label4.Text = "Rp. 7000" 
                          hrgminuman = 7000
            Case "Teh Manis" 
                          Label4.Text = "Rp. 4000" 
                          hrgminuman = 4000
        End Select 
End Sub

Pada listing program diatas jika yang dipilih adalah “Es Jeruk” maka “Label4” akan menampilkan 3000 dan
variable “hrgminuman” nilainya akan diisi dengan 3000, begitu seterusnya.

Tapi ComboBox2 ini akan disembunyikan alias gak kelihatan ketika program pertama kali dijalankan, nah untuk
menyembunyikannya maka harus dikoding didalam sub-routine public supaya ketika program dijalankan maka
combobox2 ini akan langsung tersembunyi, caranya kaya gini :

Pertama tempatkan kursor sobat di sub-routine Public class form1 yaitu tempat dimana kita mendeklarasikan
variable hrgmakanan dan hrgminuman secara global, kemudian disebelah kanan ada kotak menu drop-down,
klik untuk meilhat opsinya dan pilih new.

Dan nanti akan muncul sub-routine public yang baru, koding didalam sub-routine tersebut seperti dibawah ini :
Public Sub New()

        ' This call is required by the designer.        InitializeComponent()

                   ComboBox2.Visible = False 
                   Label3.Visible = False 
' Add any initialization after the InitializeComponent() call.
    End Sub

Maka “Combobox2” dan “Label3” akan terus tersembunyi kecuali kalau kita mengaktifkan atau menceklis
checkbox1, untuk mengaturnya double klik pada CheckBox1 dan koding seperti dibawah ini :

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha
ndles CheckBox1.CheckedChanged
        If CheckBox1.Enabled = False Then 
                     ComboBox2.Visible = False 
        End If 
        If CheckBox1.Enabled = True Then 
                    ComboBox2.Visible = True 
                    Label3.Visible = True 
       End If
    End Sub

Nah kemudian double klik pada Button 1 dan koding seperti dibawah ini :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.
Click
        Dim porsimkn, porsimnm, jumlah As Integer 
        porsimkn = TextBox1.Text
        porsimnm = TextBox2.Text

        jumlah = (hrgmakanan * porsimkn) + (hrgminuman * porsimnm) 

        Label7.Text = "Rp. " & jumlah.ToString
    End Sub

Disini kita membuat 3 buah variable secara private yang berarti variable tersebut hanya bisa digunakan oleh
blok program ini saja, variable tersebut adalah “porsimkn”, “porsimnm”, dan “jumlah”.

Nilai dari variable porsimkn akan diambil dari yang diinput pada Textbox1, begitu juga dengan nilai dari
variable porsimnm akan dimabil dari yang diinput pada TextBox2.

Kemudian variable “jumlah” disini adalah untuk menghitung total jumlah biaya yang telah kita pesan, rumusnya
sudah dituliskan diatas yah.