CONTOH KODE DALAM BAB 3 1. Membangkitkan kejadian Click pada CommandButton. Komponen Kontrol CommandButton CommandButton Label
Properti Name = Command1 Caption = Tombol 1 Name = Command2 Caption = Tombol 2 Name = Label1
Kondisi a w al saat pendesainan
Kode : Private Sub Command1_Click() Command2.Value = True ‘ Sama artinya dgn memanggil Command2_Click() End Sub
Private Sub Command2_Click() Label1.Caption = "Aku hasil penekanan Tombol 2" End Sub
Kondisi aplikasi saat run-time.
Ketika anda mengklik tombol Command1, maka secara otomatis anda juga menekan tombol Command2. Sehingga penekanan tombol kedua menghasilkan penulisan teks di Label1.
1
2. Contoh penggunaan kontrol OptionButton dan CheckBox dalam Frame dikombinasikan dengan TextBox dan CommandButton Komponen Kontrol Frame OptionButton OptionButton OptionButton OptionButton Frame OptionButton OptionButton Frame CheckBox CheckBox CheckBox CheckBox Label Label Label TextBox TextBox
TextBox
CommandButton
Properti Name = fraMonitor Caption = Jenis Monitor Name = optSamsung Caption = Samsung Name = optToshiba Caption = Toshiba Name = optLG Caption = LG Name = optGTC Caption = GTC Name = fraProsesor Caption = Jenis Prosesor Name = optAMD Caption = AMD Name = optPentium Caption = Pentium Name = fralain Caption = Komponen Lain Name = chkKeyboard Caption = Keyboard Name = chkMouse Caption = Mouse Name = chkUPS Caption = UPS Name = chkStabilizer Caption = Stabilizer Name = lblMonitor Caption = Monitor Pilihan Name = lblProsesor Caption = Prosesor Pilihan Name = lblLain Caption = Komponen Lain Name = txtMonitor Text = {kosongkan isinya} Name = txtProsesor Text = {kosongkan isinya} Name = txtLain Multiline = True ScrollBars = 2-Vertical Text = {kosongkan isinya} Name = cmdReset Caption = Reset
2
Kode :
Private Sub chkKeyboard_Click() If chkKeyboard.Value = vbChecked Then txtLain = txtLain + "Keyboard" + vbNewLine End If End Sub Private Sub chkMouse_Click() If chkMouse.Value = vbChecked Then txtLain = txtLain + "Mouse" + vbNewLine End If End Sub Private Sub chkStabilizer_Click() If chkStabilizer.Value = vbChecked Then txtLain = txtLain + "Stabilizer" + vbNewLine End If End Sub Private Sub chkUPS_Click() If chkUPS.Value = vbChecked Then txtLain = txtLain + "UPS" + vbNewLine End If End Sub Private Sub cmdReset_Click() txtMonitor = "" ‘ Mengosongkan isi semua textbox secara manual txtProsesor = "" txtLain = "" End Sub Private Sub optAMD_Click() txtProsesor = "AMD" End Sub Private Sub optGTC_Click() txtMonitor = "GTC" End Sub Private Sub optLG_Click() txtMonitor = "LG" End Sub Private Sub optPentium_Click() txtProsesor = "Pentium" End Sub Private Sub optSamsung_Click() txtMonitor = "Samsung" End Sub Private Sub optToshiba_Click() txtMonitor = "Toshiba" End Sub
3
Kondisi aplikasi saat run-time
Setiap kali anda mengklik suatu OptionButton, maka akan mengisi textbox yang telah ditentukan dengan isi teks yang telah ditentukan pula. Ketika tombol Reset ditekan, maka seluruh textbox isinya dikosongkan. 3. Contoh penggunaan kontrol ComboBox dan ListBox Komponen Kontrol Label Label Label ComboBox ListBox CommandButton TextBox
Properti Name = lblKelamin Caption = Jenis Kelamin Name = lblKartu Caption = Kartu Pilihan Name = lblHasil Caption = Hasil Name = cboKelamin Style = 2-Dropdown List Name = lstKartu MultiSelect = 0-None Name = cmdProses Caption Proses Name = txtHasil
Kondisi aplikasi saat run-time
4
Kode :
Option Explicit Private Sub cmdProses_Click() ‘ Memanggil isi dalam combobox dan listbox txtHasil = cboKelamin.Text + " - " + lstkartu.Text End Sub Private Sub Form_Load() cboKelamin.Clear cboKelamin.AddItem "Pria" cboKelamin.AddItem "Wanita" cboKelamin.ListIndex = 0 ' Menampilkan data yang pertama lstkartu.Clear lstkartu.AddItem lstkartu.AddItem lstkartu.AddItem lstkartu.AddItem
"Golf Member" "Kartu Alumni" "Kartu ATM" "KTP"
End Sub
4. Contoh penggunaan Kontrol Vertical ScrollBar Komponen Kontrol Label Label Label Label Label Label Label VScrollBar
VScrollBar
VScrollBar
Properti Name = lblRed Caption = RED Name = lblGreen Caption = GREEN Name = lblBlue Caption = BLUE Name = lblAngkaRed Name = lblAngkaGreen Name = lblAngkaBlue Name = lblWarna Name = VScroll1 Max = 255 Min = 0 Name = VScroll2 Max = 255 Min = 0 Name = VScroll3 Max = 255 Min = 0
5
Kode :
Option Explicit Private Sub VScroll1_Change() lblAngkaRed.Caption = VScroll1.Value lblWarna.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll1_Scroll() lblAngkaRed.Caption = VScroll1.Value lblWarna.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll2_Change() lblAngkaGreen.Caption = VScroll2.Value lblWarna.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll2_Scroll() lblAngkaGreen.Caption = VScroll2.Value lblWarna.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll3_Change() lblAngkaBlue.Caption = VScroll3.Value lblWarna.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll3_Scroll() lblAngkaBlue.Caption = VScroll3.Value lblWarna.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub
Kondisi aplikasi saat run-time
Ketika anda menggeser kotak Scroll atau menekan tanda panah, maka akan terjadi penambahan atau pengurangan nilai yang berpengaruh terhadap nilai komposisi warna. Contoh di atas RGB(24,40,137) akan menghasilkan warna biru tua.
6
5. Penggunaan kontrol Drive, Dir, dan File ListBox Komponen Kontrol DriveListBox DirListBox FileListBox Label TextBox
Properti Name Name Name Name Name
= = = = =
Drive1 Dir1 File1 lblJalur txtJalur
Kode :
Option Explicit Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() ' Properti Drive juga mengembalikan label volume. Dir1.Path = Left$(Drive1.Drive, 1) & ":\" End Sub Private Sub File1_Click() txtJalur = Dir1.Path + "\" + File1.FileName End Sub
Kondisi aplikasi saat run-time
Ketika anda memilih drive, maka otomatis direktori di ba wahnya juga ikut berubah sesuai dengan induknya. Begitu juga file ikut berubah akibat dari perubahan direktori. Ketika anda mengklik FileListBox, akan dimunculkan jalur alamat lengkap dari file yang anda tunjuk. Apabila anda ingin menampilkan file tertentu misal, TXT,DOC, dan RTF. Maka tambahkan isi dalam prosedur Dir1.Change() dengan kode sbb : File1.Pattern = "*.txt;*.doc;*.rtf".
7
