Contoh Aplikasi Ms. Visual Studio Basic (Heaven's Airplane Ticket)

Nama:
Alfath Dilon

NPM:
1406629490

Jurusan:
Akuntansi Teknologi Sistem Informasi

Kali ini, saya akan memperkenalkan sebuah aplikasi sederhana tentang pemesanan tiket pesawat beserta form data pemesanannya. Aplikasi ini berguna untuk mempermudah orang untuk mengakses cara mendapatkan tiket pesawat dengan mudah.
Aplikasi ini saya namakan Heaven's Airplane Ticket.
Berikut langkah-langkah membuat aplikasi tersebut:

1. Buka Ms. Visual Studio dari PC anda, dan pada kesempatan kali ini saya akan menggunakan Ms. Visual Studio 2012. Setelah jendela Visual Basic terbuka, klik File > New > Project atau tekan Ctrl+Shift+N.

2. Kemudian, pada jendela New Project, pilih menu Visual Basic > Windows Forms Application seperti gambar berikut:

Kemudian beri nama pada Project anda di bagian sisi bawah, lalu klik OK

3. Setelah area kerja terbuka, anda sudah bisa memulai mendesain form dari Project tersebut. Disini saya membuat form dengan beberapa toolbox, sebagai berikut:

• 1 Combo Text
• 8 Label Text
• 6 Text Box
• 3 Button Box

Hasil desainnya sebagai berikut:

4. Kemudian masukkan Coding yang anda perlukan, contoh codingnya sebagai berikut:

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles code.SelectedIndexChanged

        If code.Text = "JordBot787" Then

            txtairlines.Text = "Jordan Airlines"

            txtprice.Text = "12000000"

            txttakeoff.Text = "09.00 a.m"

            txtarrival.Text = "05.00 p.m"

        End If

        If code.Text = "DiloBot787" Then

            txtairlines.Text = "Dilon Airlines"

            txtprice.Text = "15000000"

            txttakeoff.Text = "12.00 a.m"

            txtarrival.Text = "08.00 p.m"

        End If

        If code.Text = "AjoBot787" Then

            txtairlines.Text = "Ajo Airlines"

            txtprice.Text = "18000000"

            txttakeoff.Text = "03.00 p.m"

            txtarrival.Text = "11.00 p.m"

        End If

        If code.Text = "GiaBot787" Then

            txtairlines.Text = "Gianfranco Airlines"

            txtprice.Text = "21000000"

            txttakeoff.Text = "06.00 p.m"

            txtarrival.Text = "02.00 a.m"

        End If

        If code.Text = "UmaBot787" Then

            txtairlines.Text = "Ummaira Airlines"

            txtprice.Text = "24000000"

            txttakeoff.Text = "09.00 p.m"

            txtarrival.Text = "05.00 a.m"

        End If

    End Sub

   

    Private Sub btnproceed_Click(sender As Object, e As EventArgs) Handles btnproceed.Click

        txtcost.Text = txttickets.Text * txtprice.Text

    End Sub

    Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click

        code.Text = ""

        txtairlines.Text = ""

        txtarrival.Text = ""

        txtcost.Text = ""

        txtprice.Text = ""

        txttakeoff.Text = ""

        txtarrival.Text = ""

        txttickets.Text = ""

    End Sub

    Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click

        End

    End Sub

End Class

Gambarnya sebagai berikut:

5. Lalu Save Project anda dengan menekan File > Save All.

Berikut contoh aplikasinya setelah dijalankan:

Sekian dari saya, terimakasih!

Selamat Bekerja :)