CountDown Timer

Printable View

CountDown Timer

Hello
I need to count down (from 2 hours) the time - in other words count backwards from 1:59:59 to 00:00:00

This is what I've done so far, can anyone help me improve

VB Code:

Private Sub ETCountDown()
        Static ETSec As Integer = 60
        Static ETMin As Integer = 59
        Static ETHour As Integer = ETDur - 1
 
        ''''''''''''''''''''''''''''''''''
        'seconds
        ETSec = ETSec - 1
        lblETTimeLeft.Text = CStr(ETHour) & ":" & CStr(ETMin) & ":" & CStr(ETSec)
        If ETSec = 0 Then
            ETMin = ETMin - 1
            lblETTimeLeft.Text = CStr(ETHour) & ":" & CStr(ETMin) & ":00"
            ETSec = 59
        ElseIf ETSec < 10 Then
            lblETTimeLeft.Text = CStr(ETHour) & ":" & CStr(ETMin) & ":0" & CStr(ETSec)
        End If
        '''''''''''''''''''''''''''''''''
 
        ''''''''''''''''''''''''''''''''
        'minutes not too sure!
        If ETMin = 0 Then
            ETHour = ETHour - 1
            lblETTimeLeft.Text = CStr(ETHour) & ":00" & CStr(ETSec)
            ETMin = 59
        ElseIf ETMin < 10 Then
            If ETSec < 10 Then
                lblETTimeLeft.Text = CStr(ETHour) & ":0" & CStr(ETMin) & ":0" & CStr(ETSec)
            Else
                lblETTimeLeft.Text = CStr(ETHour) & ":0" & CStr(ETMin) & ":" & CStr(ETSec)
            End If
            End If
        '''''''''''''''''''''''''''''''
 
        '''''''''''''''''''''''''''''''
        'hour busy
        If ETHour = 0 Then
            lblETTimeLeft.Text = "00:" & CStr(ETMin) & ":" & CStr(ETSec)
        ElseIf ETHour < 10 Then
            lblETTimeLeft.Text = "0:" & CStr(ETMin) & ":" & CStr(ETSec)
        End If
    End Sub
 
Private Sub tET_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tET.Tick
        ETCountDown() 'interval is set to 1000
 
    End Sub

Re: CountDown Timer

Wow. 2 for 2. Upgrade Wizard strikes again!

VB Code:

Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
#Region "Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        If m_vb6FormDefInstance Is Nothing Then
            If m_InitializingDefInstance Then
                m_vb6FormDefInstance = Me
            Else
                Try 
                    'For the start-up form, the first instance created is the default instance.
                    If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
                        m_vb6FormDefInstance = Me
                    End If
                Catch
                End Try
            End If
        End If
        'This call is required by the Windows Form Designer.
        InitializeComponent()
    End Sub
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
        If Disposing Then
            If Not components Is Nothing Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(Disposing)
    End Sub
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Public ToolTip1 As System.Windows.Forms.ToolTip
    Public WithEvents Timer1 As System.Windows.Forms.Timer
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.components = New System.ComponentModel.Container()
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
        Me.ToolTip1.Active = True
        Me.Timer1 = New System.Windows.Forms.Timer(components)
        Me.Text = "Form1"
        Me.ClientSize = New System.Drawing.Size(312, 206)
        Me.Location = New System.Drawing.Point(4, 30)
        Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultLocation
        Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        Me.ControlBox = True
        Me.Enabled = True
        Me.KeyPreview = False
        Me.MaximizeBox = True
        Me.MinimizeBox = True
        Me.Cursor = System.Windows.Forms.Cursors.Default
        Me.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.ShowInTaskbar = True
        Me.HelpButton = False
        Me.WindowState = System.Windows.Forms.FormWindowState.Normal
        Me.Name = "Form1"
        Me.Timer1.Enabled = False
        Me.Timer1.Interval = 1
    End Sub
#End Region 
#Region "Upgrade Support "
    Private Shared m_vb6FormDefInstance As Form1
    Private Shared m_InitializingDefInstance As Boolean
    Public Shared Property DefInstance() As Form1
        Get
            If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
                m_InitializingDefInstance = True
                m_vb6FormDefInstance = New Form1()
                m_InitializingDefInstance = False
            End If
            DefInstance = m_vb6FormDefInstance
        End Get
        Set
            m_vb6FormDefInstance = Value
        End Set
    End Property
#End Region 
    ' Add a Timer control to your project.  It will be Timer1
    ' It looks like a stop watch in the IDE.
    Dim OldTime As Date
    Dim newTime As Date
    Dim diff As Integer
    
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        OldTime = DateAdd(Microsoft.VisualBasic.DateInterval.Second, 7200, TimeOfDay) ' Add 2 hourss
        Timer1.Interval = 10
        Timer1.Enabled = True
    End Sub
    
    Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
        newTime = TimeOfDay
        diff = DateDiff(Microsoft.VisualBasic.DateInterval.Second, newTime, OldTime)
        Form1.DefInstance.Text = (diff \ 3600) & ":" & VB6.Format(diff \ 60 Mod 60, "00") & ":" & VB6.Format(diff - ((diff \ 60) * 60), "00")
        If diff = 0 Then
            Timer1.Enabled = False
            ' You time is UP!  Do something!
            Beep()
        End If
    End Sub
End Class

Dec 31st, 2005, 04:21 AM
GrimmReaper

Re: CountDown Timer

hi David!
Thanx, but I don't need the timeofday - it should exactly countdown from 2 hours only, how can I do it?
Dec 31st, 2005, 06:02 AM
Kasracer

Re: CountDown Timer
I created a CountDownTimer control based on the System.Windows.Forms.Timer control to do something like this. I'd give you almost the exact code but it's in C#.

For the logic of counting down, you'll want some nested If statements like the following:
VB Code:
```
If (Seconds = 0) Then
Seconds = 59
       If (Minutes = 0) Then
            Minutes = 59
                  If (Not Hours = 0) Then
                       Hours -= 1
                  End If
       Else
            Minutes -= 1
       End If
Else
Seconds -= 1
End If
```
Then you check when all 3 (Hours, Minutes, Seconds) are 0 and then your time is done!

Very simple

Now if you want to format it so there is always two digits shown (like, if the timer gets to 3 seconds, you want it to show 03), then make a function to pass each number to. If it's >= 10, don't worry about it. Otherwise, add a 0 to the front.

Of course what I described is expandable to higher than two hours. A contorl I'm going to publish later can do days. I thought about years but who is there to say how long a year is with leap years involved?

Re: CountDown Timer

All you need is to add a Timer object to your form with an Interval of 1000 (1 second). You can then use the following code to effect your count-down.

VB Code:

Private endTime As Date
 
    Private Sub StartTimer()
        Me.Label1.Text = "2:00:00"
        Me.endTime = Date.Now.AddHours(2)
        Me.Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim remainingTime As TimeSpan = Me.endTime.Subtract(Date.Now)
 
        Me.Label1.Text = String.Format("{0}:{1:d2}:{2:d2}", remainingTime.Hours, remainingTime.Minutes, remainingTime.Seconds)
 
        If Me.endTime >= Date.Now Then
            Me.Timer1.Stop()
            MessageBox.Show("Time's up.")
        End If
    End Sub