Coding Membuat Penjualan Tiket Pesawat Dengan VB 6.0

HELLO FLEN - Pada pemrograman kali ini, saya akan membuat suatu program pada aplikasi Microsoft Visual Basic 6.0. Artikel yang saya buat mengenai Coding Membuat Penjualan Tiket Pesawat Dengan VB 6.0. Pada artikel ini metode yang saya gunakan masih menggunakan metode percabangan, namun percabangan kali ini yaitu "Select Case", namun ada juga metode percabangan "If". Untuk metode percabangan If, saya sudah membuat artikel sebelumnya yaitu tentang Script atau Coding Membuat Form Pembayaran Rekening Pada VB 6, pada artikel tersebut juga sudah dijelaskan mengenai apa itu percabangan If.

Sebelum ke tahap pembuatan Penjualan Tiket Pesawat, disini saya akan menjelaskan terlebih dahulu untuk menganal apa itu Select Case. Visual Basic menyediakan struktur Select Case sebagai suatu alternatif terhadap If...Then...Else. Suatu Select Case statement memiliki kemampuan yang sama dengan If…Then…Else…, tetapi membuat code lebih mudah dibaca. penulisan syntaknya dalam VB seperti berikut:

Select Case (pilihan)
Case (pilihan 1)
    (pernyataan 1)
Case (pilihan 2)
    (pernyataan 2)
Case (pilihan 3)
    (pernyataan 3)
Case Else
    (pernyataan 4)
End Select

Kita langsung saja menuju langkah pada pembuatan penjualan tiket pesawat, berikut dibawah ini langkah-langkahnya:

Pertama
Buka aplikasi VB 6 Anda lalu, klik File > New Project > Standard EXE.

Kedua
Buat tampilannya seperti ini:

Properties pada label, textbox, commandbutton, combobox, checkbox, timer:

	Name	Label, Command, Check = Caption || Textbox, Combo = Text
Label	ljam	Kosongkan (penempatan sesuai keinginan)
Label	ltanggal	Kosongkan (penempatan sesuai keinginan)
TextBox	txtnmpmbl	Kosongkan (samping nama pembeli)
TextBox	txtnmpswt	Kosongkan (nama pesawat)
TextBox	txthartikdws	Kosongkan (atas harga/tiket samping dewasa)
TextBox	txthartikank	Kosongkan (harga/tiket)
TextBox	txtjumdws	Kosongkan (jumlah)
TextBox	txtjumank	Kosongkan (jumlah)
TextBox	txttothardws	Kosongkan (total harga)
TextBox	txttotharank	Kosongkan (total harga)
TextBox	txtjumtik	Kosongkan (samping jumlah tiket)
TextBox	txttotbay	Kosongkan (total bayar)
TextBox	txtbay	Kosongkan (bayar)
TextBox	txtkem	Kosongkan (kembali)
CheckBox	Check1	Dewasa
CheckBox	Check2	Anak
CommandButton	cmdbersih	Bersih
CommandButton	cmdinput	Input
CommandButton	cmdkeluar	Keluar
CommandButton	cmdhitung	Hitung
ComboBox	Combo1	Kosongkan (samping no. penerbangan)
Timer	Timer1	(ubah nilai interval menjadi 100)

Catatan: usahakan "Name" samakan, karena berpengaruh dengan coding dibawah ini:

Sub aktif()

txtnmpmbl.Enabled = True

Combo1.Enabled = True

txtnmpswt.Enabled = True

txthartikdws.Enabled = True

txthartikank.Enabled = True

txtjumdws.Enabled = True

txtjumank.Enabled = True

txttothardws.Enabled = True

txttotharank.Enabled = True

cmdhitung.Enabled = True

txtjumtik.Enabled = True

txttotbay.Enabled = True

txtbay.Enabled = True

txtkem.Enabled = True

cmdinput.Enabled = True

cmdbersih.Enabled = True

cmdkeluar.Enabled = True

Check1.Enabled = True

Check2.Enabled = True



End Sub



Sub nonaktif()

txtnmpmbl.Enabled = False

Combo1.Enabled = False

txtnmpswt.Enabled = False

txthartikdws.Enabled = False

txthartikank.Enabled = False

txtjumdws.Enabled = False

txtjumank.Enabled = False

txttothardws.Enabled = False

txttotharank.Enabled = False

cmdhitung.Enabled = False

txtjumtik.Enabled = False

txttotbay.Enabled = False

txtbay.Enabled = False

txtkem.Enabled = False

cmdbersih.Enabled = False

Check1.Enabled = False

Check2.Enabled = False



End Sub



Sub bersih()

txtnmpmbl = ""

Combo1 = ""

txtnmpswt = ""

txthartikdws = ""

txthartikank = ""

txtjumdws = ""

txtjumank = ""

txttothardws = ""

txttotharank = ""

txtjumtik = ""

txttotbay = ""

txtbay = ""

txtkem = ""



End Sub



Private Sub Check1_Click()

If Combo1.Text = "GA733" Then

    txthartikdws = 560000

    ElseIf Combo1.Text = "MP373" Then

    txthartikdws = 450000

    ElseIf Combo1.Text = "BT202" Then

    txthartikdws = 350000

    ElseIf Combo1.Text = "LI909" Then

    txthartikdws = 250000

End If

txthartikdws.Enabled = False

End Sub



Private Sub Check2_Click()

If Combo1.Text = "GA733" Then

    txthartikank = 168000

    ElseIf Combo1.Text = "MP373" Then

    txthartikank = 135000

    ElseIf Combo1.Text = "BT202" Then

    txthartikank = 105000

    ElseIf Combo1.Text = "LI909" Then

    txthartikank = 75000

End If

txthartikank.Enabled = False

End Sub



Private Sub cmdhitung_Click()

txtjumtik = Val(txtjumdws) + Val(txtjumank)

txttotbay = Val(txttothardws) + Val(txttotharank)

txtjumtik.Enabled = False

txttotbay.Enabled = False



End Sub



Private Sub cmdinput_Click()

Call aktif

cmdinput.Enabled = False

End Sub



Private Sub cmdbersih_Click()

Call bersih

cmdinput.Enabled = True

txtnmpmbl.SetFocus



End Sub



Private Sub cmdkeluar_Click()

End

End Sub



Private Sub Combo1_Click()

Select Case Combo1

Case "GA733"

txtnmpswt = "Garuda Air"

Case "MP373"

txtnmpswt = "Merpati Putih"

Case "BT202"

txtnmpswt = "Batavia Air"

Case "LI909"

txtnmpswt = "Lion Air"

End Select

txtnmpswt.Enabled = False



End Sub



Private Sub Form_Load()

Call nonaktif

Combo1.AddItem ("GA733")

Combo1.AddItem ("MP373")

Combo1.AddItem ("BT202")

Combo1.AddItem ("LI909")



End Sub



Private Sub ltanggal_Click()



End Sub



Private Sub Timer1_Timer()

ljam.Caption = Time

ltanggal.Caption = Format(Date, "dddd,dmmmm,yyyy")



End Sub



Private Sub txtbay_Change()

txtkem = Val(txtbay) - Val(txttotbay)

txtkem.Enabled = False

End Sub



Private Sub txtjumank_Change()

txttotharank = Val(txthartikank) * Val(txtjumank)

txttotharank.Enabled = False

End Sub



Private Sub txtjumdws_Change()

txttothardws = Val(txthartikdws) * Val(txtjumdws)

txttothardws.Enabled = False

End Sub



Private Sub txtkem_Change()



End Sub

Ketiga
Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:

Ketika pada saat di Run dan muncul tampilannya, klik button Input masukan nama pembeli lalu pilih no penerbangan, otomatis nama pesawat muncul. Centang jenis tiket dan bila membawa anak, centang juga. Isikan jumlah tiket, otomatis total harga muncul. Setelah itu klik button Hitung, otomatis jumlah tiket dan total bayar muncul. ketika mengisikan bayar, otomatis kembalian muncul.

Sekian pembahasan program mengenai tentang Coding Membuat Penjualan Tiket Pesawat Dengan VB 6.0. Semoga dapat bermanfaat dan juga bisa membantu untuk Anda yang sedang belajar tentang pendasaran pemrograman VB 6.