Membuat Program Sederhana Pembelian Tiket Pesawat Menggunakan Visual Basic 6

Membuat Program Sederhana Pembelian Tiket Pesawat Menggunakan Visual Basic 6

Pada pelajaran Pengenalan Organisasi dan Arsitektur Komputer, saya diberi tugas membuat sebuah program sederhana dengan aplikasi apa saja dan diberi waktu selama 10 minggu untuk membuat program tersebut. Setelah 3 minggu kebingungan akan membuat program apa, akhirnya saya memutuskan untuk membuat aplikasi pembelian tiket pesawat sederhana menggunakan Visual Basic 6. Berikut tampilan dari program yang saya buat :

 

 Menu Utama                                       Form Pembelian

 

 

Pada form Menu Utama terdiri dari : 3 Frame, 5 Image, 3 Label dan 1 Timer sedangkan pada Form pembelian terdapat : 5 Combo Box, 3 Option Button, 2 Command Button, 8 Frame, 21 Label, 1 Line, 4 Text Box dan 1 Timer.

Coding untuk form Menu Utama sebagai berikut :

Dim sHari As String
Dim aHari

Private Sub Form_Load()
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500
  Timer1.Enabled = True
End Sub

Private Sub Image2_Click()
Form2.Show
Unload Me
End Sub

Private Sub Image3_Click()
Form3.Show
Unload Me
End Sub

Private Sub Image4_Click()
Form4.Show
Unload Me
End Sub

Private Sub Image5_Click()
Form5.Show
Unload Me
End Sub

Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))
  lbltanggal.Caption = Format(Date, "dd mmmm yyyy")
lbljam.Caption = Format(Time, "hh:mm:ss")
End Sub

Sedangkan Coding untuk Form Pembelian sebagai berikut :

Dim harga, dewasa, bayi, hargabayi, subtotal, total As Variant
Dim sHari As String
Dim aHari

Private Sub Check1_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.15 * harga
bagasi = 30000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check2_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.15 * harga
bagasi = 60000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Check3_Click()
dewasa = TxtDewasa.Text
bayi = TxtBayi.Text
harga = TxtHarga.Caption
hargabayi = 0.15 * harga
bagasi = 90000
subtotal = (dewasa * harga) + (hargabayi * bayi)
total = subtotal + bagasi
txtTotal.Caption = total
End Sub

Private Sub Command1_Click()
If CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 630000
ElseIf CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 535000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 750000
ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 2 Then
TxtHarga.Caption = 450000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 0 Then
TxtHarga.Caption = 575000
ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 1 Then
TxtHarga.Caption = 500000
Else
MsgBox "Kota Asal dan Kota Tujuan Tidak Boleh Sama", vbInformation, "peringatan!"
End If
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

Private Sub Form_Load()
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500
  Timer1.Enabled = True
 
  For t = 2014 To 2050
TAHUN.AddItem t
Next
For k = 1 To 31
TGL.AddItem k
Next
BULAN.List(0) = "Januari"
BULAN.List(1) = "Februari"
BULAN.List(2) = "Maret"
BULAN.List(3) = "April"
BULAN.List(4) = "Mei"
BULAN.List(5) = "Juni"
BULAN.List(6) = "Juli"
BULAN.List(7) = "Agustus"
BULAN.List(8) = "September"
BULAN.List(9) = "Oktober"
BULAN.List(10) = "November"
BULAN.List(11) = "Desember"

CboTujuan.List(0) = "Jakarta (Cgk)"
CboTujuan.List(1) = "Bali (DPS)"
CboTujuan.List(2) = "Surabaya (Sby)"

CboAsal.List(0) = "Jakarta (Cgk)"
CboAsal.List(1) = "Bali (DPS)"
CboAsal.List(2) = "Surabaya (Sby)"
End Sub

Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))
  lbltanggal.Caption = Format(Date, "dd mmmm yyyy")
lbljam.Caption = Format(Time, "hh:mm:ss")
End Sub

SEMOGA BERMANFAAT!!!!