[Visual Basic] ProgressBar How to Stop Resume and Reset

Kali ini saya akan memberikan contoh mengenai pembuatan progressbar, Progressbar merupakan suatu indikator yang bergerak sesuai dengan waktu atau range yang kita tentukan sendiri.

Mengenal ProgressBar // progressbar digunakan untuk menunjukkan status suatu proses dengan menampilkan sejumlah kotak pada horizontal bar/palang horizontal, jika proses selesai, palang akan terisi penuh oleh.

Progressbar biasanya digunakan untuk menunjukkan beberapa lama user menunggu untuk suatu proses sampai selesai, misalnya melakukan load file atau juga untuk membuka suatu file,. Sedangkan timer disini digunakan untuk membuat program yang memerlukan data berupa waktu contohnya untuk membuat Loading progress . Sebuah Timer biasanya tidak akan tampil diantarmuka fisik form, tetapi hanya berjalan dibelakang layar.

berikut ini adalah contoh penggunaan progressbar dan timer untuk membuat aplikasi progressbar yang juga disertakan code untuk memberhentikan proses, meresume proses ataupun untuk mambatalkan proses  dalam progressbar yang dibuat

program vb ProgressBar

Membuat desain antarmuka  / bebas terserah agan

program vb ProgressBar

Komponen yang dibutuhkan

• ProgressBar
• Timer
• Button
• Label

Untuk code program bisa dilihat dibawah ini

Kunjungi juga contoh aplikasi laporan CRUD disini

——————————————————————————————————–

Public Class Form1

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

Timer1.Start()

End Sub

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

If ProgressBar1.Value < 100 Then

ProgressBar1.Value += 1

ElseIf ProgressBar1.Value = 100 Then

Timer1.Stop()

MessageBox.Show(“Mission Complete”, “info!”, MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

End Sub

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

Timer1.Stop()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Start()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

ProgressBar1.Value = 0

End Sub

End Class

Keterangan

Timer1.Start()  // untuk menjalankan waktu atau timer

Logikanya,,

If ProgressBar1.Value < 100 Then

ProgressBar1.Value += 1

ElseIf ProgressBar1.Value = 100 Then

jika progressbar nilainya kurang dari 100, maka nilainya ditambah 1 sampai progressbar nilainya mencapai 100 kemudian Timer1.Stop() yaitu berhenti dalam melakukan prosesnya karena nilainya sudah mencukupi  // value=100 Then

setelah nilainya mencapai 100 , maka muncullah pesan yang kita berikan simpelnya

MessageBox.Show(“Mission Complete”) atau juga bisa menggunakan model peringatan dengan perintah dibawah ini

MessageBox.Show(“Mission Complete”, “info!”, MessageBoxButtons.OK, MessageBoxIcon.Information)