Assalamualaikum,
Selamat siang pada
kesempatan hari ini saya akan memberikan Tutorial
Visual Basic 6 dengan judul :
Membuat Efek loading menggunakan
ProgressBar pada Visual Basic 6
Disini saya akan
menjelaskan secara rinci bagiamana prosses pembuatan
efek loading pada visual basic 6,
Yang nantinya dapat
anda gunakan sebagai bahan untuk pengembangan aplikasi yang anda design agar terlihat
lebih profesional.
Baiklah tanpa
menunggu waktu yang lama, langsung saja kita mulai tutorial :
Membuat Efek loading menggunakan
ProgressBar pada Visual Basic 6
Pertama silahkan
anda design project anda seperti gambar berikut, dengan komponen :
5 Command
Button
Dan
rubah namenya pada propeties :
start
= start, pause= p, resume = r, stop = s, exit = exit,
1 Progressbar
, untuk menampilkan komponen ini,
sebelumnya anda harus mengaktifkanya dengan masuk ke Components dengan menekan
CTRL + T lalu ceklis(tandai)
Microsoft
Windows Common Controls 6.0 (SP6)
Lalu paste scipt
kode berikut pada Form :
' start = start, p = pause, r = resume, s =
stop, exit= exit
Private Sub root() ' ini event yang dibuat
p.Enabled = False ' beberapa tombol di nonaktifkan ketika di
load
r.Enabled = False
s.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Call root 'me load root, Call = panggil
End Sub
Private Sub start_Click() 'tombol start
start.Enabled = False
s.Enabled = True
Timer1.Enabled = True
p.Enabled = True
End Sub
Private Sub p_Click() 'tombol pause
p.Enabled = False
Timer1.Enabled = False
r.Enabled = True
End Sub
Private Sub r_Click() 'tombol resume
r.Enabled = False
p.Enabled = True
Timer1.Enabled = True
End Sub
Private Sub s_Click() 'tombol stop
ProgressBar1.Value = 0
Timer1.Enabled = False
s.Enabled = False
start.Enabled = True
p.Enabled = False
r.Enabled = False
End Sub
Private Sub Timer1_Timer() 'timer prosess
If ProgressBar1.Value >= 100 Then 'jika prosses sudah mencapai 100%
Timer1.Enabled = False
p.Enabled = False
s.Enabled = False
If MsgBox("succces", ,
"OK") = vbOK Then 'msgbox
setelah 100%
End If
Else
Form1.Caption = "loading...."
ProgressBar1.Value = ProgressBar1.Value +
10 'jika prosses belum 100% selesai
End If
End Sub
Private Sub exit_Click()
End
End Sub
Penjelasan
:
1. Saat pertama menjalankan aplikasi tersebut, maka
tombol Pause, Resume dan Stop di Disabled.
2.
Ketika menekan tombol Start, maka tombol Pause,
Stop di Enabled.
3.
Ketika menekan tombol Pause, tombol Resume di Enabled.
4.
Ketika menakan tombol Stop, Progressbar
kembali ke Posisi 0%,
5.
Saat Progressbar mencapai 100% maka Messaged Box akan di tampilkan,
pilihan ini Bisa Anda Ganti dengan perintah yang lain, seperti membuka
Form kedua, atu sebagainya.
Saya yakin postingan
kuno ini akan berguna bagi anda pada suatu saat
nanti.
Bagi anda yang
kurang paham step by stepnya langsung
tanyakan pada kolom komentar.
Segitu saja
postingan Tutorial Visual Basic 6
kali ini dengan judul :
Membuat Efek loading menggunakan ProgressBar
pada Visual Basic 6.
Semogga bermanfaat,
Wassalam.