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:

Penjualan Tiket Pesawat - www.helloflen.com

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:

Penjualan Tiket Pesawat - www.helloflen.com

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.

Klik untuk berkomentar