Selasa, 15 Januari 2013

Cara Membuat Animasi ProgressBar Pada Microsoft Visual Basic 6.0

Penggunaan kontrol ProgressBar akan membuat suatu program akan lebih menarik. Cara membuat animasi ProgressBar pada Microsoft Visual Basic 6.0 relatif sederhana. Disini kita menggunakan kontrol ProgressBar  dan Timer. Pertama kita buka lembar kerja baru. Kita dapat melihat pada Toolbox bahwa control ProgressBar belum muncul, karena secara default kontrol ProgressBar tidak Nampak pada Toolbox, untuk menampilkannya klik Menu Project => Components atau tekan tombol Ctrl dan huruf T (Ctrl + T) pada keyboard secara bersamaan. Maka akan tampil jendela Components seperti pada gambar berikut :
 

Kemudian beri tanda centang (tanda benar) pada Microsoft Windows Common Controls 6.0 (SP6) lalu klik Apply, lalu Close.
Sesudah 
Sebelum
 
Selanjutnya kontrol pada pada Toolbox akan bertambah. Sebagai perbandingan, saya tampilkan gambar Toolbox sebelum dan sesudah  diberi tanda centang (tanda benar) pada Microsoft Windows Common Controls 6.0 (SP6) seperti pada gambar berikut :
 




Kemudian masukkan control ProgressBar dan timer seperti gambar berikut :


 

Kemudian ketik Listing Program berikut ini :
Option Explicit
Dim i As Integer
Private Sub Form_Load()
Me.Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
 i = i + 10
    Me.ProgressBar1.Value = i
    If i = 100 Then
       Me.ProgressBar1.Value = i
       Timer1.Enabled = False
       End
    End If
End Sub
Apabila program dijalankan, hasilnya akan terlihat seperti pada gambar berikut ini :