Cara Membuat ProgresBar di Visual Basic .Net Dengan Mudah dan Praktis

Pernah gak kepikiran ingin membuat program tapi ingin menampilkan proses loading kaya website-website atau aplikasi aplikasi besar agar terlihat profesional?. Nah disinilah ProgressBar kita gunakan.

Di artikel ini kita akan membahas secara lengkap cara membuat ProgressBar di Visual Basic .Net mulai dari pengertian, fungsi sampai contoh implementasi kodenya.

A. Apa itu ProgressBar di VB .Net?

ProgressBar adalah komponen control dalam windows forms yang di gunakan untuk menampilkan indikator visual dari suatu proses yang sedang berjalan.

B. Fungsi ProgressBar

Secara sederhana progressbar di vb .net berfungsi untuk:

• Menampilkan proses yang sedang berlangsung
• Memberikan feedback visual kepada pengguna
• Meningkatkan pengalaman pengguna

C. Kapan ProgressBar di gunakan?

ProgressBar digunakan saat:

• Loading Data dari DataBase
• Proses Upload dan Download file
• Proses Instalasi Aplikasi
• Proses perhitungan berat

E. Fungsi dan Manfaat ProgressBar

• Memberikan informasi proses
• Meningkatkan user Experience
• Mengurangi ketidak pastian

F. Cara Membuat ProgressBar

Dalam artikel ini Admin akan membuat ProgressBar menggunakan beberapa cara yang berbeda tetapi dengan hasil yang sama

1. Menggunakan Timer

Tambahkan Button danTimer ke Form dengan interval:100, Enabled:False

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ProgressBar1.Value = 0

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If ProgressBar1.Value < ProgressBar1.Maximum Then

            ProgressBar1.Value += 1

            Label1.Text = ProgressBar1.Value.ToString() & " %"

        Else

            Timer1.Stop()

            MessageBox.Show("Proses Selesai!")

        End If

    End Sub

End Class

Hasil :

ProgressBar di VB .Net

2. Menggunakan Looping

Tambahkan 1 Button

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ProgressBar1.Minimum = 0

        ProgressBar1.Maximum = 100

        For i As Integer = 0 To 100

            ProgressBar1.Value = i

            Application.DoEvents() ' supaya UI tetap update

            Threading.Thread.Sleep(50) ' simulasi proses

            Label1.Text = ProgressBar1.Value.ToString() & " %"

        Next

        MessageBox.Show("Loading Selesai!")

    End Sub

End Class

Hasil :

ProgressBar di VB .Net

3. Menggunakan Background Worker

Tambahkan Button dan BackgroundWorker ke Form, atur WorkerReportsProgress:True

Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        For i As Integer = 0 To 100

            Threading.Thread.Sleep(50)

            BackgroundWorker1.ReportProgress(i)

        Next

    End Sub

Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

        ProgressBar1.Value = e.ProgressPercentage

    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

        MessageBox.Show("Proses Selesai!")

    End Sub

End Class

Hasil sama dengan kedua cara diatas

4. Menggunakan Panel dan Timer

Tambahkan Panel1 dan Timer1(Interval:100, Enablrd:False)

Public Class Form1

    Dim nilai As Integer = 0

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'Memggunakan Panel

        nilai = 0

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If nilai < 100 Then

            nilai += 1

            Panel1.Invalidate() ' memanggil Paint ulang

        Else

            Timer1.Stop()

            MessageBox.Show("Selesai")

        End If

    End Sub

    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

        Dim rect As Rectangle = Panel1.ClientRectangle

        ' background

        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rect)

        ' isi progress

        Dim lebar As Integer = CInt(rect.Width * nilai / 100)

        e.Graphics.FillRectangle(Brushes.LightGreen, 0, 0, lebar, rect.Height)

        ' teks persen

        Dim text As String = nilai.ToString() & " %"

        Dim f As New Font("Segoe UI", 10, FontStyle.Bold)

        Dim textSize As SizeF = e.Graphics.MeasureString(text, f)

        Dim x As Single = (rect.Width - textSize.Width) / 2

        Dim y As Single = (rect.Height - textSize.Height) / 2

        e.Graphics.DrawString(text, f, Brushes.Black, x, y)

    End Sub

End Class

Hasil :

ProgressBar di VB .Net

Itulah beberapa cara yang digunakan untuk membuat ProgressBar di visual Basic .Net, silahkan Anda ingin membuat yang mana tergasntung kebutuhan.

Demikianalah artikel kali ini membahas tentang Cara Membuat ProgresBar di Visual Basic .Net Dengan Mudah dan Praktis, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba berhasil