Cara Membuat Progress Bar Percentage dengan VB.NET 2010

Greeting,

Bagaimana kabar kalian? Semoga baik-baik saja dan dan slalu dalam Lindungan-NYA, amiinn :)

Di waktu yang cukup luang ini kembali lagi saya akan memberikan sebuah tutorial, kali ini saya akan memberikan cara tentang bagaimana membuat sebuah 'Progress Bar Percentage dengan VB.NET 2010'.

Sebelum itu, ada yang tahukah apa sih progress bar itu ? dan untuk apa kegunaannya :/

Hmmm ....kalau begitu, saya akan coba menjelaskan sedikit tentang progress bar.

Apa itu Progress Bar ?

Progress Bar adalah Proses loading yang biasanya kita liat pada saat proses Loading copy paste. Progressbar biasanya dibutuhkan untuk memvisualisasikan sebuah data dengan range yang sudah diketahui. Progressbar dapat dengan mudah dijumpai pada beberapa aplikasi. Di windows sendiri bisa dijumpai saat kita memindah file dari sebuah directory ke directory lainnya.

Salah satu kegunaan progressbar adalah memberikan aspek psikologis kepada user tentang suatu proses yang sedang berlangsung. Dengan adanya progress bar, user bisa mengetahui berapa lama suatu proses telah berlangsung dan berapa waktu yang dibutuhkan selanjutnya.

Nah, bagaimana kita bisa membuat program Progress Bar tersebut di VB.Net 2010. Mari Kita sama-sama belajar. Baiklah.. langsung kita mulai saja tutorialnya :

• Langkah pertama tentunya kalian membuat project terlebih dahulu pada VB.NET 2010 dengan cara click 'Start' > 'All Programs' > Kemudian cari direktori tempat kalian menginstall VB.NET nya , seperti yang terlihat pada gambar di bawah ini : 

• Buat 'New Project' berikan nama pada kolom 'File Name' , kemudian click 'OK'

• Buatlah form progress bar seperti pada tampilan dibawah ini :

• Berikan nama sesuka kalian pada masing-masing toolbox, sebagai contoh:

1. Label1 = Loading Info...
2. Label2 = %
3. ProgressBar1 = ProgressBar1
4. Timer1 = Timer1

• Click 2x pada 'Timer1' sehingga muncul Event Tick pada timernya, kemudian isi dengan coding seperti dibawah ini :

  'perintah untuk mengatur interval progress bar

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

        If ProgressBar1.Value < 100 Then

            ProgressBar1.Value += 2

        ElseIf ProgressBar1.Value = 100 Then

            Timer1.Stop()

            MessageBox.Show("Selamat, enkripsi berhasil dilakukan", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Me.Close()

        End If

  'perintah untuk membuat loading info

        If ProgressBar1.Value = 20 Then

            Label1.ForeColor = Color.Aqua

            Label1.Text = "Mempersiapkan Data Pertama"

        ElseIf ProgressBar1.Value = 40 Then

            Label1.ForeColor = Color.CadetBlue

            Label1.Text = "Mempersiapkan Data Kedua"

        ElseIf ProgressBar1.Value = 50 Then

            Label1.ForeColor = Color.Green

            Label1.Text = "Mempersiapkan Data Ketiga"

        ElseIf ProgressBar1.Value = 60 Then

            Label1.ForeColor = Color.Gold

            Label1.Text = "Mempersiapkan Data Keempat"

        ElseIf ProgressBar1.Value = 70 Then

            Label1.ForeColor = Color.Red

            Label1.Text = "Mempersiapkan Data Kelima"

        ElseIf ProgressBar1.Value = 80 Then

            Label1.ForeColor = Color.Orange

            Label1.Text = "Mempersiapkan Data Ketujuh"

        ElseIf ProgressBar1.Value = 90 Then

            Label1.ForeColor = Color.Red

            Label1.Text = "Mempersiapkan Data Kedelapan"

        ElseIf ProgressBar1.Value = 100 Then

            Label1.ForeColor = Color.Maroon

            Label1.Text = "Mempersiapkan Data Kesembilan"

        End If

  'perintah untuk percentage

        Label2.Text = Math.Round((ProgressBar1.Value / 100) * 100, 2) & "%"

    End Sub

• Click 2x pada Form nya sehingga muncul Event Form Load kemudian isi dengan coding seperti dibawah ini :

 'perintah untuk memulai timer / agar progressbar berjalan

Private Sub ProgressBarPercentage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Start()

    End Sub

• Berikut adalah hasil akhirnya :

Selesai deh ^_^ , sekarang kalian sudah bisa membuat progress bar ...

Mudah sekali bukan, sering-sering mampir kesini ya ;)

Sampai jumpa di tutorial berikutnya, terima kasih