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 IntegerDim 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" Thentxthargatiket.Text = "5500000"hargatiket = Val(txthargatiket.Text)ElseIf ComboBox1.Text = "S" And ComboBox2.Text = "D" Thentxthargatiket.Text = "5000000"hargatiket = Val(txthargatiket.Text)ElseIf ComboBox1.Text = "C" And ComboBox2.Text = "L" Thentxthargatiket.Text = "7500000"hargatiket = Val(txthargatiket.Text)ElseIf ComboBox1.Text = "C" And ComboBox2.Text = "D" Thentxthargatiket.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" ThenMessageBox.Show("Maksimel Pemesanan Tiket Adalah 4 , Silahkan Ulangi Lagi")txtnamapembeli.Text = ""txtjumlahtiket.Text = ""txttotalpembayaran.Text = ""txtbonus.Text = ""Elsetotal_pembayaran = Val(txtjumlahtiket.Text) * hargatikettxttotalpembayaran.Text=total_pembayaranEnd IfIf total_pembayaran > 22475000 Thentxtbonus.Text = "Bonus Perjalanan Hongkong - Bangkok"Elsetxtbonus.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
boleh dicoba nih...bermanfaat artikelnya.trims dan sukses.
ReplyDelete