Aplikasi VB.Net - UTS Konsep Pemrograman - Sarah Awliya Dini - 1406629830

Nama    : Sarah Awliya Dini

NPM      : 1406629830

UTS Konsep Pemograman

FORM PEMBELIAN TIKET PESAWAT ONLINE

Maskapai Penerbangan "Rajawali Indonesia”

Disini saya membuat form pembelian tiket pesawat online maskapai penerbangan “Rajawali Indonesia” yang terdiri dari :

Textbox nomer pemesanan tiket

Textbox ini akan diisi oleh petugas registrasi maskapai penerbangan “Rajawali Indonesia” setelah pemesan tiket sudah mengisi semua step dari prosedur pemesanan tiket pesawat online. (Misalnya : Nomer pemesanan tiket adalah 123456).

Combobox tanggal pemesanan

Combobox ini terdiri dari tanggal, bulan dan tahun yang akan diisi oleh pemesan tiket sebagai data tanggal si pemesan tiket memesanan tiket online. (Misalnya si pemesan memilih tanggal 18 April 2015).

    












Textbox nama lengkap

Textbox ini akan diisi oleh pemesan tiket dengan nama lengkap si pemesan tiket sebagai data untuk registrasi dan arsip pihak maskapai penerbangan. (Ex : Nama pemesannya adalah Sarah Awliya Dini).

Groupbox jenis kelamin

Groupbox ini terdiri dari dua radio button, yaitu radio button laki-laki dan radio button perempuan yang bisa dipilih sesuai keinginan pemesan tiket dan pilihannya tersebut akan muncul pada textbox di sebelah kirinya.

Textbox asal keberangkatan

Textbox ini akan diisi oleh pemesan tiket sebagai data tempat keberangkatan si pemesan tiket. (Contoh : Asal keberangkatannya adalah Jakarta).

Combobox tujuan keberangkatan

Combobox ini berisi pilihan tempat tujuan pemesan tiket, yaitu : Aceh, Bali, Bandar Lampung, Makassar, Padang, Pontianak, Riau, Semarang, Surabaya, dan Timika Papua. Pemesan tiket dapat memilih tujuan sesuai dengan tujuan yang diinginkannya. (Dalam kasus ini, contohnya pemesan memilih tujuan Timika Papua).

Date time picker tanggal keberangkatan

Yang berbentuk seperti kalender, dimana si pemesan tiket dapat memilih tanggal, bulan dan tahun keberangkatan yang ingin di pesan. (Contohnya : pemesan ingin memilih tanggal 25 April 2015, sebagai tanggal keberangkatannya).

Groupbox kategori

Groupbox ini berisi pilihan yang disediakan untuk pembeli tiket online agar dapat memilih kategori pesawat yang diinginkan, apakah itu pesawat kelas bisnis ataupun ekonomi yang nantinya pilihan si pemesan tersebut akan muncul dalam textbox yang ada di sebelah kirinya.  (Dalam kasus ini, pemesan ingin memesan tiket pesawat kategori bisnis).

Picturebox kategori

Picturebox ini akan berubah dari yang awalnya bergambar seperti yang dapat dilihat (gambar 1, paling atas), menjadi (gambar 2, tengah) ketika radio button bisnis di klik dan berubah menjadi (gambar 3, paling bawah) ketika radio button ekonomi di klik.

Textbox jam keberangkatan dan Textbox jam ketibaan

Textbox ini akan otomatis terisi sesuai jadwal yang sudah ditentukan oleh pihak maskapai penerbangan “Rajawali Indonesia” yang tergantung pada tujuan dan kategori yang dipilih oleh pemesan tiket. Berikut ini adalah data jam keberangkatan dan jam ketibaan pesawat sesuai dengan kategorinya :

Tujuan	Jam Keberangkatan		Jam Ketibaan
	Kategori Bisnis	Kategori Ekonomi	Kategori Bisnis	Kategori Ekonomi
Aceh	13.00	17.00	16.20	20.30
Bali	12.00	16.00	14.35	18.55
Bandar Lampung	12.30	17.30	15.35	20.10
Makassar	13.30	17.30	16.10	20.45
Padang	13.00	17.00	16.20	20.30
Pontianak	13.20	17.10	16.10	20.25
Riau	13.30	17.45	16.55	21.15
Semarang	11.50	15.50	14.25	18.45
Surabaya	13.45	17.45	16.25	21.00
Timika Papua	14.15	18.15	17.30	21.45

(Karena dalam kasus ini pemesan ingin berangkat ke tujuan Timika Papua dan memilih kategori bisnis, maka jam keberangkatannya adalah 14.15 dan jam ketibaannya adalah 17.30).

Textbox harga tiket satuan

Textbox ini juga akan otomatis terisi sesuai dengan harga tiket yang sudah ditetapkan oleh pihak maskapai penerbangan “Rajawali Indonesia” tergantung pada jauhnya tujuan keberangkatan dan kategori penerbangan. Berikut ini adalah daftar harga dari masing-masing tujuan dan kategori penerbangan :

Tujuan	Harga Tiket Satuan (Rupiah)
	Kategori Bisnis	Kategori Ekonomi
Aceh	2.300.000	1.900.000
Bali	2.250.000	1.750.000
Bandar Lampung	2.500.000	2.250.000
Makassar	2.850.000	2.650.000
Padang	2.300.000	1.900.000
Pontianak	2.850.000	2.650.000
Riau	2.250.000	1.950.000
Semarang	2.350.000	1.950.000
Surabaya	2.650.000	2.375.000
Timika Papua	3.950.000	3.775.000

(Karena dalam kasus ini pemesan tiket memilih kategori bisnis dengan tujuan keberangkatan ke Timika Papua, maka harga tiket satuannya adalah senilai Rp. 3.950.000,-).

Textbox jumlah pemesanan tiket

Textbox ini ada diisi oleh pemesan tiket pesawat online sesuai dengan berapa jumlah tiket yang akan ia pesan. Isi dari textbox ini akan membuat textbox total dan pajak terisi secara otomatis. (Misalnya pemesan tiket ingin memesan tiket sebanyak 2 buah).

Textbox biaya administrasi

Textbox ini akan terisi otomatis sesuai dengan biaya administrasi yang sudah ditentukan oleh pihak maskapai penerbangan “Rajawali Indonesia” sesuai dengan kategori penerbangan yang dipilih oleh pemesan tiket. Adapun biaya administrasinya adalah sebagai berikut :

a.)    Kategori Bisnis     : Rp 200.000,-

b.)    Kategori Ekonomi  : Rp 150.000,-

(*Biaya administrasi tidak tergantung oleh jumlah pemesanan tiket pesawat).

(Karena dalam kasus ini pemesan tiket memilih kategori bisnis, maka biaya administrasi yang dikenakan adalah senilai Rp. 200.000,-).
 

Textbox pajak

Textbox ini juga akan terisi secara otomatis ketika jumlah pemesanan tiket di input sesuai dengan kebijakan yang sudah ditentukan oleh pihak maskapai penerbangan “Rajawali Indonesia”, yaitu pemungutan pajak sebesar 2,5 % dari total jumlah pembelian tiket ditambah dengan biaya administrasi.

Textbox total pembayaran

Textbox ini akan terisi secara otomatis apabila button “hitung total akhir” diklik. Textbox ini akan menampilkan total keseluruhan dari biaya yang harus dibayarkan oleh si pemesan tiket pesawat.

     

  

      Button save

Apabila di klik, button ini akan membuat data nomer pemesanan, nama lengkap pemesan, jenis kelamin, asal keberangkatan, tujuan keberangkatan, dan total pembayaran tersimpan dalam listbox yang berada di samping kanan button reset dan save.

    











Button selesai

Button ini digunakan untuk pemesan tiket mengakhiri step by step langkah pengisi form pemesanan tiket online. Apabila button ini di klik, maka akan muncul :

Lalu, apabila pengisi form menekan button yes maka ia akan keluar dari aplikasi pengisian form pemesanan tiket pesawat online tersebut. Namun apabila ia menekan button no, maka ia akan kembali ke halaman form pemesanan tiket pesawat online dengan menampilkan data yang sudah ia isi sebelumnya.

Button reset

Button ini digunakan untuk mengembalikan form seperti sediakala sebelum diisikan identitas apapun oleh pemesannya. Apabila button ini di klik, maka data yang sudah terisi sebelumnya akan otomatis terhapus kecuali listbox yang berfungsi sebagai penyimpan data.

SOURCE CODE

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim tanggal As Integer

        For tanggal = 1 To 31

            ComboBoxTanggal.Items.Add(tanggal)

        Next

        Dim tahun As Integer

        tahun = 2013

        Do

            ComboBoxTahun.Items.Add(tahun)

            tahun = tahun + 1

        Loop Until tahun >= 2020

        PictureBox1.Visible = True

        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Sarah awliya dini\Documents\Visual Studio 2013\Projects\UTS Konsep Pemrograman - Sarah Awliya Dini - 1406629830\WindowsApplication7\pesawat.jpg")

       

    End Sub

    Private Sub RadioButtonLaki_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonLaki.CheckedChanged

        TextBoxJenisKelamin.Text = RadioButtonLaki.Text

    End Sub

    Private Sub RadioButtonPerempuan_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonPerempuan.CheckedChanged

        TextBoxJenisKelamin.Text = RadioButtonPerempuan.Text

    End Sub

    Private Sub TextBoxJumlahPemesanan_lostfocus(sender As Object, e As EventArgs) Handles TextBoxJumlahPemesanan.LostFocus

        TextBoxTotal.Text = ((TextBoxHargaSatuan.Text * TextBoxJumlahPemesanan.Text) + Val(TextBoxAdministrasi.Text))

        TextBoxPajak.Text = (0.025 * TextBoxTotal.Text)

    End Sub

    Private Sub ButtonSelesai_Click(sender As Object, e As EventArgs) Handles ButtonSelesai.Click

        If (MsgBox("Anda yakin sudah mengisi form dengan benar?", vbYesNo + MsgBoxStyle.Question, "Konfirmasi") = vbYes) Then

            Me.Close()

        End If

    End Sub

    Private Sub ButtonReset_Click(sender As Object, e As EventArgs) Handles ButtonReset.Click

        TextBoxAdministrasi.Text = ""

        TextBoxAsal.Text = ""

        TextBoxHargaSatuan.Text = ""

        TextBoxJenisKelamin.Text = ""

        TextBoxJumlahPemesanan.Text = ""

        TextBoxKeberangkatan.Text = ""

        TextBoxKetibaan.Text = ""

        TextBoxNamaLengkap.Text = ""

        TextBoxNomerPemesanan.Text = ""

        TextBoxPajak.Text = ""

        TextBoxTotal.Text = ""

        TextBoxTotalPembayaran.Text = ""

        ComboBoxTahun.Text = ""

        ComboBoxTanggal.Text = ""

        ComboBoxBulan.Text = ""

        ComboBoxTujuan.Text = ""

        TextBoxKategori.Text = ""

        RadioButtonPerempuan.Checked = False

        RadioButtonLaki.Checked = False

        RadioButtonBisnis.Checked = False

        RadioButtonEkonomi.Checked = False

        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Sarah awliya dini\Documents\Visual Studio 2013\Projects\UTS Konsep Pemrograman - Sarah Awliya Dini - 1406629830\WindowsApplication7\pesawat.jpg")

        TextBoxNomerPemesanan.Focus()

    End Sub

    Private Sub ButtonTotalAkhir_Click(sender As Object, e As EventArgs) Handles ButtonTotalAkhir.Click

        TextBoxTotalPembayaran.Text = Val(TextBoxTotal.Text) + Val(TextBoxPajak.Text)

    End Sub

    Private Sub RadioButtonBisnis_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonBisnis.CheckedChanged

        TextBoxKategori.Text = RadioButtonBisnis.Text

        PictureBox1.Visible = True

        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Sarah awliya dini\Documents\Visual Studio 2013\Projects\UTS Konsep Pemrograman - Sarah Awliya Dini - 1406629830\WindowsApplication7\Bisnis.JPG")

    End Sub

    Private Sub RadioButtonEkonomi_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonEkonomi.CheckedChanged

        TextBoxKategori.Text = RadioButtonEkonomi.Text

        PictureBox1.Visible = True

        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Sarah awliya dini\Documents\Visual Studio 2013\Projects\UTS Konsep Pemrograman - Sarah Awliya Dini - 1406629830\WindowsApplication7\Interior Pesawat Kelas Ekonomi.jpg")

    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub ButtonSave_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click

        ListBox1.Items.Add(TextBoxNomerPemesanan.Text)

        ListBox1.Items.Add(TextBoxNamaLengkap.Text)

        ListBox1.Items.Add(TextBoxJenisKelamin.Text)

        ListBox1.Items.Add(TextBoxAsal.Text)

        ListBox1.Items.Add(ComboBoxTujuan.Text)

        ListBox1.Items.Add(TextBoxTotalPembayaran.Text)

    End Sub

    Private Sub TextBoxKategori_TextChanged(sender As Object, e As EventArgs) Handles TextBoxKategori.TextChanged

        If ComboBoxTujuan.Text = "Aceh" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "13.00"

            TextBoxKetibaan.Text = "16.20"

            TextBoxHargaSatuan.Text = "2300000"

        ElseIf ComboBoxTujuan.Text = "Aceh" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "17.00"

            TextBoxKetibaan.Text = "20.30"

            TextBoxHargaSatuan.Text = "1900000"

        End If

        If ComboBoxTujuan.Text = "Bali" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "12.00"

            TextBoxKetibaan.Text = "14.35"

            TextBoxHargaSatuan.Text = "2250000"

        ElseIf ComboBoxTujuan.Text = "Bali" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "16.00"

            TextBoxKetibaan.Text = "18.55"

            TextBoxHargaSatuan.Text = "1750000"

        End If

        If ComboBoxTujuan.Text = "Bandar Lampung" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "12.30"

            TextBoxKetibaan.Text = "15.35"

            TextBoxHargaSatuan.Text = "2500000"

        ElseIf ComboBoxTujuan.Text = "Bandar Lampung" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "17.30"

            TextBoxKetibaan.Text = "20.10"

            TextBoxHargaSatuan.Text = "2250000"

        End If

        If ComboBoxTujuan.Text = "Makassar" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "13.30"

            TextBoxKetibaan.Text = "16.10"

            TextBoxHargaSatuan.Text = "2850000"

        ElseIf ComboBoxTujuan.Text = "Makassar" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "17.30"

            TextBoxKetibaan.Text = "20.45"

            TextBoxHargaSatuan.Text = "2650000"

        End If

        If ComboBoxTujuan.Text = "Padang" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "13.00"

            TextBoxKetibaan.Text = "16.20"

            TextBoxHargaSatuan.Text = "2300000"

        ElseIf ComboBoxTujuan.Text = "Padang" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "17.00"

            TextBoxKetibaan.Text = "20.30"

            TextBoxHargaSatuan.Text = "1900000"

        End If

        If ComboBoxTujuan.Text = "Pontianak" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "13.20"

            TextBoxKetibaan.Text = "16.10"

            TextBoxHargaSatuan.Text = "2850000"

        ElseIf ComboBoxTujuan.Text = "Pontianak" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "17.10"

            TextBoxKetibaan.Text = "20.25"

            TextBoxHargaSatuan.Text = "2650000"

        End If

        If ComboBoxTujuan.Text = "Riau" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "13.30"

            TextBoxKetibaan.Text = "16.55"

            TextBoxHargaSatuan.Text = "2250000"

        ElseIf ComboBoxTujuan.Text = "Riau" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "17.45"

            TextBoxKetibaan.Text = "21.15"

            TextBoxHargaSatuan.Text = "1950000"

        End If

        If ComboBoxTujuan.Text = "Semarang" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "11.50"

            TextBoxKetibaan.Text = "14.25"

            TextBoxHargaSatuan.Text = "2350000"

        ElseIf ComboBoxTujuan.Text = "Semarang" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "15.50"

            TextBoxKetibaan.Text = "18.45"

            TextBoxHargaSatuan.Text = "1950000"

        End If

        If ComboBoxTujuan.Text = "Surabaya" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "13.45"

            TextBoxKetibaan.Text = "16.25"

            TextBoxHargaSatuan.Text = "2650000"

        ElseIf ComboBoxTujuan.Text = "Surabaya" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "17.45"

            TextBoxKetibaan.Text = "21.00"

            TextBoxHargaSatuan.Text = "2375000"

        End If

        If ComboBoxTujuan.Text = "Timika Papua" And TextBoxKategori.Text = "Bisnis" Then

            TextBoxKeberangkatan.Text = "14.15"

            TextBoxKetibaan.Text = "17.30"

            TextBoxHargaSatuan.Text = "3950000"

        ElseIf ComboBoxTujuan.Text = "Timika Papua" And TextBoxKategori.Text = "Ekonomi" Then

            TextBoxKeberangkatan.Text = "18.15"

            TextBoxKetibaan.Text = "21.45"

            TextBoxHargaSatuan.Text = "3775000"

        End If

        Dim kategori As String

        kategori = TextBoxKategori.Text

        Select kategori

            Case "Bisnis"

                TextBoxAdministrasi.Text = "200000"

            Case "Ekonomi"

                TextBoxAdministrasi.Text = "150000"

        End Select

    End Sub

End Class