Membuat Program Memakai HScrollBar

Objek HscrollBar merupakan objek berbentuk Batang horizontal,Anda dapat memasukkan angka dengan men-drag batang atau mengklik panah ke kanan. Program yang akan kita buat untuk menghitung luas segi empat yang diarsir. Anda hanya dapat memilih panjang luar, lebar dalam, panjang dalam, dan lebar luar dengan memakai scrollbar. Untuk lebih jelasnya ikuti pembuatan programnya di bawah ini.

Buat tampilan form sebagai berikut

 

Pengaturan properti untuk FmPrgScroll seperti bawah ini.

No Objek               Properti          Nilai

1    FmPrgScroll      Text                  Form Memakai

                                                        Objek HScrollBar

2    Label1               Text                  Menghitung Luas Segi

                                                        Empat yang Diarsir

3    Label1               Font style          Bold

4    Label2               Text                  Panjang Luar

5    Label2               Font style          Bold

6    Label3               Text                  Panjang Dalam

7    Label3               Font style          Bold

8    Label4               Text                  Lebar Luar

9    Label4               Font style          Bold

10  Label5               Text                  Lebar Dalam

11  Label5               Font style          Bold

12  HscrollBar1        Name               HscrollBar1

13  HscrollBar2        Name               HscrollBar2

14  HscrollBar3        Name               HscrollBar3

15  HscrollBar4        Name               HscrollBar4

16  TextBox1           Name               TextBox1

17  TextBox2           Name               TextBox2

18  TextBox3           Name               TextBox3

19  TextBox4           Name               TextBox4

20  TextBox5           Name               TextBox5

21  Button1              Text                  &Selesai

22  Button1              Name               BSelesai

23  Button1              Font style          Bold

Memberi Perintah atau Event

Click Event Bselesai

Langkah membuat Click Event Bselesai sebagai berikut:

1. Klik dua kali Button Selesai.

2. Ketik perintah sebagai berikut:

    End

3. Di Solution Explorer klik View Designer (untuk menuju ke form designer).

Click Event Form1
Langkah membuat Click Event Form1 sebagai berikut :
1. Klik 2x pada Form yg tidak ada objek
2. Kemudian ketika perintah sebagai berikut :
    HScrollBar1.Minimum = 0

    HScrollBar1.Maximum = 20000

    HScrollBar1.SmallChange = 100

    HScrollBar1.LargeChange = 1000

    HScrollBar2.Minimum = 0          

    HScrollBar2.Maximum = 20000

    HScrollBar2.SmallChange = 100

    HScrollBar2.LargeChange = 1000

    HScrollBar3.Minimum = 0

    HScrollBar3.Maximum = 20000

    HScrollBar3.SmallChange = 100

    HScrollBar3.LargeChange = 1000

    HScrollBar4.Minimum = 0

    HScrollBar4.Maximum = 20000

    HScrollBar4.SmallChange = 100

    HScrollBar4.LargeChange = 1000

3. Di Solution Explorer klik View Designer (untuk menuju ke form designer).

 Arti perintah di atas: Untuk mengatur nilai minimum 0 untuk HscrollBar1 dan nilai maksimum 20000. Properti SmallChange untuk perubahan nilai kecil 100 dan perubahan nilai besar memakai properti LargeChange.

Scroll Event HscrollBar1

Langkah membuat Scroll Event HscrollBar1 sebagai berikut:
1. Klik dua kali CmbJnsUkr, kemudian pilih sebelah kanan 
    Method Name: Scroll
2. Kemudian ketika perintah sebagai berikut :

    TextBox1.Text = Format(HScrollBar1.Value, "#########")    
    TextBox2.Text = Format(HScrollBar2.Value, "#########")         
    TextBox3.Text = Format(HScrollBar3.Value, "#########")      
    TextBox4.Text = Format(HScrollBar4.Value, "#########")
    TextBox5.Text = Val(TextBox1.Text) * Val(TextBox3.Text) –
                               Val(TextBox2.Text) * Val(TextBox4.Text)
3. Di Solution Explorer klik View Designer (untuk menuju ke form designer).

    

Scroll Event HscrollBar2

Langkah membuat Scroll Event HscrollBar2 sebagai berikut:
1. Klik dua kali CmbJnsUkr, kemudian pilih sebelah kanan 
    Method Name: Scroll.
2. Kemudian ketika perintah sebagai berikut :
3. Di Solution Explorer klik View Designer (untuk menuju ke form designer).
    TextBox1.Text = Format(HScrollBar1.Value, "#########")
    TextBox2.Text = Format(HScrollBar2.Value, "#########")
    TextBox3.Text = Format(HScrollBar3.Value, "#########")
    TextBox4.Text = Format(HScrollBar4.Value, "#########")
    TextBox5.Text = Val(TextBox1.Text) * Val(TextBox3.Text) –
                               Val(TextBox2.Text) * Val(TextBox4.Text)

Scroll Event HscrollBar3

Langkah membuat Scroll Event HscrollBar3 sebagai berikut:

1.   Klik dua kali CmbJnsUkr, kemudian pilih sebelah kanan 
      Method Name: Scroll.

2.   Setelah itu ketik perintah sebagai berikut:

      TextBox1.Text = Format(HScrollBar1.Value, "#########")

      TextBox2.Text = Format(HScrollBar2.Value, "#########")

      TextBox3.Text = Format(HScrollBar3.Value, "#########")

      TextBox4.Text = Format(HScrollBar4.Value, "#########")

      TextBox5.Text = Val(TextBox1.Text) * Val(TextBox3.Text) - 

                                 Val(TextBox2.Text) * Val(TextBox4.Text)

3.   Di Solution Explorer klik View Designer (untuk menuju ke form designer).

Scroll Event HscrollBar4

Langkah membuat Scroll Event HscrollBar4 sebagai berikut:
1. Klik dua kali CmbJnsUkr, kemudian pilih sebelah kanan 
    Method Name: Scroll
2. Setelah itu ketik perintah sebagai berikut:
3. TextBox1.Text = Format(HScrollBar1.Value, "#########")
    TextBox2.Text = Format(HScrollBar2.Value, "#########")
    TextBox3.Text = Format(HScrollBar3.Value, "#########") 
    TextBox4.Text = Format(HScrollBar4.Value, "#########")
    TextBox5.Text = Val(TextBox1.Text) * Val(TextBox3.Text) –
                               Val(TextBox2.Text) * Val(TextBox4.Text)

3. Di Solution Explorer klik View Designer (untuk menuju ke form designer).

Click Event BSelesai

1.   Klik dua kali BSelesai, kemudian pilih sebelah kanan Method Name: Click.

2.   Setelah itu ketik perintah sebagai berikut:

      End

3.   Di Solution Explorer klik View Designer (untuk menuju ke form designer).

Menyimpan Form

Sebelum menjalankan program, simpan kembali program dengan memilih menu File > Save Form1.vb As…, jangan lupa arahkan folder ke Folder yg telah kamu rencanakan. Nama form-nya FmPrgScroll.

Menjalankan Program

Untuk menjalankan FmPrgScroll, langkahnya sebagai berikut:

1.   Dalam keadaan FmPrgScroll aktif atau terbuka.

2.   Jalankan program dengan menekan F5 atau klik ikon Start Debugging, 
      scroll angka seperti berikut.