Membuat ProgressBar dengan VB 6.0
Posted by Devz Andrean | Posted in Visual Basic |
Lo pasti sering liat yang namanya progressbar. Itu tuh sebuah kotak atau bar yang terisi warna sampe penuh. Biasanya kalu kita mau masuk ke sebuah aplikasi pasti loading dulu..contoh saat kita mengaktifkan komputer, pasti Windowsnya loading dulu.
Buat yang lagi bikin program TA, ini bisa jadi tambahan sebelum orang lain masuk ke program yang lo bikin. Kita liat cara bikinnya yuk..
1. cek dulu apakah aplikasi visual basic udah terinstal di komputer lo
2. kalu udah.,jalankan aplikasi vb lo, pada jendela new project pilih standard exe
3. klik kanan pada toolbox, pilih components..
4. pilih Microsoft Windows Common Controls 6.0 (SP6)
5. pada toolbox.,pilih icon progressbar kemudian pindahkan kedalam form
6. tambahkan object Command Button, atur propertiesnya :
Name : CmdTest
Caption : &Test
Name : CmdTest
Caption : &Test
7. tambahkan object Timer kedalam form, beri interval 100 pada propertiesnya
8. klik 2x pada object Timer, tambahkan listing berikut :
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 2
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Unload Me
End If
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 2
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Unload Me
End If
End Sub
Arti dari listing diatas adalah kita memberikan nilai pada object progressbar
kemudian menambahkan nilai awal yg diberikan dengan kelipatan 2.
jika nilai progressbar sama dengan nilai maks maka program akan keluar.
kemudian menambahkan nilai awal yg diberikan dengan kelipatan 2.
jika nilai progressbar sama dengan nilai maks maka program akan keluar.
9. klik 2x pada area form yg kosong, tambahkan listing dibawah ini :
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
<menonaktifkan fungsi Timer1 dengan memberikan nilai false>
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
<menonaktifkan fungsi Timer1 dengan memberikan nilai false>
10. klik 2x pada object command button (tombol Test), tambahkan listing berikut :
Private Sub CmdTest_Click()
Timer1.Enabled = True
End Sub
<mengaktifkan kembali fungsi Timer1 dengan memberikan nilai true>
Private Sub CmdTest_Click()
Timer1.Enabled = True
End Sub
<mengaktifkan kembali fungsi Timer1 dengan memberikan nilai true>
11. jalankan program dengan menekan tombol F5 pada keyboard, atau start
pada toolbar. Kemudian klik tombol Test..
pada toolbar. Kemudian klik tombol Test..
kalu lo mau menampilkan form setelah progressbar penuh, lo tinggal
memanggil form lain yang lo buat dengan menambahkan listing dibawah unload me
pada object Timer1.
contoh :
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 2
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Unload Me
form2.show
End If
End Sub
memanggil form lain yang lo buat dengan menambahkan listing dibawah unload me
pada object Timer1.
contoh :
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 2
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Unload Me
form2.show
End If
End Sub
maksih gan,, ane copas ya buat tugas kul
silahkan.. free open source hehehe...