Cara Membuat Aplikasi Penjualan Tiket Pesawat Menggunakan Visual Basic 2010

Kali ini kita akan Belajar Bagaimana cara membuat Aplikasi Penjualan Tiket Pesawat , Lamgsung saja ke prakteknya karena banyak teori tanpa aksi = proyek dongeng :D .

Langsung design aplikasinya seperti penampakan dibawah ini :

Penampakan Design Aplikasi

Yang kotak dan ada tulisan aplikasi penjualan tiket pesawat - vaya tours adalah group box ya gan :D

Setelah itu setting combo box seperti ini :

Penampakan Combo Box 1

Setelah itu klik button / tombol yang ada tulisan .... nya lalu masukan :

S [ Tekan tombol ENTER]

C

Nah untuk Combox yang kedua pun sama caranya dengan combo box yang ke dua . Bagaimana sampai sini ada yang bisa saya banting :D ?

Tahap desain form selesai , sekarang kita atur propertinya . seperti pada penampakan di bawah ini :

Cara Menambahkan Property

Baik begini , Klik Textbox => Properti ( Kotak yang di kotakin yang ada di pojok bawah ) => cari tulisan (name) [Lalu isikan nama textbox nya disana] , Problem Solved :D

Atur Properti seperti ini :

Penampakan atur nama text box 

Kalau selesai sekarang siapkan satu gelas kopi hitam + lagu Alesana dengan judul Congratulation , I Hate You :D , karena masa ini adalah masa gedebag gedebug alias pengkodingan .

ok , langsung saja 

1. klik 2 kali dimana saja dan apa saja , bebas :D lalu Masukan Variabel  tepat di bawah Tulisan Public Class Form1 (di paling atas) atau liat penampakan berikut :

Masukan variabelnya :

Dim tiket As Integer

    Dim total_pembayaran, hargatiket As Double

2. Klik Tombol Proses pada button/tombol yang berwarna biru lalu masukan mantra berikut :

 If ComboBox1.Text = "S" And ComboBox2.Text = "L" Then

            txthargatiket.Text = "5500000"

            hargatiket = Val(txthargatiket.Text)

        ElseIf ComboBox1.Text = "S" And ComboBox2.Text = "D" Then

            txthargatiket.Text = "5000000"

            hargatiket = Val(txthargatiket.Text)

        ElseIf ComboBox1.Text = "C" And ComboBox2.Text = "L" Then

            txthargatiket.Text = "7500000"

            hargatiket = Val(txthargatiket.Text)

        ElseIf ComboBox1.Text = "C" And ComboBox2.Text = "D" Then

            txthargatiket.Text = "7000000"

            hargatiket = Val(txthargatiket.Text)

        End If

 3. Klik Tombol Batal pada button / tombol yang berwarna biru lalu masukan mantra berikut :

txtnamapesawat.Text = ""

        txthargatiket.Text = ""

        txtketerangan.Text = ""

        ComboBox1.Text = ""

        ComboBox2.Text = ""

Koding di Group Box 1 sudah selesai , sekarang mari kita pindah ke group box yang ada di sebelahnya .

4. Klik dua kali button proses yang tidak berwarna biru atau lihat penampakan berikut :

5. Setelah di klik maka masukan mantra berikut :

 If txtjumlahtiket.Text = "4" Then

            MessageBox.Show("Maksimel Pemesanan Tiket Adalah 4 , Silahkan Ulangi Lagi")

            txtnamapembeli.Text = ""

            txtjumlahtiket.Text = ""

            txttotalpembayaran.Text = ""

            txtbonus.Text = ""

        Else

            total_pembayaran = Val(txtjumlahtiket.Text) * hargatiket

            txttotalpembayaran.Text=total_pembayaran

        End If

        If total_pembayaran > 22475000 Then

            txtbonus.Text = "Bonus Perjalanan Hongkong - Bangkok"

        Else

            txtbonus.Text = "-"

        End If

6. Sekarang Final Step , Klik 2 kali tombol batal yang bukan berwarna biru lalu masukan mantra berikut :

 txtnamapembeli.Text = ""

        txtjumlahtiket.Text = ""

        txttotalpembayaran.Text = ""

        txtbonus.Text = ""

Alhamdulillah akhirnya program selesai di buat , bagi yang programnya tidak jalan , silahkan di pelajari kesalahannya atau bisa di diskusikan di mari juga boleh . Insya Allah ane bantu sebisa mungkin .

Maaf gambarnya rada acak - acakan soalnya pake Ms Paint ngeditnya gan :D

Bagi yang ingin mendapatkan programnya bisa didapatkan di alamat di bawah ini :

https://drive.google.com/file/d/0B5wVQWVnzUJ_RHVOcVFxYVBUaUE/view?usp=sharing

Password Rar : lifeforshare

atau kalau error di mari gan :D

https://app.box.com/s/ca8pqmak08nam6yhfqoo22aznx08w2y8

Thanks for your attention