Visual Basic merupakan salah satu Aplikasi Developer. Disini akan dibahas pembuatan program sederhana menggunakan Visual Basic .Net
Pertama, desain bentuk dari program yang ingin kita buat. Dalam tutor ini, saya ingin membuat sebuah program penjualan tiket pesawat. Dimana didalamnya terdapat logika matematika.

1) DESAIN PROGRAM SESUAI DENGAN GAMBAR DI BAWAH INI


#Form
Name form : PEMBAYARAN_TIKET
Text form : PENJUALAN TIKET PESAWAT

#Button
Name : Button_proses
Text     : PROSES

Name : Button_hapus
Text     : HAPUS

Name : Button_keluar
Text     : KELUAR

#Label
NO. PENJUALAN
Name : Label_penjualan

TANGGAL
Name : Label_tanggal

TUJUAN
Name : Label_tujuan

MASKAPAI
Name : Label_maskapai

JUMLAH  PENUMPANG 
Name : Label_jumlahpenumpang

POTONGAN
Name : Label_potongan

PAJAK
Name : Label_pajak

TOTAL BIAYA
Name : Label_total

#DateTimePicker
Name : DateTimePicker1

# textbox
Textbox nomor penjualan
Name : TextBox_penjualan
Text     : “kosong”

Textbox potongan
Name : TextBox_potongan
Text     : “kosong”

Textbox pajak
Name : TextBox_pajak
Text     : “kosong”

Textbox total biaya
Name : TextBox_total
Text     : “kosong”

#Combobox
Combobox tujuan
Name : Combo_tujuan
Text         : “kosong”

Combobox maskapai
Name : Combo_maskapai
Text     : “kosong”

Combobox jumlah penumpang
Name : Combo_penumpang
Text     : “kosong”


2) COPY PASTE KAN CODE DIBAWAH INI

       
Public Class PEMBAYARAN_TIKET
	Private Sub Button_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_keluar.Click
		MsgBox("Good bye")
		If MsgBoxResult.Yes Then 
			Me.Close()
		End If
	End Sub

	Private Sub Button_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_hapus.Click

		TextBox_penjualan.Text = ""
		TextBox_potongan.Text = ""
		TextBox_total.Text = ""
		DateTimePicker1.Text = Now
		Combo_tujuan.Text = "pilih"
        Combo_maskapai.Text = "pilih"
        Combo_penumpang.Text = "pilih"
    End Sub

    Private Sub PEMBAYARAN_TIKET_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TextBox_penjualan.Text = "001"
        Combo_maskapai.Items.Add("MERPATI")
        Combo_maskapai.Items.Add("GARUDA")
        Combo_maskapai.Items.Add("ADAM AIR")
        Combo_maskapai.Items.Add("LION AIR")
        Combo_penumpang.Items.Add("1")
        Combo_penumpang.Items.Add("2")
        Combo_penumpang.Items.Add("3")
        Combo_penumpang.Items.Add("4")
        Combo_penumpang.Items.Add("5")
        Combo_penumpang.Items.Add("6")
        Combo_penumpang.Items.Add("7")
        Combo_penumpang.Items.Add("8")
        Combo_penumpang.Items.Add("9")
        Combo_penumpang.Items.Add("10")
        Combo_penumpang.Items.Add("11")
        Combo_penumpang.Items.Add("12")
        Combo_penumpang.Items.Add("13")
        Combo_penumpang.Items.Add("14")
        Combo_penumpang.Items.Add("15")
        Combo_tujuan.Items.Add("MEDAN-BATAM")
        Combo_tujuan.Items.Add("MEDAN-JAKARTA")
        Combo_tujuan.Items.Add("MEDAN-SURABAYA")
        MsgBox("ISI DATA DENGAN BENAR")
        TextBox_pajak.Text = "10%"
    End Sub


    Private Sub TextBox_potongan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox_potongan.Click
        If Combo_penumpang.Text > 10 Then
            TextBox_potongan.Text = "20%"
        ElseIf Combo_penumpang.Text > 5 Then
            TextBox_potongan.Text = "10%"
        ElseIf Combo_penumpang.Text < 5 Then
            TextBox_potongan.Text = ""
        ElseIf Combo_penumpang.Text = "5" Then
            TextBox_potongan.Text = ""
        End If
    End Sub

    Private Sub Button_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_proses.Click
        If TextBox_penjualan.Text = "" Then
            MsgBox("ISI NOMOR")
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 1100000 - Combo_penumpang.Text * 1100000 * 20 / 100
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 1100000 - Combo_penumpang.Text * 1100000 * 10 / 100
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 1100000
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 1100000

        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 2200000 - Combo_penumpang.Text * 2200000 * 20 / 100
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 2200000 - Combo_penumpang.Text * 2200000 * 10 / 100
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 2200000
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 2200000

        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 3300000 - Combo_penumpang.Text * 3300000 * 20 / 100
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 3300000 - Combo_penumpang.Text * 3300000 * 10 / 100
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 3300000
        ElseIf Combo_maskapai.Text = "MERPATI" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 3300000
        End If

        If Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 880000 - Combo_penumpang.Text * 880000 * 20 / 100
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 880000 - Combo_penumpang.Text * 880000 * 10 / 100
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 880000
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 880000

        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 1980000 - Combo_penumpang.Text * 1980000 * 20 / 100
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 1980000 - Combo_penumpang.Text * 1980000 * 10 / 100
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 1980000
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 1980000

        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 3080000 - Combo_penumpang.Text * 3080000 * 20 / 100
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 3080000 - Combo_penumpang.Text * 3080000 * 10 / 100
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 3080000
        ElseIf Combo_maskapai.Text = "GARUDA" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 3080000
        End If



        If Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 770000 - Combo_penumpang.Text * 770000 * 20 / 100
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 770000 - Combo_penumpang.Text * 770000 * 10 / 100
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 770000
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 770000

        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 1870000 - Combo_penumpang.Text * 1870000 * 20 / 100
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 1870000 - Combo_penumpang.Text * 1870000 * 10 / 100
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 1870000
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 1870000

        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 2970000 - Combo_penumpang.Text * 2970000 * 20 / 100
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 2970000 - Combo_penumpang.Text * 2970000 * 10 / 100
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 2970000
        ElseIf Combo_maskapai.Text = "ADAM AIR" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 2970000
        End If

        If Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 660000 - Combo_penumpang.Text * 660000 * 20 / 100
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 660000 - Combo_penumpang.Text * 660000 * 20 / 100
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 660000
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-BATAM" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 660000

        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 1760000 - Combo_penumpang.Text * 1760000 * 20 / 100
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 1760000 - Combo_penumpang.Text * 1760000 * 10 / 100
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 1760000
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-JAKARTA" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 1760000

        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text > 10 Then
            TextBox_total.Text = Combo_penumpang.Text * 2860000 - Combo_penumpang.Text * 2860000 * 20 / 100
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text > 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 2860000 - Combo_penumpang.Text * 2860000 * 20 / 100
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text < 5 Then
            TextBox_total.Text = Combo_penumpang.Text * 2860000
        ElseIf Combo_maskapai.Text = "LION AIR" And Combo_tujuan.Text = "MEDAN-SURABAYA" And Combo_penumpang.Text = "5" Then
            TextBox_total.Text = Combo_penumpang.Text * 2860000
        End If
    End Sub
End Class

3) TEKAN F5 UNTUK MENJALANKAN HASIL PROGRAM TERSEBUT
Tags

Post a Comment

let me see your comments . . .

Post a Comment

let me see your comments . . .

Previous Post Next Post