Another Timer Demo

What this done is simple.

When I click on a Button the progress bar will show for 5 seconds and then some other work can be done. Well, here it is.

'Simple Timer demo by Sarthak Ganguly
'Released under GPLv3 Share Alike License.
 
Public Class MainFrm
    'Say 2 seconds is the default timeout
    'You can change it from here or make it a
    'property with Get and Set statements
    'you can increase it to 3,4,5... seconds
    Dim timeLimit As Integer = 50 * 100 '(milliseconds)
    Dim temp As Integer = 0
    Private Sub clickBUT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles clickBUT.Click
        'Start the timer
        aTmr.Enabled = True
    End Sub
    Private Sub aTmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles aTmr.Tick
        'The timer ticks :) with Step 100ms
        progBar.Value += OneStep()
        'Stop the Timer
        temp += 100
        If temp = timeLimit Then
            aTmr.Enabled = False
            temp = 0
            'Add code if you want anything to happen after progressbar
            'reaches maximum value
        End If
    End Sub
    'This is the most important function as it will return the
    'relative unit size of the progress bar
    Private Function OneStep() As Integer
        'One unit returned and converted to nearest Integer
        Return CInt(progBar.Maximum / (timeLimit / 100))
    End Function
End Class

Comments

Popular posts from this blog

A Good Day

My Little Wife

Fallen - Based on a true story (almost)