Cara Buat Loading (Progress Bar) di VB 6

Untuk sekedar membuat proses loading di VB6 sebenarnya sangat mudah. Asalkan kita tahu logikanya saja. Seperti kita membuat sebuah algoritma dengan sistem counter dengan dasar "n=n+1". Hanya saja kita perlu menambahkan fungsi logika IF untuk validasi lanjutnya.

Untuk menampilkan / manambahkan ProgressBar di VB, cukup klik kanan di sidebar - general pilih component. Nanti akan muncul pop-up (jendela component), cari Microsoft Windows Common Control 6.0 (SP6) cukup centang dan "Apply".

Silahakn buat 2 Form, 1 untuk Form utama dan satu lagi untuk Form Loadingnya. Dan untuk Form loading Anda cukup menambahkan ProgressBar dan Timer. berikut ini contoh Form loading nya:





Klik gambar Timer, lalu di tabel properties isikan interval = 100.









Kemudian klik 2kali di gambar Timer, untuk memulai codingnya. Pertama buat perhitungan counter'nya dengan perintah:
ProrgessBar1.value = Progressbar1.value + 10
Angka 10 dapat Anda ganti untuk memperlambat / menambah kecepatan. Asumsinya gini, Interval yang kita isikan tadi berjumlah 100, maka dapat dikata angka 10 akan dicounter sampai 100. Seandainya Anda memberikan angka 2 maka akan agak lamban, apabila angka semakin besar maka semakin cepat. Tapi perhatikan, bila Anda memberikan angka dengan asumsi bahwa 100 tidak dapat dibagi angka tersebut, maka akan terjadi error. Misal Anda memasukan angka 7, berarti counter 7 tidak dapat sampai pada bilangan utuh 100.

Coding selanjutnya atau yang terakhir adalah Logika IF Then. Jadi jika Progressbar1.value sudah sampai pada Progressbar1.Max maka kondisi true akan dijankan, seperti menonaktifkan Timer, Mengembalikan Progressbar1 pada posisi = 0, dan menampilkan Form Utama serta menutup Form loading. berikut gambar loading lengkapnya:











Sekian.

Posted in: VB 6 dasar