Using PP for training on a running track--

[jackjohansson]

How accurate is the time function on PP 2002. I want to use my laptop
as a timer for my interval workouts on the running track.

I know computer clocks are notoriously inaccurate, but is the second
functions on PP accurate?

How I plan to do it:
I want to run a number of 400m intervals (one lap around the track) I
can set up the laptop trackside, so I can see the screen as I approach
the finish line (also start line)

I will program a pp prentation to have a 5 second countdown (1 slide
per second) then a count up funtion, one second per slide. Each slide
displaying in very large font, the number of seconds that have elapsed
since :00/when I started running.
I will start the presentation, and have a few seconds to get set, watch
the countdown and take off on :00, then run around the track, and as I
am running home, I will be able to see the seconds counting up, so I
can adjust my pace to hit the target. I could also program in the
alloted rest period before time to run my next interval.

The only problem I can see is having someone boost my laptop as I am
running around the track, but I do it on a deserted track, so no one
would be around to run off with it.

 

[Bill Dilworth]

Baw ha ha, ...PowerPoint ... timing... that's rich. Oh you've made me spill
my Mountain Dew.

But seriously, you can do rough timing with PowerPoint's transition, but
nothing that needs to be accurate to within say 1/2 second per slide.

You would be better off using a macro that pulls the time from the system,
rather than relying on transition timing.

Here, this macro should do everything you want. Just make a single blank
slide, add a text box with a basic solid fill and very large text. Then
assign the action setting On click - Run Macro - Apollo. When ready, start
the slideshow, click on the textbox and run like the wind.

If you need more help in setting up the macro, check out:
**How do I use VBA code in PowerPoint?
http://www.rdpslides.com/pptfaq/FAQ00033.htm



======Begin Code===========
Option Explicit
'Watch this next line does not wrap
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Sub Apollo(oSh As Shape)
Dim t As Single
Dim m As Integer
Dim s As Single

t = Timer

With oSh.TextFrame.TextRange
.Text = "On your mark"
Beep
DoEvents
Do While t + 2 > Timer
Sleep (100)
Loop
.Text = "Get set"
Beep
DoEvents
Do While t + 4 > Timer
Sleep (100)
Loop
.Text = "Go !!!"
Beep
DoEvents
t = Timer
Do While t + (10 * 60) > Timer _
'Quits after 10 minutes, but _
you can adjust this to anything
m = Int((Timer - t) / 60)
s = (Timer - t) - (m * 60)
.Text = Format(m, "#0") & _
":" & Format(s, "00.0")
DoEvents
Sleep (100)
Loop
.Text = "10 minutes have expired."
End With

End Sub
======End Code===========


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..

 

[TAJ Simmons]

boost
As in stolen?

TAJ

 

[jackjohansson]

yes, stolen:

From Urbandictionary.com

1. boost
to steal
"I looked out my window the other day and saw this dude trying to boost
my ride, so I shot him in the face."