Wednesday, June 10, 2009

VB NET - Progress Bar (01)

Pendahuluan:

Di dalam VB NET Express 2008, Progress Bar merupakan salah satu Windows Control yang biasanya digunakan sebagai visualisasi dari waktu yang diperlukan untuk memproses sesuatu (contoh: progress bar pada Internet Explorer).

Keterangan Gambar:
-----------------------------
(A) Progress Bar,
Properties :
Name = ProgressBar1
Minimum (value) = 0

Maximum (value) = 100

(B) Button, Properties :
Name = Button1
Text = Button1

(C) Timer, Properties:
Name = Timer1

Enabled = False
Interval = 100

Kode (F7) :

----------------

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs)Handles Timer1.Tick

Static TikTok As Integer
TikTok = TikTok + 1
ProgressBar1.Value = TikTok

If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Enabled = False 'non aktifkan Timer1
'saat nilai statis = nilai max progressbar1
TikTok = 0 'kembalikan nilai statis menjadi 0
End If

End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click


Timer1.Enabled = True 'aktifkan Timer1
Timer1.Interval = 100 'set interval menjadi 100
ProgressBar1.Value = 0 'kembalikan nilai ProgressBar menjadi 0

End Sub

(kode diatas akan tampak seperti gambar di bawah ini, klik kiri utk memperbesar)

Jalankan program dengan menekan tombol F5

Selamat mencoba.

1 comment:

Anonymous said...

more sample codes : www.akangcupez.webs.com