Tutorial Cara Membuat Progress Bar Vertical

Selamat siang 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

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

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

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

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

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

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

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

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

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

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

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

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 ProgressBar_Vertical1.Value = 90
4  ProgressBar_Vertical2.Value = 80
5 ProgressBar_Vertical3.Value = 70
6 ProgressBar_Vertical4.Value = 50
7 ProgressBar_Vertical5.Value = 40
8  End Sub
9 End Class

10. Sekarang debug program dan lihat hasilnya

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

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

Desain Form

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

Source code:

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

ini screenshot hasil tampilannya:

Visual Basic - Tutorial Cara Membuat Progress Bar Vertical

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