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:
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:
Ketiga
Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:
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.
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.
2 Komentar
hai...ini bs print juga ngga? kl bisa, support dg thermal printer (mini printer) ukuran 58mm ?
hai kak.. kebetulan engga ka, itu cuma interface sederhana dari penjualan tiket