Aplikasi Tiket Pesawat Sederhana

Cara Pembuatan Aplikasi Pemesanan atau Pembelian Tiket Pesawat

Penjelasan Aplikasi Pada dasarnya bisnis penjualan tiket Online merupakan bisnis yang bisa jalankan oleh siapa saja, asalkan ada kemauan untuk berbisnis semuanya dapat terwujud. Kini banyak perusahaan yang menawarkan kepada para pebinis untuk menjadi agen travel atau penjual tiket pesawat. Bisnis penjualan tiket pesawat lebih mudah karena dapat dijalankan di mana saja asalkan terdapat koneksi internet untuk menjual tiket. Keuntungan penjualan tiket pesawat juga cukup besar dan modal yang dibutuhkan untuk mendaftar menjadi Agen Travel cukup terjangkau. Terinspirasi dari hal tersebut, Kami mencoba untuk membuat program sederhana penjualan tiket Pesawat menggunakan Visual Studio. Program ini dibuat untuk menambah informasi dan tidak dapat diterapkan pada bisnis penjualan tiket Pesawat Online. Berikut ini tahapan-tahapan pembuatan program penjualan tiket  Pesawat 

1. Buka Aplikasi Visual Studio 2013
Buka software Visual Studio dan selanjutnya membuat sebuah project baru dengan memilih File > New project

2. Pilih Windows  Form Application >Beri nama App agar dapat mudah di ingat > OK  

3. Lalu Mulai mendisain App Dengan cara menggunakan tools di sebelah kiri

Buat Desain App Pesawat seperti berikut ini 

4.Setelah Desain selesai,masukan script pada tools tools,berikut ini scriptnya

Imports word = Microsoft.Office.Interop.Word

Public Class Form1

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

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

    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim aplikasi As New word.Application

        Dim file As New word.Document

        file = aplikasi.Documents.Open("C:\Users\vian\Documents\Custom Office Templates\all tiket\tiketpesawat.docx")

file.Bookmarks("NAMA").Select()

        aplikasi.Selection.TypeText(tb_nama.Text)

        file.Bookmarks("NIK").Select()

        aplikasi.Selection.TypeText(tb_nik.Text)

        file.Bookmarks("DARI").Select()

        aplikasi.Selection.TypeText(cb_asal.Text)

        file.Bookmarks("TUJUAN").Select()

        aplikasi.Selection.TypeText(cb_tujuan.Text)

        file.Bookmarks("TANGGAL").Select()

        aplikasi.Selection.TypeText(dtp_tanggal.Text)

        file.Bookmarks("TOTAL").Select()

        aplikasi.Selection.TypeText(tb_total.Text)

        file.SaveAs2("C:\Users\vian\Documents\Custom Office Templates\hasil\garuda\Transaksi.docx")

        aplikasi.Visible = True

    End Sub

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

        Dim a As Control

        For Each a In Me.Controls

            If TypeOf a Is TextBox Then

                a.Text = ""

            End If

        Next

    End Sub

    Private Sub cb_asal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_asal.SelectedIndexChanged

      

    End Sub

    Private Sub cb_tujuan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_tujuan.SelectedIndexChanged

        If cb_tujuan.Text = "JAKARTA" Then

            tb_harga1.Text = "450.000"

        ElseIf cb_tujuan.Text = "SURABAYA" Then

            tb_harga1.Text = "400.000"

        ElseIf cb_tujuan.Text = "DENPASAR" Then

            tb_harga1.Text = "500.000"

        ElseIf cb_tujuan.Text = "MALANG" Then

            tb_harga1.Text = "250.000"

        End If

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles tb_harga1.TextChanged

       

    End Sub

    Private Sub bt_proses_Click(sender As Object, e As EventArgs) Handles bt_proses.Click

        tb_total.Text = Val(tb_harga1.Text) * Val(txtjumlah.Text)

    End Sub

    Private Sub nud_jumlah_ValueChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

    End Sub

    Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click

    End Sub

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

        Dim aplikasi As New word.Application

        Dim file As New word.Document

        file = aplikasi.Documents.Open("C:\Users\vian\Documents\Custom Office Templates\all tiket\tiketlion.docx")

        file.Bookmarks("nama").Select()

        aplikasi.Selection.TypeText(tb_nama.Text)

        file.Bookmarks("nik").Select()

        aplikasi.Selection.TypeText(tb_nik.Text)

        file.Bookmarks("asal").Select()

        aplikasi.Selection.TypeText(cb_asal.Text)

        file.Bookmarks("tujuan").Select()

        aplikasi.Selection.TypeText(cb_tujuan.Text)

        file.Bookmarks("tanggal").Select()

        aplikasi.Selection.TypeText(dtp_tanggal.Text)

        file.Bookmarks("total").Select()

        aplikasi.Selection.TypeText(tb_total.Text)

        file.SaveAs2("C:\Users\vian\Documents\Custom Office Templates\hasil\lion\Transaksi.docx")

        aplikasi.Visible = True

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim aplikasi As New word.Application

        Dim file As New word.Document

        file = aplikasi.Documents.Open("C:\Users\vian\Documents\Custom Office Templates\all tiket\tiketsriwijaya.docx")

        file.Bookmarks("nama").Select()

        aplikasi.Selection.TypeText(tb_nama.Text)

        file.Bookmarks("nik").Select()

        aplikasi.Selection.TypeText(tb_nik.Text)

        file.Bookmarks("asal").Select()

        aplikasi.Selection.TypeText(cb_asal.Text)

        file.Bookmarks("tujuan").Select()

        aplikasi.Selection.TypeText(cb_tujuan.Text)

        file.Bookmarks("tanggal").Select()

        aplikasi.Selection.TypeText(dtp_tanggal.Text)

        file.Bookmarks("total").Select()

        aplikasi.Selection.TypeText(tb_total.Text)

        file.SaveAs2("C:\Users\vian\Documents\Custom Office Templates\hasil\sriwijaya\Transaksi.docx")

        aplikasi.Visible = True

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim aplikasi As New word.Application

        Dim file As New word.Document

        file = aplikasi.Documents.Open("C:\Users\vian\Documents\Custom Office Templates\all tiket\Tiketmerpati.docx")

        file.Bookmarks("nama").Select()

        aplikasi.Selection.TypeText(tb_nama.Text)

        file.Bookmarks("nik").Select()

        aplikasi.Selection.TypeText(tb_nik.Text)

        file.Bookmarks("asal").Select()

        aplikasi.Selection.TypeText(cb_asal.Text)

        file.Bookmarks("tujuan").Select()

        aplikasi.Selection.TypeText(cb_tujuan.Text)

        file.Bookmarks("tanggal").Select()

        aplikasi.Selection.TypeText(dtp_tanggal.Text)

        file.Bookmarks("total").Select()

        aplikasi.Selection.TypeText(tb_total.Text)

        file.SaveAs2("C:\Users\vian\Documents\Custom Office Templates\hasil\merpati\Transaksi.docx")

        aplikasi.Visible = True

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Dim aplikasi As New word.Application

        Dim file As New word.Document

        file = aplikasi.Documents.Open("C:\Users\vian\Documents\Custom Office Templates\all tiket\Tiketciti.docx")

        file.Bookmarks("nama").Select()

        aplikasi.Selection.TypeText(tb_nama.Text)

        file.Bookmarks("nik").Select()

        aplikasi.Selection.TypeText(tb_nik.Text)

        file.Bookmarks("asal").Select()

        aplikasi.Selection.TypeText(cb_asal.Text)

        file.Bookmarks("tujuan").Select()

        aplikasi.Selection.TypeText(cb_tujuan.Text)

        file.Bookmarks("tanggal").Select()

        aplikasi.Selection.TypeText(dtp_tanggal.Text)

        file.Bookmarks("total").Select()

        aplikasi.Selection.TypeText(tb_total.Text)

        file.SaveAs2("C:\Users\vian\Documents\Custom Office Templates\hasil\citilink\Transaksi.docx")

        aplikasi.Visible = True

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

        Dim aplikasi As New word.Application

        Dim file As New word.Document

        file = aplikasi.Documents.Open("C:\Users\vian\Documents\Custom Office Templates\all tiket\Tiketair.docx")

        file.Bookmarks("nama").Select()

        aplikasi.Selection.TypeText(tb_nama.Text)

        file.Bookmarks("nik").Select()

        aplikasi.Selection.TypeText(tb_nik.Text)

        file.Bookmarks("asal").Select()

        aplikasi.Selection.TypeText(cb_asal.Text)

        file.Bookmarks("tujuan").Select()

        aplikasi.Selection.TypeText(cb_tujuan.Text)

        file.Bookmarks("tanggal").Select()

        aplikasi.Selection.TypeText(dtp_tanggal.Text)

        file.Bookmarks("total").Select()

        aplikasi.Selection.TypeText(tb_total.Text)

        file.SaveAs2("C:\Users\vian\Documents\Custom Office Templates\hasil\airasia\Transaksi.docx")

        aplikasi.Visible = True

    End Sub

End Class

5.Hasil Program ada di word 

Langkah terakhir adalah menjalankan program dengan memilih Run Project(F5) . Selanjutnya akan muncul program yang telah Anda buat. Pada program penjualan tiket pesawat, Anda dapat input nama, input nik, pilih jenis pesawat, pilih jurusan, pilih tanggal pergi, input jumlah tiket dan total bayar. Bila dipilih button proses maka akan muncul beberapa informasi tentang pemesanan tiket pesawat

Terima kasih sudah melihat di blog saya mohon maaf kalo ada kesalahan saya masih mempelajari menggunakan aplikasi visual studio