Sport Watch

Question

1.00/5 (1 vote)

See more:

Hi, I am newbie in Timer
So why i want to make Sport Timer(just like real time sport timer)
i wrote the following code but it isn't same as real timer :(( . Help Me Please

Here it is ...

Private Sub Tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim tmrDyncsub As System.Windows.Forms.Timer
        tmrDyncsub = CType(sender, System.Windows.Forms.Timer)
        Dim AlltheTime As String
        ' _millisecond += 1
        ms += 1
        If ms = 100 Then
            ms = 0
            sec += 1
        End If
        If sec = 60 Then
            sec = 0
            min += 1
        End If
        AlltheTime = min.ToString() & " : " & sec.ToString() & " : " & ms.ToString()
        tmrElapse(TimerCountClick) = AlltheTime
        'If _millisecond = 11 Then
        '    MsgBox("Hola People")
        'End If
        Me.Text = AlltheTime
        'If sec = 5 Then
        '    tmrDyncsub.Stop()
        '    MsgBox(AlltheTime)
        '    Me.Text = "123"
        'End If
    End Sub

if possible Hlep Me.
Please

Posted 28-Mar-10 16:55pm

dartfrog

Updated 28-Mar-10 17:06pm

PSK_

v2

Add a Solution

4 solutions

Solution 2

hi Mark, I think ms need to increase. u said save datetime first, how do i. I try to Add millisecond only. see the following code but it isn't work. Pls, how do i do ? Help me... :((

VB

Dim tmr As System.Windows.Forms.Timer
   Dim ts1 As New TimeSpan(0, 0, 0, 0)

VB

Dim ms, sec, min As Integer

VB

Private Sub Ticker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Text = ts1.Seconds & ":" & ts1.Milliseconds
        ms += 15.4
        ts1 = New TimeSpan(0, 0, min, sec, ms)
    End Sub

VB

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'MsgBox("Ok, Let's start")
        tmr.Start()
    End Sub

VB

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim ts As New TimeSpan(30, 0, 0, 0)
        'tmr = New System.Windows.Forms.Timer
        'tmr.Interval = 1000
        'AddHandler tmr.Tick, AddressOf Ticker_Tick
        'MsgBox("Ok, Let's start")
        'tmr.Start()
        Me.Text = "0:0"
        Dim ts As New TimeSpan(30, 0, 0, 0)
        tmr = New System.Windows.Forms.Timer
        tmr.Interval = 1
        AddHandler tmr.Tick, AddressOf Ticker_Tick
    End Sub

Help Me pls, vital for me, Thankz a lot.

Posted 29-Mar-10 15:50pm

dartfrog

Solution 4

Please don't push 'answer' if you're not answering a question. Edit your post to ask more questions about the same thing. Also, this was a very simple task, you should probably buy a beginners book and work through it.

Posted 29-Mar-10 17:17pm

Christian Graus

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Not Active · Accepted Answer · 2010-03-28T17:19:00

Solution 1

If you're looking for elapsed time all you need to do is save the current datetime when the stopwatch is started and compare it to the current datetime when is is stopped, or when the timer event is triggered. No need to maintain minutes, second or milliseconds on your own.

Posted 28-Mar-10 17:19pm

Not Active

Anthony Mushrow · Accepted Answer · 2010-03-29T16:28:00

What Mark meant was something more like:

'Store the current time when you start your timer
Dim startTime As DateTime
startTime = DateTime.Now;

'Inside Tmr_Tick you can just check how much time has passed
Dim elapsed As TimeSpan
elapsed = startTime - DateTime.Now;

You can then get the number of hours, minutes, seconds and milliseconds fro m that TimeSpan.

It is also worth mentioning that the standard Timer doesn't have a very high resolution (as you may have noticed). You currently trying to set your Interval to 1 but the best that you can hope for is closer to 20ms.

One last thing, instead of adding an answer to your own question with additional information you should edit your original question, this makes it easier for other people to help you.