Tampilkan postingan dengan label pemfograman. Tampilkan semua postingan
Tampilkan postingan dengan label pemfograman. 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