Kontrol-kontrol Tambahan Pada praktikum sebelumnya kita telah membuat dan membahas beberapa kontrol dasar. Nah, kali ini kita akan menambahkan dan membahas beberapa kontrol tambahan dari VB untuk menambah daya tarik dari program sistem pakar yang kita buat. Untuk memanggil kontrol tambahan, gunakan kombinasi Ctrl+T. Maka VB akan menampilkan komponen-komponen yang dapat ditambahkan ke dalam Toolbox. Jika jendela Components telah muncul, cari dan centang pada pilihan Microsoft Windows Common Controls 6.0 (SP6) dan Microsoft Windows Common Controls-2 6.0, kemudian perhatikan bahwa VB sudah menambahkan beberapa kontrol pada Toolbox.
Microsoft Windows Common Controls 6.0 terdiri dari 9 kontrol, yaitu: TabStrip, ToolBar, StatusBar, ProgressBar, TreeVeiw, ListVeiw, ImageList, Slider dan ImageCombo. Sedangkan Microsoft Windows Common Controls-2 6.0 terdiri dari 5 kontrol, yaitu: Animation, UpDown, MonthVeiw, DTPicker, dan FlatScrollBar.
1. ImageList Kontrol ini digunakan sebagai kontainer untuk menyimpan gambar-gambar atau ikon-ikon bagi kontrol lain seperti TreeVeiw, ListVeiw,TabStrip, dan ToolBar. Berikut ini adalah langkah-langkah untuk menambahkan kontrol ImageList dalam program Sistem Pakar.
Aktifkan MDIUtama, lanjutkan dengan melakukan double klik kontrol ImageList untuk menempatkannya pada form MDIUtama.
Atur properti name dari kontrol ImageList menjadi imgIkon. Klik kanan kontrol ImageList, pilih properti. Sekarang klik Tab Images, lalu klik Insert Picture untuk menambahkan gambar ikon yang ingin ditampilkan dalam kontrol imgIkon dan gunakan tombol Remove Picture untuk menghapus gambar dari daftar imagelist.
Sesudah menempatkan gambar di dalamnya dengan perintah Insert Picture, kita harus membuat kata kunci pada kolom pengisian key sehingga memudahkan kita dalam mengingat gambar apa saja yang sudah kita tambahkan. Oleh karena itu, atur properti key untuk gambar pertama menjadi Pengetahuan.
Dengan langkah yang sama pada langkah di atas, tempatkan dua gambar ikon lagi pada daftar imgIkon. Masing-masing gambar diberi keterangan sebagai Penelusuran dan Penjelasan. Tampilannya adalah sebagai berikut:
Daftar gambar pada imgIkon siap digunakan. Selain melalui pengaturan properti, gambar juga dapat ditambahkan dari pemrograman dengan perintah Add index, key, picture. Berikut adalah listing yang dapat kita tambahkan pada prosedur Form_Load form MDIUtama. Private Sub MDIForm_Load() Me.imgIkon.ListImages.Remove “Pegetahuan” Me.imgIkon.ListImages.Remove “Penelusuran” Me.imgIkon.ListImages.Remove “Penjelasan” End Sub Sedangkan prosedur untuk menghapus seluruh daftar gambar pada kontrol digunakan perintah yang sederhana, yaitu: Private Sub MDIForm_Load() Me.imgIkon.ListImages.Clear End Sub
Untuk melengkapi pembahasan ini, maka tambahkan perintah berikut untuk menambahkan kembali daftar gambar pada imgIkon kemudian simpan program: Private Sub MDIForm_Load() Me.imgIkon.ListImages.Add , LoadPicture(“C:\P........*.ico”) Me.imgIkon.ListImages.Add , LoadPicture(“C:\P........*.ico”) Me.imgIkon.ListImages.Add , LoadPicture(“C:\P........*.ico”) End Sub
“Pengetahuan”
,
“Penelusuran”
,
“Penjelasan”
,
2. ToolBar Kontrol ini digunakan untuk memanggil proses-proses yang paling sering digunakan/dipakai. Untuk menggunakan kontrol ini, kita harus sudah menambahkan kontrol ImageList ke dalam form (sudah kita praktekkan pada pembahasannya sebelumnya). Sekarang ikuti langkah berikut ini:
Buka kembali MDIUtama kemudian tempatkan ToolBar di dalamnya. Secara default, toolbar akan ditempatkan di bagian atas form. Untuk mengatur penempatan toolbar, atur nilai Align pada bagian properti. Nilai 0-vbAlignNone 1-vbAlignTop 2-vbAlignBottom 3-vbAlignLeft 4-vbAlignRight
Keterangan Pengaturan toolbar bebas ditempatkan Toolbar ditempatkan pada bagian atas Toolbar ditempatkan pada bagian bawah Toolbar ditempatkan pada bagian kiri Toolbar ditempatkan pada bagian kanan
Klik kanan kontrol Toolbar, lalu atur propertinya pada bagian Tab General sebagai berikut: Properti ImageList Style
Nilai imgIkon 1-tbrFlat
Pada tab buttons terdapat 2 tombol penting, yaitu insert button yang digunakan untuk menambahkan tombol pada toobar dan remove button untuk menghapus tombol pada toolbar. Lakukan pengaturan dengan langkah berikut: Klik tombol Insert Button. VB akan membut indeks secara otomatis untuk setiap button yang kita tambahkan. Properti Index Caption Key Tootip Text Image
Nilai 1 Pengetahuan Pengetahuan Menambahkan Basis Pengetahuan 1
Lakukan seperti cara diatas untuk menambahkan 2 buah tombol lagi sehinggan tombol ke-2 dan ke-3 masing-masing digunakan sebagai Penelusuran dan Petunjuk. Dan atur propertinya seperti berikut: Properti Index Caption Key Tooltip Text Image
Tombol ke-2 2 Penelusuran Penelusuran Penelusuran Data 2
Tombol ke-3 3 Pejelasan Penjelasan Penjelasan Sistem 3
Perhatikan bahwa pegetahuan terdiri dari beberapa submenu yaitu: Macam Kerusakan, Jenis Kerusakan, dan Ciri kerusakan. Kita akan membuat sub tombol pada toolbar untuk menambahkan sub menu tersebut. Sekarang klik
kembali toolbar dengan indeks 1, yaitu Pengetahuan. Atru properti Style menjadi 5-tbrDropdown Tombol insert Button menu untuk menambahkan sub menu dan remove button menu untuk menghapus submenu. Pengaturan berikut ini menggunakan Insert Button menu untuk menambahkan submenu, dimana VB akan membuat indeks secara otomatis untuk penambahan tombol tersebut.
Properti Nilai Index 1 Text Macam Kerusakan Key Macam Lakukan langkah yang sama seperti diatas untuk menambahkan 2 sub menu lagi, yaitu : Properti Nilai Index 2 Text Jenis Kerusakan Key Jenis Index 3 Text Ciri Kerusakan Key Ciri Sekarang program sistem pakar kita sudah dilengkapi dengan tollbar. Simpan dan coba jalankan program maka hasilnya seperti berikut:
Jika program telah jalan sesuai dengan tampilan diatas, sekarang kita masukkan kode program untuk menu yang telah kita buat diatas. Pertama double klik pada ToolBar dan ketik kodenya: Private Sub ToolBar1_ButtonClick(ByVal MSComctlLib.Button) Select Case Button.Key Case “Penelusuran” Call mnuPenelusuran_Click End Select End Sub Karena dalam toolbar terdapat sub tombol dari menu prosedur ButtonMenuClick dan ketikkan kode berikut:
Button
As
pakar, maka pilih lagi
Private Sub ToolBar1_ButtonMenuClick(ByVal ButtonMenu as MSComctLib.ButtonMenu) Select Case ButtonMenu.Key Case “Macam” Call mnuMacam_Click Case “Jenis” Call mnuJenis_Click Case “Ciri” Call mnuCiri_Click End Select End Sub Karena program kita semakin lengkap, sekarang mari kita lengkapi lagi program kita dengan hak akses. Pada FrmLogin terdapat 2 pilihan yaitu Pakar dan Pemakai. Kita harus membedaka antara menu Pakar dan menu Pemakai, begitu juga dengan toolbarnya.
Double klik FrmLogin pada Project Explorer
Setelah FrmLogin aktif, kita tambahkan kode untuk membatasi antara Pakar dan Pemakai. Berikut kodenya: Private Sub cmdLogin_Click() If Me.optPilihan(0).Value = True Then MDIUtama.mnuPakar.Visible = False MDIUtama.ToolBar1.Buttons(1).Visible = False
Else MDIUtama.mnuPemakai.Visible = False MDIUtama.ToolBar1.Buttons(2).Visible = False End If MDIUtama.Show MDIUtama.SetFocus End Sub Simpan dan coba jalankan program dengan dengan memilih salah satu radiobutton.
3. StatusBar VB menyediakan panel-panel dengan beberapa informasi khusus yang dapat digunakan dalam StatusBar seperti Jam, Tanggal, Status tombol keyboard, dan teks kosong untuk kita tambah informasi didalamnya. Contoh berikut adalah StatusBar yang menampilkan Jam, Tanggal seta status pemakai sistem pakar.
Buka MDIUtama, lalu tempatkan kontrol StatusBar di dalamnya. Kontrol statusbar akan ditempatkan secara otomatis dibagian bawah dari MDIUtama. Tetapi sebagaimana pengaturan nilai properti Align pada kontrol ToolBar, kita dapat mengatur posisinya secara bebas.
Klik kanan kontrol StatusBar kemudian pilih Propeties. Pada bagian Panels. VB memberikan nilai indeks 1 untuk panel yang baru. Sekarang kita akan menampilkan tanggal pada panel 1, jam pada panel 2, dan status pemakai pada panel 3.
Pilih style dari daftar lalu atur nilainya menjadi 6-sbrDate dan juga pilih Alignment yang bernilai 1-sbrCenter. Pengaturan ini bertujuan untuk menampilkan tanggal di posisi tengah-tengah panel 1.
Untuk menampilkan jam pada panel 2, klik tombol Insert Panel untuk menambahkan panel yang baru. Sekarang pilih Indek 2 untuk mengaktifkan panel yang baru, lalu atur pengaturan style bernilai 5-sbrTime dan Aligment benilai 1-sbrCenter.
Yang terakhir, tambahkan lagi sebuah panel, kemudian pilih Style bernilai Text dan Aligment bernilai 1-sbrCenter. Kita akan menampilkan teks pada panel ini secara pemrograman.
Sekarang simpan program dan coba jalankan, jika tidak ada error kemudian buka kembai FrmLogin dan tambahkan beberapa perintah berikut: Private Sub cmdLogin_Click() If Me.optPilihan(0).Value = True Then MDIUtama.mnuPakar.Visible = False MDIUtama.ToolBar1.Buttons(1).Visible MDIUtama.StatusBar1.Panels(3).Text = Else MDIUtama.mnuPemakai.Visible = False MDIUtama.ToolBar1.Buttons(2).Visible MDIUtama.StatusBar1.Panels(3).Text = End If MDIUtama.Show MDIUtama.SetFocus End Sub
= False “Pemakai” = False “Pakar”
4. ProgressBar Kontol ini berfungsi memberikan informasi kepada pemakai lama atau panjangnya suatu operasi. Kontrol Timer adalah kontrol yang paling dibutuhkan untuk digunakan bersamasama. Pengaturan terpenting pada kontrol ini adalah nilai Maximum dan Minimum dari kontrol. Berikut contoh penggunaanya:
Tambahkan form baru pada program kita, lalu atur propertinya sebagai berikut: Properti Name BorderStyle Caption ControlBox MDIChild
Nilai FrmAnimasi 3-Fixed Dialog Proses..... False True
Tambahkan sebuah kontrol ProgressBar dan sebuah kontrol Timer di dalamnya. Atur tampilan sehingga kurang lebih seperti berikut ini:
Atur properti ProgressBar1 sebagai berikut: Properti Nilai Min 0 Max 10000 BorderStyle 1-ccFixedSingle Properti diatas juga dapat diatur melalui pemrograman dengan menyelipkan kode pada prosedure Form_Load seperti berikut: Private Sub Form_Load() Me.ProgressBar1.Max = 10000 Me.ProgressBar1.Min = 0 End Sub
Atur properti Interval dari kontrol Timer1 bernilai 150.
Double klik kontrol Timer1, kemudian ketik perintah berikut ini: Private Sub Timer1_Timer() For i = Me.ProgressBar1.Min To Me.ProgressBar1.Max Me.ProgressBar1.Value = i Next i End Sub
Untuk melengkapi program kita hingga FrmAnimasi dapat dilihat, tambahkan perintah berikut pada prosedur cmdProses yang baru telah kita tambahkan sebelumnya. Private Sub cmdProses_Click() Load FrmAnimasi FrmAnimasi.SetFocus End Sub Simpan program VB kita dan form FrmAnimasi. Kemudian jalankan. Giman hasilnya?
5. Animation Tidak jauh berbeda dengan kontrol ProgressBar, kontrol ini juga digunakan untuk menampilkan animasi yang mewakili suatu proses operasi. Kontrol animasi menggunakan file-file dengan ekstensi AVI. Berikut contooh penggunaannya:
Tambahkan sebuah kontrol Animation pada bagian atas ProgressBar1 dari form FrmAnimasi.
Ketikkan kode berikut pada prosedur Form_Load dan Form_Unload. Private Sub Form_Load() Me.ProgressBar1.Max = 10000 Me.ProgressBar1.Min = 0 Me.Animation1.Open “C\Program Studio\Common\Graphics\Videos\FILECOPY.AVI” Me.Animation1.Play End Sub
Simpan dan jalankan program untuk melihat hasilnya.
Files\Microsoft
Visual