Use a pause 4 before sleeping and CLS after sleeping

Dennis McGrath
Software Developer
QMI Security Solutions
1661 Glenlake Ave
Itasca IL 60143
630-980-8461
[email protected]
From: [email protected] [mailto:[email protected]] On Behalf Of Michael J. 
Sinclair
Sent: Wednesday, September 05, 2012 12:40 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: PAUSE for less than one second.

Mike
Can you make this "Steal the Focus" like the Pause command does?
Mike

________________________________
From: Mike Byerley <[email protected]<mailto:[email protected]>>
To: RBASE-L Mailing List <[email protected]<mailto:[email protected]>>
Sent: Wednesday, September 5, 2012 12:53 PM
Subject: [RBASE-L] - Re: PAUSE for less than one second.

Larry,
  Use DLCall and the Sleep() API...


Here is a little TEST rmd for you:

{begin code}


IF (ChkFunc('Sleep')) = 0 THEN
  STDCALL void 'Sleep' (Integer)  -- It doesn't return a value
ENDIF

SET VAR vsleep INTEGER = 250
SET VAR vi INTEGER = 10

SET VAR vcount INTEGER = 0

WHILE vi > 0 THEN
  -- DLCall won't work here without a dummy placeholder return variable
  SET VAR vret = (DLCall('Kernel32','Sleep', vsleep))
  PROCESSMESSAGE  -- if you want any visual feedback unbottled
  SET VAR vi = (.vi - 1)
  SET VAR vcount = (.vcount + 1)

ENDWHILE

RETURN
{end Code}



----- Original Message -----
From: "Lawrence Lustig" <[email protected]<mailto:[email protected]>>
To: "RBASE-L Mailing List" <[email protected]<mailto:[email protected]>>
Sent: Wednesday, September 05, 2012 11:33 AM
Subject: [RBASE-L] - PAUSE for less than one second.


I want to pause each time through a loop, but only for 250 milliseconds (a
quarter second).

PAUSE FOR works fine for whole numbers of seconds. Is there any way to pause
for something shorter than a second?
--
Larry



Reply via email to