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:geoff...@gwmicro.com] Sent: Thursday, March 08, 2012 9:01 AM To: gw-scripting@gwmicro.com 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.
