Cara Membuat Loading di Visual Basic 6.0
"Membuat loading di Visual Basic 6.0, Cara mengaktifkan progressbar di VB 6.0/microsoft windows common controls 6.0 (sp6), membuat loading di vb 2010"
3 min read
Cara Membuat Loading di Visual Basic 6.0 - Saat membuka aplikasi atau sebuah situs web, seringkali kita harus menunggu untuk beberapa waktu lamanya. Proses menunggu tersebut dikarenakan aplikasi atau website sedang loading. Untuk menghilangkan rasa jemu menunggu, biasanya para developer membuat tampilan loading yang menarik dan tidak membosankan. |
| Cara Membuat Loading di Visual Basic 6.0 |
Pertanyaannya, bagaimana membuat loading di Visual Basic? Di sini akan dijelaskan cara membuat loading di program Visual Basic. Dalam program aplikasi Visual Basic sederhana ini, kita mendesain form secara sederhana dan menggunakannya pada saat pertama kali membuka aplikasi.
Cara Membuat Loading di Visual Basic 6.0
1. Pertama-tama, seperti biasanya kita akan membuka aplikasi Visual Basic dan membuat project standart exe.
2. Membuat Form1 dan Form2
Form1 adalah tampilan pada saat loading.
Form2 adalah form yang tampil setelah loading selesai.
3. Pada form1, tambahkan komponen-komponen berikut ini dan ubah namanya (name) pada properties sesuai dengan keterangan di bawah ini!!
- Timer : Waktu
- ProgressBar : pbcover
- Label : Label1
 |
| Cara mengaktifkan progressbar di vb 6.0 |
 |
| Tampilan form untuk membuat loading vb 6.0 |
4. Script loading Visual Basic
Copy paste script loading di bawah ini pada view code form1.
Public Mulailoading As Single
Option Explicit
Private Sub Form_Load()
Mulailoading = Timer
Waktu.Enabled = True
End Sub
Private Sub Waktu_Timer()
Dim Penuh As Single
Penuh = 100 * (Timer - Mulailoading) / 2
If Penuh <= 100 Then
pbcover.Value = Penuh
Label1.Caption = Str(Int(Penuh)) + " %"
Else
pbcover.Value = 100
Label1.Caption = "100 %"
Waktu.Enabled = False
Load Form2
Form2.Show
Unload Me
End If
End Sub
Option Explicit
Private Sub Form_Load()
Mulailoading = Timer
Waktu.Enabled = True
End Sub
Private Sub Waktu_Timer()
Dim Penuh As Single
Penuh = 100 * (Timer - Mulailoading) / 2
If Penuh <= 100 Then
pbcover.Value = Penuh
Label1.Caption = Str(Int(Penuh)) + " %"
Else
pbcover.Value = 100
Label1.Caption = "100 %"
Waktu.Enabled = False
Load Form2
Form2.Show
Unload Me
End If
End Sub
5. Run aplikasi dan lihat hasilnya.
Ketika program aplikasi ini dijalankan maka akan mengeksekusi form1 pertama kali dan ketika loading 100% maka akan tampil form 2 secara otomatis dan juga form1 loading akan tertutup.
Pada Visual Basic 6.0, komponen pada menu Toolbox belum tersedia ProgressBar. Karena itu harus ditambahkan terlebih dahulu dengan cara mengaktifkan components microsoft windows common controls 6.0 (sp6). Untuk membuat loading di VB 2010, caranya kurang lebih sama seperti tutorial vb 6.0 di atas.
Demikianlah contoh program Visual Basic sederhana cara membuat loading di Visual Basic. Semoga bermanfaat!