Skip to main content

Cara Membuat Loading di Visual Basic 6.0

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
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!!
  1. Timer : Waktu
  2. ProgressBar : pbcover
  3. Label : Label1
Jangan lupa akfifkan components toolbox: microsoft windows common controls 6.0 (sp6) untuk dapat menambahkan komponen ProgressBar

 Cara mengaktifkan progresbar di vb 6.0
Cara mengaktifkan progressbar di vb 6.0

 Tampilan form untuk membuat loading 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

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.

Lihat juga Cara membuat Menu Bar di Visual Basic 6.0

Demikianlah contoh program Visual Basic sederhana membuat loading di Visual Basic. Semoga bermanfaat!
  June 11, 2019
Comment Policy: Tulis Komentar Anda Sesuai dengan Isi Artikel!
Buka Komentar
Tutup Komentar
close