PEMROGRAMAN I (VB) Pertemuan 7
By: Augury
[email protected] [email protected]
Combo & List Box Lanjutan
Buatlah Form seperti berikut:
List1
Item Data1
Sistem Informasi
1
Sistem Komputer
2
Teknik Informatika
3
Form
Name Caption
FrmIsiList Isi List pada ComboBox
Label1
Name Caption
lblList Jurusan
Label2
Name Caption
lblItemData Konsentrasi
Label3
Name Caption
lblListCombo Nilai List Combo
Label4
Name Caption
lblItemDataCombo Nilai Item Data Combo
Combo1
Name List Item Data Text
cboJurusan (lihat List1) (lihat Item Data1) --- Pilih Jurusan ---
Combo2
Name List Item Data Text
cboKonsentrasi
--- Pilih Konsentrasi ---
Mengisi List pada Combo Box secara Run Time
Setelah dibuat form beserta komponen-nya dan mengisi properties sesuai tabel properties yang diberikan, buat programnya dengan ketentuan sebagai berikut:
Jika pada Jurusan yang dipilih adalah Sistem Informasi maka; pada Konsentrasi hanya berisi:
eCommerce SIM Bussiness Intelligence
Jika pada Jurusan yang dipilih adalah Sistem Informasi maka; pada Konsentrasi hanya berisi:
eCommerce SIM Bussiness Intelligence
Mengisi List pada Combo Box secara Run Time
Jika pada Jurusan yang dipilih adalah Sistem Informasi maka; pada Konsentrasi hanya berisi: Computer
System
CCIT
Jika pada Jurusan yang dipilih adalah Sistem Informasi maka; pada Konsentrasi hanya berisi: SE MAVIB AI
Source Code Private Sub cboJurusan_Validate(Cancel As Boolean) Select Case cboJurusan.Text Case "Sistem Informasi" cboKonsentrasi.Clear cboKonsentrasi.AddItem ("eCommerce") cboKonsentrasi.AddItem ("SIM") cboKonsentrasi.AddItem ("Bussiness Intelligence") Case "Sistem Komputer" cboKonsentrasi.Clear cboKonsentrasi.AddItem ("Computer System") cboKonsentrasi.AddItem ("CCIT") Case "Teknik Informatika" cboKonsentrasi.Clear cboKonsentrasi.AddItem ("SE") cboKonsentrasi.AddItem ("MAVIB") cboKonsentrasi.AddItem ("AI") End Select End Sub
Penjelasan Private Sub cboJurusan_Validate(Cancel As Boolean)
Menggunakan event validate pada cboJurusan, untuk melakukan trigger proses Select Case cboJurusan.Text
Melakukan selection dengan melihat text pada cboJurusan Case "Sistem Informasi" cboKonsentrasi.Clear cboKonsentrasi.AddItem ("eCommerce") cboKonsentrasi.AddItem ("SIM") cboKonsentrasi.AddItem ("Bussiness Intelligence")
Jika text pada cboJurusan adalah Sistem Informasi, maka bersihkan isi cboKonsentrasi. Kemudian tambahkan item “eCommerce”, “SIM”, “Bussines Intelligence” pada cboKonsentrasi
Penjelasan cboKonsentrasi.Clear
Untuk mengosongkan isi combo box cboKonsentrasi cboKonsentrasi.AddItem ("eCommerce")
Untuk menambahkan isi list pada combo box cboKonsentrasi, isi yang ditambahkan adalah: eCommerce cboKonsentrasi.AddItem (“SIM")
Untuk menambahkan isi list pada combo box cboKonsentrasi, isi yang ditambahkan adalah: SIM
Alternative Source Code Private Sub cboJurusan_Validate(Cancel As Boolean) Select Case cboJurusan.ItemData(cboJurusan.ListIndex) Case 1 cboKonsentrasi.Clear cboKonsentrasi.AddItem ("eCommerce") cboKonsentrasi.AddItem ("SIM") cboKonsentrasi.AddItem ("Bussiness Intelligence") Case 2 cboKonsentrasi.Clear cboKonsentrasi.AddItem ("Computer System") cboKonsentrasi.AddItem ("CCIT") Case 3 cboKonsentrasi.Clear cboKonsentrasi.AddItem ("SE") cboKonsentrasi.AddItem ("MAVIB") cboKonsentrasi.AddItem ("AI") End Select End Sub
Penjelasan Private Sub cboJurusan_Validate(Cancel As Boolean)
Menggunakan event validate pada cboJurusan, untuk melakukan trigger proses Select Case cboJurusan.ItemData(cboJurusan.ListIndex)
Melakukan selection dengan melihat itemData pada cboJurusan Case 1 cboKonsentrasi.Clear cboKonsentrasi.AddItem ("eCommerce") cboKonsentrasi.AddItem ("SIM") cboKonsentrasi.AddItem ("Bussiness Intelligence")
Jika text pada cboJurusan adalah Sistem Informasi, maka bersihkan isi cboKonsentrasi. Kemudian tambahkan item “eCommerce”, “SIM”, “Bussines Intelligence” pada cboKonsentrasi
Penjelasan cboKonsentrasi.Clear
Untuk mengosongkan isi combo box cboKonsentrasi cboKonsentrasi.AddItem ("eCommerce")
Untuk menambahkan isi list pada combo box cboKonsentrasi, isi yang ditambahkan adalah: eCommerce cboKonsentrasi.AddItem (“SIM")
Untuk menambahkan isi list pada combo box cboKonsentrasi, isi yang ditambahkan adalah: SIM
