Hi Jeff,
Yes, getting late on this thread, inside my Cuckoo Clock app you will find
many examples of the timer.
Bruce
Sent: Thursday, March 08, 2012 1:33 PM
Subject: RE: using stopTimer
Thanks doug and Jeff.
Doug, I got your script to work by adding parens here:
timer = StartTimer( Result, "MyTimer")
The only reason I did this was to learn how to use
StopTimer.
The thing I didn't realize when reading the App manual was that
We needed to use a variable
"Timer"
When setting up the timer so that this same variable could be used to stop
the timer.
StopTimer timer
This is the kind of thing that I have difficulty understanding without a
real, working example.
Thanks again for this example!
Jeff Weiss
From: Doug Geoffray [mailto:[email protected]]
Sent: Thursday, March 08, 2012 9:01 AM
To: [email protected]
Subject: Re: using stopTimer
Jeff,
Jeff Bishop is correct. I quickly reworked your app...this would do what you
want. But of course it would be better to just check your Result before
setting the timer in the first place (smile).
Doug
Dim myHotkey : Set myHotkey =
Keyboard.RegisterHotkey("Alt-Control-Shift-I","GetTime")
Dim Result
Dim Timer
Function GetTime()
' This timer will execute the MyTimer function in a specified time
Result = InputBox("Enter number of seconds: ", "Timer")
Result = Result & "000"
timer = StartTimer Result, "MyTimer"
If Result > 10000 Then
StopTimer timer
Speak "sorry, no times longer than 10 seconds! "
Sleep 300
End If
End Function
' Set a timer
Sub MyTimer()
PlaySound("TimerStopDone.wav")
Sleep 3500
Speak "Your time is up! "
End Sub
On 3/8/2012 9:44 AM, Jeff Weiss wrote:
I want to use StopTimer in this script.
What is wrong with the line:
StopTimer "MyTimer"
Dim myHotkey : Set myHotkey =
Keyboard.RegisterHotkey("Alt-Control-Shift-I","GetTime")
Dim Result :
Function GetTime()
' This timer will execute the MyTimer function in a specified time
Result = InputBox("Enter number of seconds: ", "Timer")
Result = Result & "000"
StartTimer Result, "MyTimer"
If Result > 10000 Then
' here is the problem line
StopTimer "MyTimer"
Speak "sorry, no times longer than 10 seconds! "
Sleep 300
End If
End Function
' Set a timer
Sub MyTimer()
PlaySound("TimerStopDone.wav")
Sleep 3500
Speak "Your time is up! "
End Sub
Jeff Weiss, CVRT
Rehabilitation Teacher
World Services for the Blind
2811 Fair Park Blvd.
Little Rock, AR 72204
http://www.lwsb.org
The Mission of WSB is to educate adults who are blind or visually impaired
for careers and independent lives.
