IB Statements/SetTimer - Revision history

Jim: minor

2010-07-22T20:31:13Z

minor

← Older revision		Revision as of 20:31, 22 July 2010
Line 2:		Line 2:
	There are many times that you may want to get some information from the user but there are records extracted, or some other reason that would ''mess things up'' if the user did not provide the information in a timely manor.		There are many times that you may want to get some information from the user but there are records extracted, or some other reason that would ''mess things up'' if the user did not provide the information in a timely manor.

-	With the SetTimer statement, you can limit the time a user has to input the ~~info~~, and take some action.	+	With the SetTimer statement, in conjunction with [[IB_Statements/eventwait\|Comet Event Handling]], you can limit the time a user has to input the data, and take some action.
	<table cellpadding=5 cellspacing=2>		<table cellpadding=5 cellspacing=2>
	<td><b>Syntax:</b>		<td><b>Syntax:</b>

	<td>		<td>
-	SetTimer TimerName, Duration	+	SetTimer TimerName$, Duration

-	Where TimerName is a string expression and Duration is a numeric expression.	+	Where TimerName$ may be a string expression and Duration may be a numeric expression.
	</td>		</td>
	<tr>		<tr>
Line 18:		Line 18:
	* Stop execution		* Stop execution
	* Warn the user		* Warn the user
-	* Using the SatisfyInput command, supply a default response	+	* Using the [[Mnemonics_"S"#.28SatisfyInput.29\|SatisfyInput]] command, supply a default response

-	SetTimer will fire from an Input statement, Wait statement, or EventWait statement.	+	SetTimer will fire from an [[Input]] statement, [[IB_Statements/wait\|Wait]] statement, or [[IB_Statements/eventwait\|EventWait]] statement.
		+
		+	If multiple timeouts occur and there is no event handler in effect, a single timer event will fire.
		+
		+	If the program uses [[IB Statements/UserDefinedProcs\|Comet Procedures]], the event handler should be part of the main code.

	To stop the timer, use the following:		To stop the timer, use the following:

Jim: minor

2010-07-22T20:06:25Z

minor

← Older revision		Revision as of 20:06, 22 July 2010
Line 38:		Line 38:
	SetTimer "Timer 1: "+Term$, 101010 ! One Second		SetTimer "Timer 1: "+Term$, 101010 ! One Second
	print @(0,9);'enter something'		print @(0,9);'enter something'
-	input @(1,10) a$	+	Do
-	if a$ = "" goto EndIt	+	input @(1,10) a$
-	print @(0,10);(cfld);@(0,11);'you entered ';a$	+	if a$ = "" goto EndIt
		+	print @(0,10);(cfld);@(0,11);'you entered ';a$
	Loop		Loop

Line 47:		Line 48:
	EventSub		EventSub
	print @(0,15);'done' & wait		print @(0,15);'done' & wait
-	Stop	+	Stop

	TimerFunc:		TimerFunc:
Line 53:		Line 54:
	Print (mc);@(0,5);(rb);"Source: " ; EventSource$ ; " Event: " ; EventName$ ; "(";Count;")";(rc)		Print (mc);@(0,5);(rb);"Source: " ; EventSource$ ; " Event: " ; EventName$ ; "(";Count;")";(rc)
	EventSub TimerFunc EventSource$ EventName$		EventSub TimerFunc EventSource$ EventName$
-	Return	+	Return


	</td>		</td>
	</table>		</table>

Jim: minor

2010-07-22T20:03:51Z

minor

← Older revision		Revision as of 20:03, 22 July 2010
Line 39:		Line 39:
	print @(0,9);'enter something'		print @(0,9);'enter something'
	input @(1,10) a$		input @(1,10) a$
-	if a$ = "" goto ~~DoEnd~~	+	if a$ = "" goto EndIt
	print @(0,10);(cfld);@(0,11);'you entered ';a$		print @(0,10);(cfld);@(0,11);'you entered ';a$
	Loop		Loop

-	~~DoEnd~~:	+	EndIt:
	SetTimer "", 0		SetTimer "", 0
	EventSub		EventSub

Jim at 19:45, 22 July 2010

2010-07-22T19:45:17Z

← Older revision		Revision as of 19:45, 22 July 2010
Line 21:		Line 21:

	SetTimer will fire from an Input statement, Wait statement, or EventWait statement.		SetTimer will fire from an Input statement, Wait statement, or EventWait statement.
		+
		+	To stop the timer, use the following:
		+	SetTimer "", 0

	</td>		</td>

Jim: added code example

2010-07-22T19:42:25Z

added code example

New page

== Introduction ==
There are many times that you may want to get some information from the user but there are records extracted, or some other reason that would ''mess things up'' if the user did not provide the information in a timely manor.

With the SetTimer statement, you can limit the time a user has to input the info, and take some action.
<table cellpadding=5 cellspacing=2>
<td><b>Syntax:</b>

<td>
SetTimer TimerName, Duration

Where TimerName is a string expression and Duration is a numeric expression.
</td>
<tr>

<td valign=top><b>Discussion:</b>
<td>
The SetTimer instruction causes an event to be fired to the program when a specified duration (in Milliseconds) has passed.In the event handler, the program has the opportunity to do several things.
* Stop execution
* Warn the user
* Using the SatisfyInput command, supply a default response

SetTimer will fire from an Input statement, Wait statement, or EventWait statement.

</td>
<tr>
<td valign=top><b>Example:</b>
<td>
Length 254 & Local EventSource$, EventName$
length 80 & local a$
Length 5.0 & Local Count

Clear
Print (cs)
EventSub TimerFunc EventSource$ EventName$
SetTimer "Timer 1: "+Term$, 10*10*10 ! One Second
print @(0,9);'enter something'
input @(1,10) a$
if a$ = "" goto DoEnd
print @(0,10);(cfld);@(0,11);'you entered ';a$
Loop

DoEnd:
SetTimer "", 0
EventSub
print @(0,15);'done' & wait
Stop

TimerFunc:
Count = Count + 1
Print (mc);@(0,5);(rb);"Source: " ; EventSource$ ; " Event: " ; EventName$ ; "(";Count;")";(rc)
EventSub TimerFunc EventSource$ EventName$
Return

</td>
</table>