PEMROGRAMAN I (VB) Pertemuan 6
By: Augury
Unit Kontrol Dasar CheckBox
Unit kontrol ini akan memberikan perintah pilihan Checked/UnChecked. Object CheckBox ini biasa dipakai berkelompok dan dalam melakukan pilihan pemakai dapat memilih semua object. Properties yang sering dipakai: Properties Name
Keterangan Isi
Name
chkNamaobject
Caption
Judul/Tulisan yang tampil pada object
Value
1 Æ Checked (dipilih) 2 Æ Unchecked (tidak dipilih)
Enabled
True Æ Object dapat diberikan suatu aksi False Æ tidak dapat diisi
Visible
True Æ dapat dilihat False Æ Tidak dapat dilihat
Unit Kontrol Dasar CheckBox
Event Umum : Click() Æ event ini terjadi apabila pemakai melakukan click terhadapnya GotFocus() Æ event ini terjadi pada saat object mendapat focus (cursor sedang berada pada object tersebut) LostFocus() Æ event ini terjadi pada saat object kehilangan Focus (cursor berpindah dari object tersebut ke object lain)
CheckBox Form
Name Caption
FrmPertemuan6 Pertemuan 6
CheckBox1
Name Caption Value
optCF Celcius To Fahrenheit True
CheckBox2
Name Caption Value
optFR Fahrenheit to Reamur False
CheckBox3
Name Caption Value
optRC Reamur To Celcius False
Label1
Name Caption
lblAsli Nilai Asli
Label2
Name Caption
lblHasil Hasil Convert
Label3
Name Caption
txtAsli 0
CheckBox Option Option Explicit Explicit Private Private Sub Sub chkBaca_Click() chkBaca_Click() If chkBaca.Value If chkBaca.Value == 11 Then Then lbl1.Caption lbl1.Caption == chkBaca.Caption chkBaca.Caption Else Else lbl1.Caption lbl1.Caption == "" "" End End If If End Sub End Sub Private Private Sub Sub chkInternet_Click() chkInternet_Click() If If chkInternet.Value chkInternet.Value == 11 Then Then lbl3.Caption lbl3.Caption == chkInternet.Caption chkInternet.Caption Else Else lbl3.Caption lbl3.Caption == "" "" End End If If End End Sub Sub Private Private Sub Sub chkProgram_Click() chkProgram_Click() If chkProgram.Value If chkProgram.Value == 11 Then Then lbl2.Caption lbl2.Caption == chkProgram.Caption chkProgram.Caption Else Else lbl2.Caption lbl2.Caption == "" "" End End If If End Sub End Sub
Unit Kontrol Dasar OptionButton
Unit kontrol ini akan memberikan perintah pilihan True/False. Object OptionButton ini biasa dipakai berkelompok dan dalam melakukan pilihan pemakai hanya dapat memilih satu diantara sekelompok object. Properties yang sering dipakai: Properties Name
Keterangan Isi
Name
optNamaobject
Caption
Judul/Tulisan yang tampil pada object
Value
true Æ dipilih false Æ tidak dipilih
Enabled
True Æ Object dapat diberikan suatu aksi False Æ tidak dapat diisi
Visible
True Æ dapat dilihat False Æ Tidak dapat dilihat
Unit Kontrol Dasar OptionButton
Event Umum : Click() Æ event ini terjadi apabila pemakai melakukan click terhadapnya GotFocus() Æ event ini terjadi pada saat object mendapat focus (cursor sedang berada pada object tersebut) LostFocus() Æ event ini terjadi pada saat object kehilangan Focus (cursor berpindah dari object tersebut ke object lain)
Unit Kontrol Dasar
OptionButton – Contoh
Unit Kontrol Dasar
OptionButton – Contoh Form
Name Caption
FrmSelect Select Case
OptionButton1
Name Caption Value
optCF Celcius To Fahrenheit True
OptionButton2
Name Caption Value
optFR Fahrenheit to Reamur False
OptionButton3
Name Caption Value
optRC Reamur To Celcius False
OptionButton4
Name Caption Value
optCK Celcius To Kelvin False
Label1
Name Caption
lblAsli Nilai Asli
Label1
Name Caption
lblHasil Hasil Convert
TextBox1
Name Caption
txtAsli 0
TextBox1
Name Caption
txtHasil
OptionButton – Contoh Dim conv As Integer Sub convert() Select Case conv Case 1 txthasil.Text Case 2 txthasil.Text Case 3 txthasil.Text Case 4 txthasil.Text Case Else txthasil.Text End Select End Sub
Lanjutan… = (9 / 5 * txtAsli.Text) + 32 = (txtAsli.Text - 32) * 4 / 9 = (5 / 4 * txtAsli.Text) = txtAsli.Text + 273 = "Konversi tidak ada"
Private Sub Form_Load() optCF_Click End Sub Private Sub optCF_Click() conv = 1 convert End Sub Private Sub optCK_Click() conv = 2 convert End Sub
Private Sub optFR_Click() conv = 3 convert End Sub Private Sub optRC_Click() conv = 4 convert End Sub
Unit Kontrol Dasar HSCrollBar
Unit kontrol ini memungkinkan pemakai untuk memilih nilai (suatu besaran angka) dengan menggerakkan bar (kotak) ke kiri atau ke kanan melalui scroll bar horisontal.
Properties yang sering dipakai: Properties Name
Keterangan Isi
Name
hscNamaobject
Min
Nilai Minimum
Max
Nilai Maximum
Value
Nilai sekarang (nilai yang diinginkan)
SmallChange
Perubahan nilai skala kecil
LargeChange
Perubahan nilai skala besar
Unit Kontrol Dasar HSCrollBar
Event Umum : Change() Æ event ini terjadi apabila perubahan nilai (value) atau pemakai melakukan pergeseran/perubahan posisi kotak, sehingga nilai (value) object berubah GotFocus() Æ event ini terjadi pada saat object mendapat focus (cursor sedang berada pada object tersebut) LostFocus() Æ event ini terjadi pada saat object kehilangan Focus (cursor berpindah dari object tersebut ke object lain)
Unit Kontrol Dasar VSCrollBar
Unit kontrol ini memungkinkan pemakai untuk memilih nilai (suatu besaran angka) dengan menggerakkan bar (kotak) ke kiri atau ke kanan melalui scroll bar horisontal.
Properties yang sering dipakai: Properties Name
Keterangan Isi
Name
vscNamaobject
Min
Nilai Minimum
Max
Nilai Maximum
Value
Nilai sekarang (nilai yang diinginkan)
SmallChange
Perubahan nilai skala kecil
LargeChange
Perubahan nilai skala besar
Unit Kontrol Dasar VSCrollBar
Event Umum : Change() Æ event ini terjadi apabila perubahan nilai (value) atau pemakai melakukan pergeseran/perubahan posisi kotak, sehingga nilai (value) object berubah GotFocus() Æ event ini terjadi pada saat object mendapat focus (cursor sedang berada pada object tersebut) LostFocus() Æ event ini terjadi pada saat object kehilangan Focus (cursor berpindah dari object tersebut ke object lain)
Unit Kontrol Dasar
Contoh HScrollBar dan VScrollBar Form
Name Caption
FrmSelect Select Case
Text1
Name Text
txtTahun 1970
Text2
Name Text
txtCelcius 0
Text3
Name Text
txtReamur 32
HScroll1
Name Max Min Value SmallChange LargeChange
hscTahun 2015 1970 0 1 1
VScroll1
Name Max Min Value SmallChange LargeChange
vscSuhu 0 200 0 1 5
Unit Kontrol Dasar
Contoh HScrollBar dan VScrollBar Option Explicit Private Sub hscTahun_Change() txtTahun.Text = hscTahun.Value End Sub Private Sub txtCelcius_Change() vscSuhu.Value = txtCelcius.Text End Sub Private Sub vscSuhu_Change() txtCelcius.Text = vscSuhu.Value txtReamur.Text = (0.44 * txtCelcius.Text) + 32 End Sub
Unit Kontrol Dasar ListBox
Unit kontrol ini akan menampilkan daftar item berupa list yang dapat dipilih oleh pemakai.
Properties yang sering dipakai:
Properties
Keterangan Isi
Name
cboNamaobject
List
Isi dari item yang ingin ditampilkan
ListIndex
Nilai index (no urut) item
ItemData
Data item yg dipilih sesuai index sekarang
ItemData
Data item yg dipilih sesuai index sekarang
Unit Kontrol Dasar ListBox
Event Umum : Click() Æ event ini terjadi apabila pemakai melakukan click terhadapnya GotFocus() Æ event ini terjadi pada saat object mendapat focus (cursor sedang berada pada object tersebut) LostFocus() Æ event ini terjadi pada saat object kehilangan Focus (cursor berpindah dari object tersebut ke object lain)
Unit Kontrol Dasar ComboBox
Unit kontrol ini akan menampilkan daftar item berupa list yang dapat dipilih oleh pemakai.
Properties yang sering dipakai:
Properties
Keterangan Isi
Keterangan Tambahan
Name
lstNamaobject
List
Isi dari item yang ingin ditampilkan
Text
Text item yang dipilih sekarang
Nilai ter-isi saat program jalan
ListIndex
Nilai index (no urut) item yang aktif (dipilih sekarang)
Nilai ter-isi saat program jalan
ItemData
Data item aktif (data yang dipilih sesuai index sekarang)
Nilai ter-isi saat program jalan
Unit Kontrol Dasar ComboBox
Event Umum : Click() Æ event ini terjadi apabila pemakai melakukan click terhadapnya GotFocus() Æ event ini terjadi pada saat object mendapat focus (cursor sedang berada pada object tersebut) LostFocus() Æ event ini terjadi pada saat object kehilangan Focus (cursor berpindah dari object tersebut ke object lain)
Unit Kontrol Dasar
Penggunaan ListBox dan ComboBox
Untuk penggunaan property List biasanya dikombinasikan dengan ListIndex, contoh :
A=cboPilih.List(cboPilih.ListIndex) Berdasarkan potongan program diatas maka A akan berisi nilai atau text dari item yang pemakai pilih.
Untuk penggunaan property Text, contoh :
A=cboPilih.Text Berdasarkan potongan program diatas maka A akan berisi nilai atau text dari item yang pemakai pilih.
Untuk penggunaan property ItemData biasanya dikombinasikan dengan ListIndex,contoh:
A=cboPilih.ItemData(cboPilih.ListIndex) Berdasarkan potongan program diatas maka A akan berisi data dari item yang pemakai pilih.
Unit Kontrol Dasar
Contoh ListBox dan ComboBox Form
Name Caption
FrmList_Combo_Box Latihan ListBox dan ComboBox
Label1
Name Caption
lblList Nilai List
Label2
Name Caption
lblItemData Nilai Item Data
Label3
Name Caption
lblListCombo Nilai List Combo
Label4
Name Caption
lblItemDataCombo Nilai Item Data Combo
List1
Name List Item Data
lstMataKuliah (lihat List1) (lihat Item Data1)
Combo1
Name List Item Data Text
vscSuhu (lihat List2) (lihat Item Data2) --- Pilih Jurusan ---
List1
Item Data1
Logika Algoritma
102
Pemrograman I
201
Pemrograman III
203
List2
Item Data2
Pemrograman Terstruktur
161
Manajemen Informatika
1
Organisasi Komputer I
171
Sistem Komputer
2
Organisasi Komputer II
172
Sistem Informasi
3
Jaringan Komputer
111
Teknik Informatika
4
Unit Kontrol Dasar
Contoh ListBox dan ComboBox Option Option Explicit Explicit Private Private Sub Sub cboJurusan_Click() cboJurusan_Click() lblListCombo.Caption lblListCombo.Caption == cboJurusan.List(cboJurusan.ListIndex) cboJurusan.List(cboJurusan.ListIndex) lblItemDataCombo.Caption lblItemDataCombo.Caption == cboJurusan.ItemData(cboJurusan.ListIndex) cboJurusan.ItemData(cboJurusan.ListIndex) End End Sub Sub Private Private Sub Sub lstMataKuliah_Click() lstMataKuliah_Click() lblList.Caption lblList.Caption == lstMataKuliah.List(lstMataKuliah.ListIndex) lstMataKuliah.List(lstMataKuliah.ListIndex) lblItemData.Caption lblItemData.Caption == lstMataKuliah.ItemData(lstMataKuliah.ListIndex) lstMataKuliah.ItemData(lstMataKuliah.ListIndex) End End Sub Sub