[RE-OPEN] Stop Watch

[Simply Me]

Hi! I've seen the code of jmcilhinney in this Thread. I am using it right now with some minor modification....Right now I want to be able to set the timer to stop say, after 10 seconds or fifteen seconds or any time value stated in my textbox plus I want it to play a tick sound every second and then when it reaches the stop time set it will play another sounds which denotes time is up. It's like a timer for a quiz bee contest....

[jmcilhinney]

When you start timing you would create a TimeSpan that represents the amount of time you want to run for, e.g.

Me.totalTime = TimeSpan.FromSeconds(CInt(Mt.TextBox1))

At each Tick you can then subtract the elasped time from that to determine the amount of time remaining.

Stopping the Timer and displaying a message at the end is easy. You simply test whether the elapsed time is greater than or equal to the total time and stop if it is.

Making a sound might be tricky if you're going to allow pausing. If you're not pausing then you simply set the Timer Interval to 1000 and call My.Computer.Audio.Play. If you pause and resume then your Ticks will no longer be on the second so you'd probably have to Tick more often and test whether the elapsed time is within one Interval of the nearest whole second and, if it is, play the sound.

[Simply Me]

Here 's what I have right now....I will not be pausing the timer.....

Public Class FrmStopWatch
    Private watch As New Diagnostics.Stopwatch
 
    Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Me.watch.Start()
        Me.Timer1.Start()
 
    End Sub
 
    Private Sub Btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        Me.watch.Stop()
        Me.Timer1.Stop()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim elapsed = Me.watch.Elapsed
        Me.lbltime.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", elapsed.TotalHours, elapsed.Minutes, elapsed.Seconds, elapsed.Milliseconds / 10)
    End Sub
 
    Private Sub BtnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        Me.watch.Reset()
        Me.lbltime.Text = String.Format("00:00:00:00")
    End Sub
 
    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

[Simply Me]

whenever I add this code

Me.totalTime = TimeSpan.FromSeconds(CInt(Mt.TextBox1))

i blue get squiggly line under Mt. I added it under timer1_tick event

[jmcilhinney]

whenever I add this code

Me.totalTime = TimeSpan.FromSeconds(CInt(Mt.TextBox1))

i blue get squiggly line under Mt. I added it under timer1_tick event

That was supposed to be "Me", not "Mt". That said, you weren't supposed to just copy and paste that code. As I aid in my previous post, it was an example only. You were supposed to read it, understand the principle and then implement that principle in whatever way is appropriate for your project.

[Simply Me]

ok here is what I am doing now...but I stil cant get the timer to stop at a certain value I enter in the textbox....

Public Class FrmStopWatch
    Private watch As New Diagnostics.Stopwatch
    Private theTimeSpan As TimeSpan
    Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Me.watch.Start()
        Me.Timer1.Start()
    End Sub
 
    Private Sub Btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        Me.watch.Stop()
        Me.Timer1.Stop()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim elapsed = Me.watch.Elapsed
        Me.lbltime.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", elapsed.TotalHours, elapsed.Minutes, elapsed.Seconds, elapsed.Milliseconds \ 10)
 
        If Me.theTimeSpan.Seconds = CInt(Me.txtautostop.Text) Then
            Timer1.Dispose()
        End If
    End Sub
 
    Private Sub BtnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        Me.watch.Reset()
        Me.lbltime.Text = String.Format("00:00:00:00")
    End Sub
 
    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

What should be used in the timer interval? is it 1 or 100?

[dbasnett]

    Dim isRun As Boolean = False
    Dim stpw As New Diagnostics.Stopwatch
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 100 '1/10 of a second
    End Sub
    Private Sub btnSS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSS.Click
        'start / stop button
        btnSS.Enabled = False
        If isRun Then 'is the stopwatch running
            isRun = False 'yes
            btnSS.Text = "Start"
            stpw.Stop()
        Else 'no
            isRun = True
            btnSS.Text = "Stop"
            stpw.Reset()
            stpw.Start()
            Timer1.Enabled = True
        End If
        btnSS.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                    Handles Timer1.Tick
        Dim ts As TimeSpan = stpw.Elapsed
        Dim autoStop As Integer
        'show the stopwatch elapsed time
        tbRT.Text = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", _
                                  ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
        'check autostep seconds
        If Not (tbAS.Text = String.Empty) AndAlso (Integer.TryParse(tbAS.Text, autoStop)) Then
            If stpw.ElapsedMilliseconds / 1000 >= autoStop Then btnSS.PerformClick()
        Else
            tbAS.Text = String.Empty
        End If
        If Not isRun Then 'if not running disable this event
            Timer1.Enabled = False
        End If
    End Sub

[Simply Me]

Great dbasnett! Thanks!

how do I add sound for every tick of a second and another sound when the count reaches the value in autostep seconds textbox?

[Simply Me]

I inserted this line of

My.Computer.Audio.Play(My.Resources.beep_2, AudioPlayMode.WaitToComplete)

before this

If stpw.ElapsedMilliseconds / 1000 >= autoStop Then btnSS.PerformClick()

but its beeping everying milliseconds....I want it to beep every second only

[Simply Me]

here's what I have now...

'check autostep seconds
        If Not (txtAutoStop.Text = String.Empty) AndAlso (Integer.TryParse(txtAutoStop.Text, AutoStop)) Then
            My.Computer.Audio.Play(My.Resources.beep_2, AudioPlayMode.WaitToComplete)
            If Watch.ElapsedMilliseconds / 1000 >= AutoStop Then
                btnStop.PerformClick()
                My.Computer.Audio.Play(My.Resources.hohner_melodica_1, AudioPlayMode.WaitToComplete)
            End If
        Else
            txtAutoStop.Text = String.Empty
        End If

[Simply Me]

ok I made some changes with the code but I cant get the wav file to play every tick of a second....The sound is playing every tick of a millisecond...here's my code now.

'check autostep seconds
        If Not (txtAutoStop.Text = String.Empty) AndAlso (Integer.TryParse(txtAutoStop.Text, AutoStop)) Then
            My.Computer.Audio.Play(My.Resources.beep_2, AudioPlayMode.Background)
            If Watch.ElapsedMilliseconds \ 1000 >= AutoStop Then
                btnStop.PerformClick()
                My.Computer.Audio.Play(My.Resources.hohner_melodica_1, AudioPlayMode.Background)
            End If
        Else
            txtAutoStop.Text = String.Empty
        End If

[jmcilhinney]

Private nextSoundTime As Date
 
Private Sub Timer1_Tick() Handles Timer1.Tick
    If Date.Now >= Me.nextSoundTime Then
        'Play sound here.
 
        Me.nextSoundTime = Me.nextSoundTime.AddSeconds(1)
    End If
End Sub

[Simply Me]

It still plays the sound every tick of millisecond...

[Simply Me]

I tired console.beep() but its not working the way I want it.

Any other ideas how will I set the wav file (beep sound) to play every second and not every millisecond?

[jmcilhinney]

You have to actually set an initial value for nextSoundTime. My code works as is but you have to set nextSoundTime to the time you want the first sound made when you first start timing.

[Simply Me]

I tried changing my timer interval to 1000 instead of 100 but the millisecond is not running and the beep sound is not going along with the counting...it's a little bit faster.

[dbasnett]

using jmc's code

Public Class Form1
    Dim isRun As Boolean = False
    Dim stpw As New Diagnostics.Stopwatch
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 100 '1/10 of a second
        Timer1.Start()
    End Sub
    Private Sub btnSS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSS.Click
        'start / stop button
        btnSS.Enabled = False
        If isRun Then 'is the stopwatch running
            isRun = False 'yes
            btnSS.Text = "Start"
            stpw.Stop()
        Else 'no
            isRun = True
            btnSS.Text = "Stop"
            stpw.Reset()
            stpw.Start()
            nextStm = DateTime.Now.AddSeconds(1)
            Timer1.Enabled = True
        End If
        btnSS.Enabled = True
    End Sub
    Dim nextStm As DateTime = DateTime.Now.AddSeconds(1)
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                    Handles Timer1.Tick
        Dim ts As TimeSpan = stpw.Elapsed
        Dim autoStop As Integer
        If DateTime.Now >= nextStm Then
            nextStm = nextStm.AddSeconds(1)
            Beep()
        End If
        'show the stopwatch elapsed time
        tbRT.Text = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", _
                                  ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
        'check autostep seconds
        If Not (tbAS.Text = String.Empty) AndAlso (Integer.TryParse(tbAS.Text, autoStop)) Then
            If stpw.ElapsedMilliseconds / 1000 >= autoStop Then btnSS.PerformClick()
        Else
            tbAS.Text = String.Empty
        End If
        If Not isRun Then 'if not running disable this event
            Timer1.Enabled = False '<<<<<<<<<<<<<<<<<<
        End If
    End Sub
End Class

[Simply Me]

i will try it jm.

[dbasnett]

We posted at the same time. See post #17

[Simply Me]

I have seen it dbasnett....I am working at it now...thanks

[Simply Me]

I can get the sound play every second now, but sometimes when I run it, on the first 1 second it plays the sound at .9 millisecond before it will display 1 sec. and it the process it pauses the counting for a very very short period but noticeable. Why is this so? I combine
The code now looks like this now.

Private Watch As New Diagnostics.Stopwatch
    Private theTimeSpan As TimeSpan
    Private nextSoundTime As Date = DateTime.Now.AddSeconds(1)
 
    Private Sub FrmStopWatch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Interval = 100 '1/10 of a second
    End Sub
 
    Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Me.Watch.Start()
        Me.Timer1.Start()
 
        nextSoundTime = DateTime.Now.AddSeconds(1)
 
        btnReset.Enabled = False
        btnExit.Enabled = False
    End Sub
 
    Private Sub Btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        Me.Watch.Stop()
        Me.Timer1.Stop()
 
        btnReset.Enabled = True
        btnExit.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Elapsed = Me.watch.Elapsed
        Dim AutoStop As Integer
 
        'check autostep seconds if empty, if yes don't play sound
        If Not (txtAutoStop.Text = String.Empty) AndAlso (Integer.TryParse(txtAutoStop.Text, AutoStop)) Then
            If DateTime.Now >= Me.nextSoundTime Then
                Me.nextSoundTime = Me.nextSoundTime.AddSeconds(1)
                My.Computer.Audio.Play(My.Resources.GLASSBEL, AudioPlayMode.Background)
            End If
        End If
 
        'show the stopwatch elapsed time
        Me.lbltime.Text = String.Format("{0:00}:{1:00}:{2:00}.{3:0}", _
            Elapsed.TotalHours, Elapsed.Minutes, Elapsed.Seconds, Elapsed.Milliseconds \ 100)
 
        'check autostep seconds
        If Not (txtAutoStop.Text = String.Empty) AndAlso (Integer.TryParse(txtAutoStop.Text, AutoStop)) Then
            If Watch.ElapsedMilliseconds \ 1000>= AutoStop Then
                btnStop.PerformClick()
                My.Computer.Audio.Play(My.Resources.FIREALRM, AudioPlayMode.Background)
            End If
        Else
            txtAutoStop.Text = String.Empty
        End If
 
    End Sub

[Simply Me]

its okay now.... I just interchange these two lines

Me.nextSoundTime = Me.nextSoundTime.AddSeconds(1)
                My.Computer.Audio.Play(My.Resources.GLASSBEL, AudioPlayMode.Background)

like this

My.Computer.Audio.Play(My.Resources.GLASSBEL, AudioPlayMode.Background)
                Me.nextSoundTime = Me.nextSoundTime.AddSeconds(1)

Many thanks jm and dbasnett!!

[Simply Me]

Hi! I re-open this thread because I am having trouble with the timer the first time I will run the program, the timer runs fast specifically the timing from 1 second to 2 seconds....but if I will run it again the problem is not occuring....but if I will close the program and then re-run it by then the same problem occurs.....why is this so?

Here's my code so far.

  
    Private Watch As New Diagnostics.Stopwatch
    Private nextSoundTime As Date = DateTime.Now.AddSeconds(1)
    Dim AutoStop As Integer

    Private Sub FrmStopWatch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Interval = 100 '1/10 of a second
    End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Elapsed = Me.Watch.Elapsed
        'Dim AutoStop As Integer

        'show the stopwatch elapsed time
        Me.lbltime.Text = String.Format("{0:00}:{1:00}:{2:00}.{3:0}", _
            Elapsed.TotalHours, Elapsed.Minutes, Elapsed.Seconds, Elapsed.Milliseconds \ 100)

        'check autostep seconds if empty, if yes don't play sound
        If Not (txtAutoStop.Text = String.Empty) AndAlso (Integer.TryParse(txtAutoStop.Text, AutoStop)) Then
            If DateTime.Now >= Me.nextSoundTime Then
                My.Computer.Audio.Play(My.Resources.BIP, AudioPlayMode.Background)
                Me.nextSoundTime = Me.nextSoundTime.AddSeconds(1)
            End If
        End If

        'check autostep seconds
        If Not (txtAutoStop.Text = String.Empty) AndAlso (Integer.TryParse(txtAutoStop.Text, AutoStop)) Then
            If Watch.ElapsedMilliseconds \ 1000 >= AutoStop Then
                btnStop.PerformClick()
                My.Computer.Audio.Play(My.Resources.Piano_PAd_glissando_descend_BLASTWAVEFX_06741, AudioPlayMode.Background)
                btnReset.Focus()
            End If
        Else
            txtAutoStop.Text = String.Empty
        End If

    End Sub

[Simply Me]

anyone who has idea why this is happening? does it have something to do with the computer I am using?

I am using intel core 2 duo HP pavilion with 4GB RAM.

[Simply Me]

Anyone can help me out here please? Everytime I run my project right after I open VB, the timer runs fast specifically the timing from 1 second to 2 seconds.

This is what I just put a value in my textbox and then run it....The next time I run the app (without closing VB program) then the problem will not occur but the moment I close VB and re-open it and run the project then the same problem occurs....Why is this so?

[Simply Me]

anyone here please? I am trying to attached the whole project but it exceeds the limit of 500KB, the sound file is too large.

[Megalith]

sounds to me that the timer has started to run before the app has fully loaded

[Simply Me]

The timer starts only on click of a button. my code is in post #23

[Simply Me]

anybody can shed light on this please?

[cicatrix]

In your post #23 there is no command to start the timer.
The timer starts only after invoking the Start method. Wherever it occurs the timer starts.

[Simply Me]

Sorry for that....here it is...

    Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Me.Watch.Start()
        Me.Timer1.Start()

        nextSoundTime = DateTime.Now.AddSeconds(1)

        btnReset.Enabled = False
        btnExit.Enabled = False
    End Sub

    Private Sub Btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        Me.Watch.Stop()
        Me.Timer1.Stop()

        btnReset.Enabled = True
        btnExit.Enabled = True
    End Sub

[Simply Me]

Still nobody can help me out

[dbasnett]

Read your first post simplyme. Is that what you are trying to do?

[Simply Me]

Read your first post simplyme. Is that what you are trying to do?

Yes...I am doing a timer like the one used in quiz bee.....Actually it's already running the only problem is the timing as i've mentioned...there is some kind of "pause" between 1 and 2 seconds which in turn will result to a simultaneous playing of sound (beep sound).

[Simply Me]

still no one can help me out?