Well, it is now! In an example using the timer, I saw
StartTimer Result, "MyTimer" Which works. But I guess we create the "ID" by saying Timer = StartTimer Result, "MyTimer" So if you know just what you are looking for it is pretty obvious, but if you don't, a little help along the way is appreciated. Thanks again! Jeff Weiss From: Doug Geoffray [mailto:[email protected]] Sent: Thursday, March 08, 2012 2:32 PM To: [email protected] Subject: Re: using stopTimer Jeff, Oops, sorry about the missing parens. Of course I didn't actually run this (smile). If you look at the documentation for StartTimer, it says: "Creates and returns a timer ID. You can use the timer ID in the StopTimer method to stop the timer." In the StopTimer where it describes the single parameter it says "ID of a timer created by the StartTimer method" I think this is pretty clear isn't it? Doug On 3/8/2012 1:33 PM, Jeff Weiss wrote: 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.
