Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

Discussion in 'Programming' started by seotog, Jul 23, 2018.

  1. seotog

    seotog Guest

    visual basic.jpg
    Selamat siang menjelang sore sobat TOG, pada kesempatan kali ini kita akan berbagi tutorial cara membuat progress bar vertical di visual basic. Biasanya kalian kalau membuat progress bar biasa yang bentuknya horisontal saya pastikan semua pasti sudah bisa :D Dibawah ini saya akan menunjukkan cara membuat progress bar yang bentuknya tidak seperti biasa, berikut step-stepnya:

    1. Buka program Visual Basic anda, pada tutorial ini saya menggunakan Microsoft Visual Basic 2010 Express pilih Windos Form Applications

    2. Lalu pilih menu Project dan pilih Add Class

    [​IMG]



    3. Kemudian pilih Class dan beri nama VerticalBar_Vertical atau nama lain sesuai keinginan kita terus tekan Add

    [​IMG]



    4. Setelah itu kita menekan Add, pada Solution Explorer sebelah kanan akan muncul Class yang telah dibuat

    [​IMG]



    5. Tambahkan script berikut ini pada class ProgressBar_Vertical

    1 Imports System
    2 Imports System
    3 Imports System.Windows.Forms
    4 Public Class ProgressBar_Vertical
    5 Inherits ProgressBar
    6 Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
    7 Get
    8 Dim cp As CreateParams = MyBase.CreateParams
    9 cp.Style = cp.Style Or &H4
    10 Return cp
    11 End Get
    12 End Property
    13 End Class

    6. Debug program tersebut dengan cara tekan tombol F5 atau pada menu Debug->Start Debugging

    [​IMG]



    7. Tutup form hasil debug, dan sekarang pada ToolBox akan muncul Windows Component baru yaitu Pointer dan ProgressBar_Vertical

    [​IMG]



    8. Sekarang saatnya menggunakan ProgressBar Vertical tadi, pilih Component ProgressBar_Vertical pada toolbox. Tempatkan pada form sehingga nanti akan tampak seperti gambar dibawah ini

    [​IMG]



    9. Kemudian view code itu dengan menekan tombol F7, lalu masukkan code berikut ini ya

    1 Public Class Form1
    2 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3
    4 ProgressBar_Vertical1.Value = 90
    5
    6 ProgressBar_Vertical2.Value = 80
    7
    8 ProgressBar_Vertical3.Value = 70
    9
    10 ProgressBar_Vertical4.Value = 50
    11
    12 ProgressBar_Vertical5.Value = 40
    13 End Sub
    14
    15 End Class



    10. Sekarang debug program dan lihat hasilnya

    [​IMG]



    Kalau ingin mengembangkan lagi misalnya untuk membuat seperti volume bar sederhana seperti berikut ini:

    Desain Form

    [​IMG]

    Source code:

    1 Public Class Form1
    2
    3 Dim vol As Integer
    4
    5 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6
    7 End Sub
    8
    9 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10
    11 vol = vol + 1
    12
    13 ProgressBar_Vertical1.Value = vol
    14
    15 End Sub
    16
    17 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    18
    19 vol = vol - 1
    20
    21 ProgressBar_Vertical1.Value = vol
    22 End Sub
    23
    24 End Class

    ini screenshot hasil tampilannya:

    [​IMG]



    Sekian untuk artikel kali ini yang berjudul Visual Basic - Tutorial Cara Membuat Progress Bar Vertical, semoga ini bisa membantu kalian yang sedang membuat progress bar di vb ya. Jangan lupa untuk mengirimkan dan apply CV/Resume terbaik anda ke PT TOG Indonesia karena sekarang ini masih banyak lowongan kerja di bidang IT dan sudah sudah kerja sama dengan banyak perusahaan-perusahaan ternama.



    Salam Sukses



    TOG Indonesia
     
Loading...

Share This Page