BELAJAR VB6 MEMBUAT PENJADWAL PENERBANGAN (FLIGHT PLANNER)

Buatlah sebuah project baru. Dalam contoh ini, kita akan memilih sebuah kota tujuan, sebuah lokasi tempat duduk dan pesanan makanan untuk penumpang pesawat terbang.

Tempatkan sebuah list box, dua combo box, tiga label box dan dua command button pada form. Form seharusnya tampak mirip sebagai berikut.

Seting form dan properti object seperti ini:

  Form1:

  BorderStyle               1-Fixed Single

  Caption                      Flight Planner

  Name                        frmFlight

  List1:

  Name                        lstCities

  Sorted                       True

  Combo1:

  Name                        cboSeat

  Style                          2-Dropdown List

  Combo2:

  Name                        cboMeal

  Style                          1-Simple

  Text                            [Blank]

(setelah setting properti untuk combo box ini, resizelah sampai ini cukup luas untuk menampung 4-5 entri)

  Label1:

  Caption                      Destination City

  Label2:

Caption                        Seat Location

  Label3:

  Caption                      Meal Preference

  Command1:

  Caption                      &Assign

  Name                        cmdAssign

  Command2:

  Caption                      E&xit

  Name                        cmdExit

  Sekarang seharusnya form akan terlihat seperti ini:

Tambahkan  code ini pada Form_Load procedure:

Private Sub Form_Load()

‘Add city names to list box

lstCities.Clear

lstCities.AddItem "San Diego"

lstCities.AddItem "Los Angeles"

lstCities.AddItem "Orange County"

lstCities.AddItem "Ontario"

lstCities.AddItem "Bakersfield"

lstCities.AddItem "Oakland"

lstCities.AddItem "Sacramento"

lstCities.AddItem "San Jose"

lstCities.AddItem "San Francisco"

lstCities.AddItem "Eureka"

lstCities.AddItem "Eugene"

lstCities.AddItem "Portland"

lstCities.AddItem "Spokane"

lstCities.AddItem "Seattle"

lstCities.ListIndex = 0

‘Add seat types to first combo box

cboSeat.AddItem "Aisle"

cboSeat.AddItem "Middle"

cboSeat.AddItem "Window"

cboSeat.ListIndex = 0

‘Add meal types to second combo box

cboMeal.AddItem "Chicken"

cboMeal.AddItem "Mystery Meat"

cboMeal.AddItem "Kosher"

cboMeal.AddItem "Vegetarian"

cboMeal.AddItem "Fruit Plate"

cboMeal.Text = "No Preference"

End Sub

Kode ini secara sederhana menginisialisasi list box dan porsi listbox dari dua combo box.

Tambahkan  code ini pada cmdAssign_Click event:

Private Sub cmdAssign_Click()

‘Build message box that gives your assignment

Dim Message As String

Message = "Destination: " + lstCities.Text + vbCr

Message = Message + "Seat Location: " + cboSeat.Text +

vbCr

Message = Message + "Meal: " + cboMeal.Text + vbCr

MsgBox Message, vbOKOnly + vbInformation, "Your

Assignment"

End Sub

Ketika tombol assign di klik, code ini membuat sebuah form message box dengan mengacu kota yang terpilih (dari list box lstCities, pilihan tempat duduk (dari cboSeat)dan pesanan makanan (dari cboMeal)

Lalu tambahkan code ini pada cmdExit_Click event:

Private Sub cmdExit_Click()

End

End Sub

Lalu run aplikasi tersebut. Simpanlah projetnya.

Semoga jelas dan berguna bagi kita semua.

Link download project ada di sini

Jangan lupa, jika donwnload file project, langsung run dulu di VB Studio agar window form dan code keluar tanpa kita kebingungan.

Selamat belajar VB…:D