Loading
Content
Loading with VB 6
www.wadahsolusi.blogspot.com
Salam hangat untuk pengunjung blog wadahsolusi… Kali ini saya akan menjelaskan cara membuat aplikasi loading sederhana dengan mengunakan VB6 . Berikut langkah-langkahnya ! 1. Seperti biasa diawali dengan memilih standard exe. ! lalu open !
2. Karena component loading tidak ada dalam tollbar component, caranya adalah mengklik kanan pada daerah component ! lalu klik component !
1
Loading with VB 6
www.wadahsolusi.blogspot.com
3. Setelah masuk pada pengaturan component lansung pilih Microsoft windows common controls 6.0 (sp6) lalu klik oke !
4. Pilih component loading !
2
Loading with VB 6
www.wadahsolusi.blogspot.com
5. Tampilan setelah memilih component loading .
6. Langkah selanjutnya pilih component timer !
7. Tampilan setelah memilih component timer .
3
Loading with VB 6
www.wadahsolusi.blogspot.com
8. Berikut adalah source codenya ! masukan pada ruang code ! Private Sub Timer1_Timer() If ProgressBar1.Value >= 100 Then Unload Me Else ProgressBar1.Value = ProgressBar1.Value + 10 End If End Sub
9. Terakhir adalah mengganti interval pada component timer ! menjadi 100 interval !
10. Tampilan aplikasi sederhana berisi loading sudah selesai dibuat .
4
www.wadahsolusi.blogspot.com
Salam hangat untuk pengunjung blog wadahsolusi… Kali ini saya akan menjelaskan cara membuat aplikasi loading sederhana dengan mengunakan VB6 . Berikut langkah-langkahnya ! 1. Seperti biasa diawali dengan memilih standard exe. ! lalu open !
2. Karena component loading tidak ada dalam tollbar component, caranya adalah mengklik kanan pada daerah component ! lalu klik component !
1
Loading with VB 6
www.wadahsolusi.blogspot.com
3. Setelah masuk pada pengaturan component lansung pilih Microsoft windows common controls 6.0 (sp6) lalu klik oke !
4. Pilih component loading !
2
Loading with VB 6
www.wadahsolusi.blogspot.com
5. Tampilan setelah memilih component loading .
6. Langkah selanjutnya pilih component timer !
7. Tampilan setelah memilih component timer .
3
Loading with VB 6
www.wadahsolusi.blogspot.com
8. Berikut adalah source codenya ! masukan pada ruang code ! Private Sub Timer1_Timer() If ProgressBar1.Value >= 100 Then Unload Me Else ProgressBar1.Value = ProgressBar1.Value + 10 End If End Sub
9. Terakhir adalah mengganti interval pada component timer ! menjadi 100 interval !
10. Tampilan aplikasi sederhana berisi loading sudah selesai dibuat .
4
