How to program a countdown timer in VB.NET

Question

0.00/5 (No votes)

See more:

This is what my form looks like: https://pasteboard.co/JjermF5.png[^]

The problem im having with my code is that when I set values using the NumericUpandDown its not reflecting and starting a timer when i set the time and click start, and is also not allowing me to not add a value in the minute NumericUpandDown box.

Im unable to identify the error, can someone please help
The code is below:

What I have tried:

Public Class btnStandardSet
    Dim temp As Long
    Private Sub btnStandardSet_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SetDefaults()
    End Sub

    Private Sub SetDefaults()
        timerStandard.Enabled = False
        btnSPCStandard.Enabled = False
        btnStopStandard.Enabled = False
        btnSetStandard.Enabled = True
        cmbStandardHour.Enabled = True
        cmbStandardSec.Enabled = True
        lblStandardHourValue.Text = "00"
        lblStandardMinValue.Text = "00"
        lblStandardSecValue.Text = "00"
        temp = 0
    End Sub

    Private Sub SetTime()
        lblStandardHourValue.Text = temp / 3600
        lblStandardMinValue.Text = (temp Mod 3600) / 60
        lblStandardSecValue.Text = temp Mod 3600 Mod 60
        If lblStandardHourValue.Text = 1 Then
            lblStandardHourValue.Text = "0" & lblStandardHourValue.Text
        End If
        If lblStandardMinValue.Text = 1 Then
            lblStandardMinValue.Text = "0" & lblStandardMinValue.Text
        End If
        If lblStandardSecValue.Text = 1 Then
            cmbStandardSec.Text = "0" & cmbStandardSec.Text
        End If
    End Sub

    Private Sub btnSetStandard_Click(sender As Object, e As EventArgs) Handles btnSetStandard.Click
        If cmbStandardMin.Value = "0" Then
            MsgBox("Please set a valid duration1")
        Else
            temp = cmbStandardHour.Value * 3600 + cmbStandardMin.Value * 60 + cmbStandardSec.Value
            cmbStandardHour.Enabled = False
            cmbStandardMin.Enabled = False
            cmbStandardSec.Enabled = False
            btnSetStandard.Enabled = False
            btnSPCStandard.Enabled = True
        End If
    End Sub

    Private Sub timerStandard_Tick(sender As Object, e As EventArgs) Handles timerStandard.Tick
        If temp = 0 Then
            MsgBox("Time is Over")
        Else
            temp = -1
            SetTime()
        End If
    End Sub

    Private Sub btnSPCStandard_Click(sender As Object, e As EventArgs) Handles btnSPCStandard.Click
        If btnSPCStandard.Text = "Start" Then
            SetDefaults()
            timerStandard.Enabled = True
            btnSPCStandard.Text = "Pause"
            btnStopStandard.Enabled = True
        ElseIf btnSPCStandard.Text = "Pause" Then
            timerStandard.Enabled = False
            btnSPCStandard.Text = "Stop"
        ElseIf btnSPCStandard.Text = "Continue" Then
            btnSPCStandard.Text = "Pause"
            timerStandard.Enabled = True
        End If
    End Sub

    Private Sub btnStopStandard_Click(sender As Object, e As EventArgs) Handles btnStopStandard.Click
        SetDefaults()
    End Sub
End Class

Posted 24-Jul-20 18:25pm

Shaheer Rizwan

Updated 26-Jul-20 4:28am

Add a Solution

Comments

Sandeep Mewara 25-Jul-20 3:20am

Have a look here: Step 3: Add a countdown timer - Visual Studio | Microsoft Docs[^]

2 solutions

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)

OriginalGriff · Answer 1 · 2020-07-24T22:15:00

Look at your code:

Private Sub timerStandard_Tick(sender As Object, e As EventArgs) Handles timerStandard.Tick
    If temp = 0 Then
        MsgBox("Time is Over")
    Else
        temp = -1
        SetTime()
    End If
End Sub

Private Sub SetTime()
    lblStandardHourValue.Text = temp / 3600
    lblStandardMinValue.Text = (temp Mod 3600) / 60
    lblStandardSecValue.Text = temp Mod 3600 Mod 60
    If lblStandardHourValue.Text = 1 Then
        lblStandardHourValue.Text = "0" & lblStandardHourValue.Text
    End If
    If lblStandardMinValue.Text = 1 Then
        lblStandardMinValue.Text = "0" & lblStandardMinValue.Text
    End If
    If lblStandardSecValue.Text = 1 Then
        cmbStandardSec.Text = "0" & cmbStandardSec.Text
    End If
End Sub

SetTime modifies the display from temp - but your tick event always sets temp to -1. So the value displayed will always be ... um ... garbage.

To do a countdown timer, the simplest way is:
Set up a Timer with an interval of half a second. Start it.
Set up a DateTime value: call it expires and set it to DateTime.MinValue.
In your Tick event, check if expires equals DateTime.MinValue.
If it does, do nothing.
If it doesn't, check it against DateTime.Now
If it's greater, use your SetTime method (modified) to display the difference (Hint: you can subtract two DateTime values to give you a Timespan which gives you hours, minutes, and seconds)
If it's smaller, the timer has elapsed, so set expires back to DateTime.MinValue.

Start and Stop operation for you app consist of setting the value of expires: DateTime.MinValue to stop it,
DateTime.Now.AddMinutes(30) to wait half an hour.

Give it a try: it's a lot easier than it looks!

Ralf Meier · Answer 2 · 2020-07-26T04:28:00

I'm not sure wether temp contain a valid value - at this point you have to do something. Also I can't see how temp gets it's value.
But ... here you have to change something :

VB

Private Sub timerStandard_Tick(sender As Object, e As EventArgs) Handles timerStandard.Tick
    If temp <= 0 Then   // <----- compare not only to 0
        MsgBox("Time is Over")
    Else
        temp -= 1   //  <----- decrease the value from temp (not set it to -1)
        SetTime()
    End If
End Sub

How to program a countdown timer in VB.NET

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0