Love Timor: Membuat Progress Bar dengan Visual Basic

Membuat Progress Bar dengan Visual Basic

Saat mengerjakan suatu tugas dengan komputer, terutama yang hasilnya ditunggu oleh orang lain,sebaiknya kita juga menggunakan progress bar. Apa itu Progress Bar?? Progress bar bisa dikatakan ‘alat loading’ yaitu sebuah aplikasi yang bertugas untuk menampilkan indikator perkembangan proses agar user tidak menganggap aplikasi komputer tersebut berhenti di tengah jalan.

Berikut adalah tahap-tahap dalam membuat progress bar dengan visual basic :

Langkah 1 : Jalankan aplikasi visual basic-mu

Langkah 2 : Buat project baru dan desain form1 seperti gambar dibawah ini.

Langkah 3 :Atur control properties dari form1 seperti table dibawah ini.

No.	Kontrol	Properties
1	Label	Name : label1 Caption : Timoresse Progress Bar
2	Label	Name : label2 Caption : 0
3	Label	Name : lbl1 Caption : 0
4	Label	Name : lbl2 Caption : 0
5	Label	Name : lbl3 Caption : 0
6	Label	Name : label3 Caption : %
7	Label	Name : label4 Caption : %
8	Label	Name : label5 Caption : %
9	Frame	Name : Frame1 Caption : Rata-Rata
10	Frame	Name : Frame2 Caption : Masing-Masing
11	ProgressBar	Name : ProgressBar6 Scrolling : 0-ccScrolingStandar
12	ProgressBar	Name : ProgressBar1 Scrolling : 1-ccScrolingSmooth
13	ProgressBar	Name : ProgressBar2 Scrolling : 1-ccScrolingSmooth
14	ProgressBar	Name : ProgressBar3 Scrolling : 1-ccScrolingSmooth
15	Timer	Name :Timer2 Interval :1
16	Timer	Name :Timer1 Interval :100
17	Timer	Name :Timer3 Interval :300
18	Timer	Name :Timer4 Interval :50

Langkah 4 : Masukan script code berikut ke dalam halaman program form1 diatas

Dim Total As String

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
lbl1.Caption = lbl1.Caption + 1
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
lbl1.Caption = "100"
End If
End Sub

Private Sub Timer2_Timer()
Total = (Val(lbl1.Caption) + Val(lbl2.Caption) + Val(lbl3.Caption)) / 3
ProgressBar6.Value = Total
lblTotal.Caption = ProgressBar6.Value & " %"
End Sub

Private Sub Timer3_Timer()
ProgressBar2.Value = ProgressBar2.Value + 1
lbl2.Caption = lbl2.Caption + 1
If ProgressBar2.Value = 100 Then
Timer3.Enabled = False
lbl2.Caption = "100"
End If
End Sub

Private Sub Timer4_Timer()
ProgressBar3.Value = ProgressBar3.Value + 1
lbl3.Caption = lbl3.Caption + 1
If ProgressBar3.Value = 100 Then
Timer4.Enabled = False
lbl3.Caption = "100"
End If
End Sub

Langkah 5 :Tekan F5 untuk runnin dan testing program. Bila berhasil maka akan tampil seperti gambar dibawah ini.