A. PENJELASAN :
Selamat Datang di Menu Pemesanan Tiket Travel Agent! J
Sebelum masuk ke menu Pemesanan pastikan dahulu tanggal
keberangkatan, tujuan keberangkatan dan jumlah pesanan. Langkah Pemesanan Tiket
:
1. Masuk ke menu Pemesanan. Kemudian isilah kolom
Nama Pemesan sesuai dengan Nama di kartu Identitas yang berlaku (Kartu
Pelajar/Kartu Mahasiswa/KTP/SIM/Paspor) Pemesan.
2. Setelah itu isi kolom Nomor Identitas sesuai
dengan Nomor Identitas di kartu Identitas yang berlaku (Kartu Pelajar/Kartu
Mahasiswa/KTP/SIM/Paspor)
3. Setelah itu isi kolom No. HP yang masih aktif
sesuai dengan No. HP Pemesan
4. Setelah itu isi kolom E-mail. Masukkan E-mail
yang masih aktif dan dipergunakan karena kami akan mengirimkan Nomor Pemesanan
melalui E-mail Anda.
5. Kemudian pilih Tanggal, Bulan dan Tahun
keberangkatan. Pilihlah dengan sesuai.
6. Kemudian pilih Tujuan kota. Pilihlah dengan
sesuai.
7. Kemudian pilih Pilihan Kelas. Pastikan pilihan
Anda benar. Ketika anda pilih Pilihan Kelas akan keluar secara otomatis kolom Harga
dan Fasilitas yang akan Anda dapat.
8. Setelah itu masukkan Jumlah Penumpang di kolom
Jumlah Pesanan yang membeli tiket di Travel Agent. Pastikan benar. Kolom Total
Harga akan secara otomatis terisi apabila Anda telah memasukkan Jumlah
Penumpang di kolom Jumlah Pesanan.
9. Setelah semua terisi, klik tombol PESAN. Ingat!
Pastikan semua kolom telah terisi secara benar. Setelah itu akan muncul Pesan
Box yang berisi pemberitahuan bahwa Nomor Konfirmasi Pemesanan telah di kirim
ke E-mail Anda.
10. Penukaran Nomor Konfirmasi Pemesanan menjadi
bentuk Tiket dapat dilakukan di seluruh Counter Travel Agent di seluruh
Indonesia.
11. Terimakasih telah mempercayai Travel Agent sebagai
partner perjalanan Anda J
B. SOURCE CODE :
Public Class Form1
Dim hargatravel, jumlahpesanan As Integer
Dim vtujuan, vKota As String
Dim vGambar As Image
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a, b, c As Integer
Do While a <= 30
a = a + 1
CmbTanggal.Items.Add(a)
Loop
For b = 1 To 12
CmbBulan.Items.Add(MonthName(b))
Next
For c = 2015 To 2020
CmbTahun.Items.Add(c)
Next
End Sub
Private Sub CmbPilihanKelas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
CmbPilihanKelas.SelectedIndexChanged
If CmbTujuan.Text = "Jakarta" And CmbPilihanKelas.Text = "Bisnis" Then
ListBox1.Items.Clear()
TxtHarga.Text = "Rp. 60.000,-"
hargatravel = 60000
ListBox1.Items.Add("AC")
ListBox1.Items.Add("Toilet Dalam")
ListBox1.Items.Add("Seat 2-2")
ListBox1.Items.Add("Free Snack + Minum")
ElseIf CmbTujuan.Text = "Jakarta" And CmbPilihanKelas.Text = "Eksekutif" Then
ListBox1.Items.Clear()
TxtHarga.Text = "Rp. 100.000,-"
hargatravel = 100000
ListBox1.Items.Add("AC")
ListBox1.Items.Add("Toilet Dalam")
ListBox1.Items.Add("Seat 2-2")
ListBox1.Items.Add("Free Makan 1x + Snack + Minum")
ListBox1.Items.Add("TV + Audio")
End If
If CmbTujuan.Text = "Semarang" And CmbPilihanKelas.Text = "Bisnis" Then
ListBox1.Items.Clear()
TxtHarga.Text = "Rp. 100.000,-"
hargatravel = 100000
ListBox1.Items.Add("AC")
ListBox1.Items.Add("Toilet Dalam")
ListBox1.Items.Add("Seat 2-2")
ListBox1.Items.Add("Free Snack + Minum")
ElseIf CmbTujuan.Text = "Semarang" And CmbPilihanKelas.Text = "Eksekutif" Then
ListBox1.Items.Clear()
TxtHarga.Text = "Rp. 140.000,-"
hargatravel = 140000
ListBox1.Items.Add("AC")
ListBox1.Items.Add("Toilet Dalam")
ListBox1.Items.Add("Seat 2-2")
ListBox1.Items.Add("Free Makan 1x + Snack + Minum")
ListBox1.Items.Add("TV + Audio")
End If
If CmbTujuan.Text = "Surabaya" And CmbPilihanKelas.Text = "Bisnis" Then
ListBox1.Items.Clear()
TxtHarga.Text = "Rp. 150.000,-"
hargatravel = 150000
ListBox1.Items.Add("AC")
ListBox1.Items.Add("Toilet Dalam")
ListBox1.Items.Add("Seat 2-2")
ListBox1.Items.Add("Free Snack + Minum")
ElseIf CmbTujuan.Text = "Surabaya" And CmbPilihanKelas.Text = "Eksekutif" Then
ListBox1.Items.Clear()
TxtHarga.Text = "Rp. 200.000,-"
hargatravel = 200000
ListBox1.Items.Add("AC")
ListBox1.Items.Add("Toilet Dalam")
ListBox1.Items.Add("Seat 2-2")
ListBox1.Items.Add("Free Makan 1x + Snack + Minum")
ListBox1.Items.Add("TV + Audio")
End If
If CmbTujuan.Text = "Yogyakarta" And CmbPilihanKelas.Text = "Bisnis" Then
ListBox1.Items.Clear()
TxtHarga.Text = "Rp. 110.000,-"
hargatravel = 110000
ListBox1.Items.Add("AC")
ListBox1.Items.Add("Toilet Dalam")
ListBox1.Items.Add("Seat 2-2")
ListBox1.Items.Add("Free Snack + Minum")
ElseIf CmbTujuan.Text = "Semarang" And CmbPilihanKelas.Text = "Eksekutif" Then
ListBox1.Items.Clear()
TxtHarga.Text = "Rp. 150.000,-"
hargatravel = 150000
ListBox1.Items.Add("AC")
ListBox1.Items.Add("Toilet Dalam")
ListBox1.Items.Add("Seat 2-2")
ListBox1.Items.Add("Free Makan 1x + Snack + Minum")
ListBox1.Items.Add("TV + Audio")
End If
End Sub
Private Sub TxtJumlahPesanan_TextChanged_1(sender As Object, e As EventArgs) Handles
TxtJumlahPesanan.TextChanged
jumlahpesanan = TxtJumlahPesanan.Text
TxtTotalHarga.Text =
TxtJumlahPesanan.Text * hargatravel
End Sub
Private Sub CmbTujuan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
CmbTujuan.SelectedIndexChanged
vtujuan = CmbTujuan.SelectedItem
Select Case vtujuan
Case "Jakarta"
vGambar = PictureBox2.Image
PictureBox2.Image =
System.Drawing.Image.FromFile("F:\KOTA\Jakarta.jpg")
Case "Semarang"
vGambar = PictureBox2.Image
PictureBox2.Image =
System.Drawing.Image.FromFile("F:\KOTA\Semarang.jpg")
Case "Surabaya"
vGambar = PictureBox2.Image
PictureBox2.Image =
System.Drawing.Image.FromFile("F:\KOTA\Surabaya.jpg")
Case "Yogyakarta"
vGambar = PictureBox2.Image
PictureBox2.Image =
System.Drawing.Image.FromFile("F:\KOTA\Yogyakarta.jpg")
End Select
End Sub
Private Sub BtnPesan_Click(sender As Object, e As EventArgs) Handles BtnPesan.Click
If Val(TxtTotalHarga.Text) Then
MessageBox.Show("Pesanan Anda
Diterima. Nomor Konfirmasi Pemesanan telah dikirim ke E-mail Anda. Terimakasih
Telah Melakukan Pesanan Di Travel Agent :)")
Else
MessageBox.Show("Data Belum
Lengkap! Silahkan Isi Semua Form Pemesanan!")
End If
End Sub
End Class
