Wait command with no output. 2

[inteleserve]

What is the best way to make my foxpro program wait for a specified number of seconds without any output to the screen or requied anykey pressing.

Why doesn't this work?

WAIT CLEAR TIMEOUT 1

 

[jimstarr]

Try:

WAIT TIMEOUT 1

Jim

 

[wgcs]

This is what I use:

procedure Delay
parameter s
private zz
  DECLARE Sleep IN Win32Api AS apiSleep LONG dwMilliseconds
  zz = s*1000
  apiSleep( zz )  
ENDPROC

I expect Sleep will allow Windows to do whatever it wants in the most cooperative way possible...

 

[jimstarr]

I see that my solution doesn't answer your question - it displays a message.....

Jim

 

[rgbean]

WAIT CLEAR terminates a previous WAIT NOWAIT command - there is no TIMEOUT option on a WAIT CLEAR, you should be getting a syntax error. (The Help file is not real "clear" on this!)

Use the Sleep() WinAPI function instead.

DECLARE Sleep IN Win32API LONG
=Sleep(1000.0) && one second

Note: Sleep works in milliseconds.

Rick

 

[TedMcCoin]

***this is an old piece of code, but should work too


waitsecs=10
DO WHILE waitsecs>1
holdon=substr(time(),8,1)
do while .t.
testtime=substr(time(),8,1)
if testtime<>holdon
holdon=substr(time(),8,1)
exit
endif
enddo
waitsecs=waitsecs-1
?waitsecs
ENDDO

 

[inteleserve]

I typed it in exactly like:

DECLARE Sleep IN Win32API LONG=Sleep(1000.0)


and I get a syntax error..........


help?

 

[rgbean]

HandleMeNow,
While this was fine for a DOS environment, in Windows this will "burn" the processor, and keep other applications from handling Windows messages. This is often refered to as a "bad actor" piece of Windows code. Note: If you include a DOEVENTS command inside your loop, it would be much better!

Rick

 

[TedMcCoin]

@rgbean Rick

thanks, you are right, I did't consider the window environment with other applications.

Erik

 

[wgcs]

inteleserv: It is meant to be two lines:

DECLARE Sleep IN Win32API LONG

=Sleep(1000.0)

The "=" isn't really necessary... it's just how I typed it way back... This works too:

DECLARE Sleep IN Win32API LONG nNumberOfMiliseconds
Sleep(1000.0)

 

[marzz]

Do this:

WAIT "" TIMEOUT 10

 

[rgbean]

marzz,
While this doesn't display a Wait box, it can be overridden with a simply key press or mouse click - then it really isn't waiting!

Rick

 

[inteleserve]

This is what I have ended up useing and it works great.

DECLARE Sleep IN Win32API LONG
Sleep(1000.0)

Thanks rgbean and wgcs

how come i don't need anything after LONG?

 

[Walid]

You don't need any thing after LONG because this is just a declaration of the function signature.
Long here is the Parameter Type (just the type not the parameter itself).
you next send the parameter in the function call.
Sleep(1000.0)
the 1000 is the parameter of type LONG that the function Sleep expect you to send.


Walid Magd
Engwam@Hotmail.com

 

[Steve Bowman]

Just one more!

=inkey(5,"H")

will wait for 5 seconds and hide the cursor
the only issue with this simple method like the wait timeout 5 is a keypress will interupt the wait.


Steve Bowman
steve.bowman@ultraex.com

 

[Aseem1234]

I found this site has a great collection of many api functions....

http://www.news2news.com/vfp/