Home, Forum diskusi, Chatting, Download

Kontrol Standard (bagian 4)

HScrollBar dan VScrollBar

Horizontal ScrollBar dan Vertical ScrollBar digunakan untuk memungkinkan pemakai melakukan pemasukkan data secara analog, dengan melakukan pengeseran ataupun penekanan tombol (kiri, kanan, atas, bawah). Anda dapat membayangkan Scrollbar sebagai pengatur Volume pada Radio.

Event Pada ScrollBar

Pada ScrollBar ada dua event yang perlu diperhatikan, yaitu Event Change dan Event Scroll, dimana :

Event Change, akan dibangkitkan ketika terjadi perubahan Value pada ScrollBar, tetapi event ini tidak dibangkitkan ketika pemakai masih melakukan pengeseran terhadap Bar, kecuali kalau pemakai telah melepaskan tombol kiri Mouse.

Contoh :

Private Sub VScroll_Change()
ImgGambar.Top = -VScroll.Value      'Berlawanan arah
End Sub

Private Sub HScroll_Change()
ImgGambar.Left = -HScroll.Value     'Berlawanan arah
End Sub

Event Scroll, akan dibangkitkan ketika pemakai melakukan pergeseran terhadap Bar dengan menggunakan drag pada tombol kiri mouse, jadi Event Scroll akan terjadi ketika pemakai melakukan pergeseran dengan menekan tombol kiri mouse, dan diakhiri dengan Event Change ketika pemakai melepas penekenan tombol mouse.

Jadi anda harus memanfaatkan kedua event tersebut untuk mendapatkan hasil yang baik dari pemakaian ScrollBar.

Line dan Shape

Timer

Event Timer

Event Timer adalah event yang dibangkitkan oleh kontrol timer berdasarkan interval waktu yang telah ditentukan.

Contoh :

Private Sub Timer_Timer()
Call AturJarum
End Sub

Module Pada Visual Basic

Visual Basic menyediakan module yang dapat digunakan untuk memuat fungsi,subrutin, konstanta, variabel dan type ciptaan yang akan disediakan bagi keseluruhan project. Untuk membuat module dalam project anda dapat menggunakan perintah Project, Add Module.

Sesaat setelah anda menambahkan module, maka pada Jendela Project Explorer akan nampak Module1

Untuk melakukan koding, anda dapat melakukan double klik pada Module tersebut.

Deklarasi Variabel Pada Module

Pada Module anda dapat mendeklarasikan variabel dengan awalan DIM, PRIVATE maupun PUBLIC, dimana awalan DIM dan PRIVATE anda membentuk variabel Module Level (hanya berlaku didalam pemakaian module bersangkutan), sedangkan awalan PUBLIC akan menghasilkan variabel Global yang akan berfungsi bagi keseluruhan Program.

Contoh :

Dim A as Integer            'Variabel A adalah Module Level
Private B as Integer        'Variabel B adalah Module Level
Public C as Integer         'Variabel C dapat digunakan oleh program keseluruhan

Deklarasi Fungsi dan Sub

Sub dan Function yang dideklarasikan dalam suatu Module bersifat Global bagi keseluruhan program, kecuali kalau diawali dengan awalan PRIVATE.

Contoh :

Sub Tengah(x)
x.Move (Screen.Width - x.Width) \ 2, _
       (Screen.Height - x.Height) \ 2
End Sub

Sub Tengah diatas berlaku untuk program secara keseluruhan.

Latihan 1, Memanfaatkan HScrollBar dan VScrollBar untuk membuat gambar yang dapat bergeser

Latihan 2, Memanfaatkan Shape, Line, dan Timer untuk membuat Jam Analog

Latihan 3, Tantangan Penyempurnaan Program