473,745 Members | 2,189 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

How can I display a timer counting down to 00h:00m:00s?

I need to display a timer ticking down.
Example:
11h:52m:39s to 00h:00m:00s
How can I do this?
Thanks,
Trint

.Net programmer
tr********@hotm ail.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
Nov 20 '05 #1
5 2781
In article <em************ **@TK2MSFTNGP09 .phx.gbl>, Trint Smith wrote:
I need to display a timer ticking down.
Example:
11h:52m:39s to 00h:00m:00s
How can I do this?
Thanks,
Trint

.Net programmer
tr********@hotm ail.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!


Public Class Form1
Inherits System.Windows. Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeCompo nent()

'Add any initialization after the InitializeCompo nent() call

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.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.Componen tModel.IContain er

'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.
Friend WithEvents Label1 As System.Windows. Forms.Label
Friend WithEvents Timer1 As System.Windows. Forms.Timer
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
Me.components = New System.Componen tModel.Containe r
Me.Label1 = New System.Windows. Forms.Label
Me.Timer1 = New System.Windows. Forms.Timer(Me. components)
Me.SuspendLayou t()
'
'Label1
'
Me.Label1.Locat ion = New System.Drawing. Point(4, 4)
Me.Label1.Name = "Label1"
Me.Label1.TabIn dex = 0
Me.Label1.Text = "Label1"
'
'Timer1
'
Me.Timer1.Enabl ed = True
Me.Timer1.Inter val = 1000
'
'Form1
'
Me.AutoScaleBas eSize = New System.Drawing. Size(5, 13)
Me.ClientSize = New System.Drawing. Size(108, 29)
Me.Controls.Add (Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout (False)

End Sub

#End Region

Private span As New TimeSpan(11, 52, 39)

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Label1.Text = span.ToString()
End Sub

Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick
span = span.Subtract(N ew TimeSpan(0, 0, 1))
Label1.Text = span.ToString()
If span.Equals(New TimeSpan(0, 0, 0)) Then
Timer1.Enabled = False
End If
End Sub
End Class

HTH
--
Tom Shelton [MVP]
OS Name: Microsoft Windows XP Professional
OS Version: 5.1.2600 Service Pack 1 Build 2600
System Up Time: 9 Days, 2 Hours, 22 Minutes, 42 Seconds
Nov 20 '05 #2
Hi,

You can try something like this. I would use the timer in the
componet tab with an interval of 1000.

http://msdn.microsoft.com/msdnmag/is...T/default.aspx

Private Sub Timer1_Elapsed( ByVal sender As System.Object, ByVal e As
System.Timers.E lapsedEventArgs ) Handles Timer1.Elapsed

Static ts As New TimeSpan(0, 0, 10) ' hours, minutes, seconds

Dim tsZero As New TimeSpan(0, 0, 0)

ts = ts.Subtract(New TimeSpan(0, 0, 1))

If ts.Equals(tsZer o) Then

Timer1.Enabled = False

MessageBox.Show ("Done")

End If

Me.Text = ts.ToString

End Sub

Ken

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

"Trint Smith" <tr********@hot mail.com> wrote in message
news:em******** ******@TK2MSFTN GP09.phx.gbl...
I need to display a timer ticking down.
Example:
11h:52m:39s to 00h:00m:00s
How can I do this?
Thanks,
Trint

Net programmer
tr********@hotm ail.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Nov 20 '05 #3
"Trint Smith" <tr********@hot mail.com> schrieb
I need to display a timer ticking down.
Example:
11h:52m:39s to 00h:00m:00s
How can I do this?


Drop a timer (system.windows .forms.timer) and a lable from the toolbox on
the form. Add this Code:

Private m_EndDateTime As Date

'to start the timer:
m_EndDateTime = Date.Now.AddHou rs(0.01)
Timer1.Start()

'Tick handler:
Private Sub Timer1_Tick( _
ByVal sender As System.Object, _
ByVal e As System.EventArg s) _
Handles Timer1.Tick

Dim ts As TimeSpan

ts = m_EndDateTime.S ubtract(Date.No w)
If ts.Ticks <= 0 Then
Label1.Text = "your time is up!"
Timer1.Stop()
Else
Label1.Text = String.Format( _
"{0:00}h:{1:00} m:{2:00}s", _
ts.Hours, ts.Minutes, _
CInt(Math.Ceili ng(ts.Seconds + ts.Milliseconds / 1000)) _
)
End If

End Sub

--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

Nov 20 '05 #4
Thanks,
I will try these.
Trint

..Net programmer
tr********@hotm ail.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
Nov 20 '05 #5
Hi Trint,

Take a look at this article

http://www.c-sharpcorner.com/Code/2003/Aug/EggTimer.asp

"Trint Smith" <tr********@hot mail.com> wrote in message
news:em******** ******@TK2MSFTN GP09.phx.gbl...
I need to display a timer ticking down.
Example:
11h:52m:39s to 00h:00m:00s
How can I do this?
Thanks,
Trint

Net programmer
tr********@hotm ail.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Nov 20 '05 #6

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

3
12829
by: nriesch | last post by:
In the documentation, the "Second" property of class DateTime is a value between 0 and 59. In UTC time, approximately every year of so, a leap second is added at 00:00:00 UTC, so as to account for the irregular rotation of the earth, which is slowing down a little bit. So, a minute can contains 61 seconds ( range 0..60 ). Besides, the NTP protocol takes leap second into account, and UTC time also.
1
6536
by: ramanagosu | last post by:
hi please help me, I am doing project on online bidding using php it display's product details like image,price (in dollers ) and bidder name ,time seconds(00h:00m:00s), if bidder bid that product (before the time seconds 00:00) the time increased seconds automatically set to 20 seconds and redispaly the username who bid that product . if the time go to (00:00) the product alloted to last bidder who bid that product here the...
0
8795
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
9344
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
0
9214
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
8218
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...
1
6763
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...
0
4572
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
4827
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
2
2759
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
3
2195
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.