Countdown Timer

  • Thread starter Thread starter Andrea
  • Start date Start date
A

Andrea

I would like to include a countdown timer during a
presentation for grad school. Does anyone even know if
one is available? I seemed to have looked everywhere.

I little more specifically I want a timer to count down
for 5min while people work in groups. This way it will
be on the Smart Board screen while they work, and they
can just glance up at it. Thanks in advance, Andrea
 
The easiest to do is to create a 6 slide show, each displaying a large
minute count (5:00 - 4:00 - 3:00 - 2:00 - 1:00 - TIME). The set your slides
to automatically transition at 60 seconds. Instant countdown timer. You can
increase the slide count and add 30 second intervals (4:30, 3:30, etc.),
just decrease the slide transition to 30 seconds.

The other PowerPoint option is to find a VBA script that creates a countdown
script. Or you could leave the realm of PowerPoint and run a countdown/timer
program - do a search at www.download.com for "timer" and you will find
plenty.
--
Best Regards,
Troy Chollar
==============================
TLC Creative Services
www.tlccreative.com
(e-mail address removed)
==============================
 
The PPT FAQ has two listed. See:
TIMERS for PowerPoint
http://www.rdpslides.com/pptfaq/FAQ00081.htm


--
Kathryn Jacobs, Microsoft PPT MVP
If this helped you, please take the time to rate the value of this post:
http://rate.affero.net/jacobskl/
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Kathy is a trainer, writer, Girl Scout, and whatever else there is time for
I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived
 
Be careful using PowerPoint's transition timing to time your presentation.
If the machine you are running on is busy, the timing may not be right.
(Remember exact timing and PowerPoint don't play well together.)

--
Kathryn Jacobs, Microsoft PPT MVP
If this helped you, please take the time to rate the value of this post:
http://rate.affero.net/jacobskl/
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Kathy is a trainer, writer, Girl Scout, and whatever else there is time for
I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived
 
Ok, below is a little code I wrote a while back when I was doing something
similar. I'll email it to you if you have difficulties setting the PPT up.

Feel free to use it for your project, but, when you talk to the students,
include a word of thanks for the newsgroup and the help it provides

Thanks,
B

============================
Objects on slide:
3 command buttons labeled ...
cmd1 -- kind large at bottom of slide
cmd2 -- very large in center of slide
cmd3 -- rather small in lower corner -- caption to read "Exit Timer"

-=-=-=-=-=-=-=-
Code as Follows:
-=-=-=-=-=-=-=-

Option Explicit

Public EndTime As Double
Public StopIt As Boolean

Private Sub cmd1_Click()

'Set up variable
Dim Dummy As String

'Determine running state and change
Select Case cmd1.Caption
Case Is = "Reset"
cmd1.Caption = "Start"
cmd1.BackColor = vbGreen
cmd2.Visible = False
StopIt = True
Case Else
Dummy = InputBox("How Many Minutes?", "Countdown timer", "15")
EndTime = Timer + (Val(Dummy) * 60)
cmd1.Caption = "Reset"
cmd1.BackColor = vbRed
cmd2.Visible = True
StopIt = False
Call Timer1
End Select
End Sub

Private Sub Timer1()
'Set up variables
Dim Dummy As String
Dim x As Double, h As Double, m As Integer, s As Integer

Loop1:
'Stop the timer loop if done
If StopIt = True Then
cmd2.BackColor = vbCyan
cmd2.Caption = "Time's Up!"
DoEvents
For x = 1 To 100
Beep
Next x
Exit Sub
End If

'Figure out the time in hours, minutes seconds
x = Int(EndTime - Timer)
h = Int(x / 3600)
x = x - (h * 3600)
m = Int(x / 60)
x = x - (m * 60)
s = x
x = (h * 3600) + (m * 60) + s

'build the display string
Dummy = "Time remaining ... " & vbCr & vbCr
If x >= 3600 Then Dummy = Dummy & Str(h) & ":"
If x >= 60 Then Dummy = Dummy & Right(Str(m + 1000), 2)
Dummy = Dummy & ":" & Right(Str(s + 1000), 2)

'Display it
cmd2.Caption = Dummy
DoEvents

'Status background color and set stop flag when done
If x > 60 Then
cmd2.BackColor = vbGreen
Else
cmd2.BackColor = vbYellow
End If
If x < 10 Then
cmd2.BackColor = vbRed
Beep
End If

If x <= 0 Then
StopIt = True
End If

'Catch the display up
DoEvents

'Wait a second
s = Int(Timer)
Do While s = Int(Timer)
DoEvents
Loop

'Do it again
GoTo Loop1
End Sub

Private Sub cmd3_Click()
Application.Quit
End Sub
==========================
Watch for text wrap from the NG

Maybe this is all too much...
oh well.

B
===============
Please spend a few minutes checking out www.pptfaq.com This link will
answer most of our questions, before you think to ask them.

Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.
 
B (nice name!)

For those of us who are just learning, how do I use the code you have
supplied?

Thanks.
 
Aussiem,

It might be easier if I email the PPT to you and let you dissect it. If you
can supply me an address (you at domain dot com -- formatted to avoid
spamming), I send it from home tonight.

B
 
Hi B,

Thanks for sharing your code, would you kindly send me the ppt as wel
? i am a dummy of VBA...

my email address is davidipaq @ hotmail dot com

Thanks again
Davi
 
To B:

Thanks for the offer of emailing the PPT to me, I'd like to take you u
on the offer, but I'd rather not publicly display my email address. Ca
I get it to you some other way?

(As to the code you wrote, I (think I) followed all the instructions o
the site that TAJ supplied in order to insert your code, but th
Debugger kept telling me there were problems.
 
Aussiem,
Sorry for the delay, projects were at deadline ....

E-mail me at ---
vestprog2 ---
yahoo ---
com ---

Inserting the at and dot where seems appropriate

David, your copy is enroute.

B
 
Back
Top