Tampilkan postingan dengan label CARA MEMBUAT LOADING VB. Tampilkan semua postingan
Tampilkan postingan dengan label CARA MEMBUAT LOADING VB. Tampilkan semua postingan

Selasa, 21 Mei 2013

CARA MEMBUAT LOADIN

Tambahin timer & Progress Bar

Public Class Form1
    Dim intTarget As Integer
    Dim intCounter As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Mencacah
        intCounter += 1

        'Menentukan value dari ProgressBar
        'Misal:
        'Jika nilai intCounter adalah 5,
        'maka value pada ProgressPar adalah (5 / 60) * 100 = 8,3
        'atau sama dengan 8,3%
        Me.ProgressBar1.Value = (intCounter / intTarget) * 100

        'Kalau nilai intCounter sudah sama dengan intTarget
        'Maka tampilkan pesan
        If intCounter = intTarget Then
            MsgBox("Sudah 100%")

            'Mengembalikan nilai intCounter ke 0 (nol)
            intCounter = 0
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        intCounter = 0

        'Menentukan target (batas lama)
        intTarget = 60

        Me.Timer1.Enabled = True
    End Sub
End Class