Pertemuan 4, 09 Maret 2015 : Aplikasi "penjualan tiket kursi" menggunakan Microsoft Visual Basic 2010 Express

Kali ini saya akan membuat tutorial cara membuat aplikasi penjualan tiket kursi menggunakan Microsoft visual basic 2010 express.

Langkah-langkahnya adalah sebagai berikut :

1.       Buka aplikasi  Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya terserah. Kemudian klik ok.

2.       Kemudian buat tampilan seperti di bawah ini, yang terdiri dari 2 groupbox, 10 label, 10 textbox dan 3 button.

Kemudian ubah semua nama text sesuai kebutuhan.

Keterangan :

Groupbox 1 = Ticket

Groupbox2 = Penjualan

Label1 = Class A

Label2 = Class B

Label3 = Class C

Label4 = Class D

Label 5 =  Total Kursi

Label 6 = Class A

Label 7 = Class B

Label 8 = Class C

Label9 = Class D

Label10 = Total Penghasilan

Button1 = Hitung

Button2 = Clear

Button3 = Exit

Untuk name textbox1 sampe textbox 10 yang diubah namenya hanya textbox5 dan textbox10. Untuk textbox5 diubah menjadi txtjualkursi dan textbox10 diubah menjadi txttotalhasil

Hingga tampilannya menjadi seperti ini .

3.       Setelah itu kemudian masukan source kodenya ke masing-masing button.

·         Button hitung source kodenya adalah sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hasil, kursi, VarA, VarB, VarC, VarD As Integer
        VarA = TextBox1.Text
        VarB = TextBox2.Text
        VarC = TextBox3.Text
        VarD = TextBox4.Text
        TextBox6.Text = VarA * 100000
        TextBox7.Text = VarB * 80000
        TextBox8.Text = VarC * 50000
        TextBox9.Text = VarD * 25000
        kursi = VarA + VarB + VarC + VarD
        hasil = VarA * 800000 + VarB * 90000 + VarC * 80000 + VarD * 7000
        txtjualkursi.text = kursi
        txttotalhasil.text = hasil

    End Sub

·    button Clear source kodenya adalah sebagai berikut :

Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click

        
TextBox1.Clear()

              TextBox2.Clear()

              TextBox3.Clear()

              TextBox4.Clear()

              txtjualkursi.Clear()

              TextBox6.Clear()

              TextBox7.Clear()

              TextBox8.Clear()

              TextBox9.Clear()

              txttotalhasil.Clear()



  
End Sub

·         button Exit source kodenya adalah sebagai berikut :

Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click

               Me.Close()

               End Sub

4.       Setelah semua selesai, run program. Maka tampilannya awal nya akan seperti ini

Kemudian isi di textbox sesuai kebutuhan. Kita ambil contoh Class A sebanyak 20 kursi, Class B 50  kursi, Class C 80, Class D 100. Maka hasil akhirnya adalah seperti gambar di bawah .

Untuk menghapus semua data , kita klik button Clear . maka hasilnya kembali awal lagi seperti tampilan awal ketika di run. Tampilannya seperti di bawah ini :

Dan untuk keluar dari program kita tinggal menekan button Exit.

Sekian tutorial sederhana mengenai aplikasi penjualan tiket kursi.

Selamat mencoba

Semoga bermanfaat