Mohon tunggu...
TOG INDONESIA
TOG INDONESIA Mohon Tunggu... -
Akun Diblokir

Akun ini diblokir karena melanggar Syarat dan Ketentuan Kompasiana.
Untuk informasi lebih lanjut Anda dapat menghubungi kami melalui fitur bantuan.

Selanjutnya

Tutup

Gadget

Tutorial Cara Membuat Progress Bar Vertical

23 Juli 2018   16:17 Diperbarui: 23 Juli 2018   16:36 415
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.
Lihat foto
Visual Basic - 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
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
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
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
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
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
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
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
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
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

Baca konten-konten menarik Kompasiana langsung dari smartphone kamu. Follow channel WhatsApp Kompasiana sekarang di sini: https://whatsapp.com/channel/0029VaYjYaL4Spk7WflFYJ2H

HALAMAN :
  1. 1
  2. 2
  3. 3
Mohon tunggu...

Lihat Konten Gadget Selengkapnya
Lihat Gadget Selengkapnya
Beri Komentar
Berkomentarlah secara bijaksana dan bertanggung jawab. Komentar sepenuhnya menjadi tanggung jawab komentator seperti diatur dalam UU ITE

Belum ada komentar. Jadilah yang pertama untuk memberikan komentar!
LAPORKAN KONTEN
Alasan
Laporkan Konten
Laporkan Akun