A simple timer

In this tutorial we'll be making a simple timer that prints off a line every second into a ListBox.
----------------------------------------------------------------
GUI (Layout)
Here's my GUI (layout):

Posted Image

----------------------------------------------------------------
What you need to add:

4 Command Buttons:

With the following names/captions:

#1 Command Button:
Name: cmdStart
Caption: Start Timer

#2 Command Button:
Name: cmdStop
Caption: Stop Timer

#3 Command Button:
Name: cmdClear
Caption: Clear Text

#4 Command Button:
Name: cmdExit
Caption: Exit

1 ListBox
With:

Name:lstCount
Caption: (None)

1 Timer
With:

Name: tmrTimer
Caption: (None)

----------------------------------------------------------------
CODE:
Add this code to General Declarations:

Quote

Dim Response As Integer
Dim mintCount As Integer

Then this:

Quote

Private Sub cmdClear_Click()
lstCount.Clear
End Sub

Private Sub cmdExit_Click()
Response = MsgBox("Exit Program?", vbInformation + vbYesNo, "Are you sure?")
If Response = vbYes Then
Unload Me

ElseIf Response = vbNo Then
Me.Refresh

End If

End Sub

Private Sub cmdStart_Click()

mintCount = 0

Cls

tmrTimer.Enabled = True

End Sub

Private Sub cmdStop_Click()

tmrTimer.Enabled = False

End Sub

Private Sub tmrTimer_Timer()

mintCount = mintCount + 1

lstCount.AddItem "Timer fired again. Count = " & mintCount

End Sub

---------------------------------------------------------------
CODE EXPLANATION:

Quote

Private Sub cmdClear_Click()
lstCount.Clear
End Sub

This just means whenever you click the "Clear Text" button, the ListBox will be cleared of all text.

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

Quote

Private Sub cmdExit_Click()
Response = MsgBox("Exit Program?", vbInformation + vbYesNo, "Are you sure?")
If Response = vbYes Then
Unload Me

ElseIf Response = vbNo Then
Me.Refresh

End If

End Sub

What this does is whenever you click the "Exit" button, it asks you if you REALLY want to exit. If YES then it will exit, if NO then it will jsut go back to the previous screen.

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

Quote

Private Sub cmdStart_Click()

mintCount = 0

Cls

tmrTimer.Enabled = True

End Sub

This code makes the timer start every time you click the "Start Timer" button.

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

Quote

Private Sub cmdStop_Click()

tmrTimer.Enabled = False

End Sub

Very simple code that stops the timer when you click the "Stop Timer" button.

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

Quote

Private Sub tmrTimer_Timer()

mintCount = mintCount + 1

lstCount.AddItem "Timer fired again. Count = " & mintCount

End Sub

Ok this is a tad harder then the rest of the codes...
"mintCount" was dimmed as an integer in the "General declarations" section. With this said, the code means that every time the mintCount function is used, it adds +1 onto itself.

lstCount.AddItem "Timer fired again. Count = " & mintCount

Means that every time the mintCount is used, it adds the line "Timer fired again. Count = ?" Into the ListBox.
(The "?" means the number that the timer is up to)

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

Well this is the end of my Tutorial. Thanks for taking the time to read my tutorial.

Posted Image