FW using processortime

[driessen]

Hello,

How can I prevent that the next loop is using 100% processortime ?

This is the loop :

------------------------------
DO WHILE .T.
IF VActive
SYSREFRESH()
LOOP
ENDIF
EXIT
ENDDO
------------------------------

Thanks a lot in advance.

Michel D.
M&A Consult bvba
Genk (Belgium)

[Antonio Linares]

Michel,

Try Sleep( 1 ) instead of Sysrefresh()

[Otto]

Couldn't you use a timer?
Regards
Otto

[driessen]

Antonio,
Otto,

Thanks a lot for you answers.

Antonio, sleep() is an unknown function in FW for Clipper.

Otto, I never thought of a timer. I'll try it out.

Thank you.

Michel

[Enrico Maria Giordano]

This is a working sample of Sleep() definition:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    SLEEP( 2000 )

    RETURN NIL


DLL32 FUNCTION SLEEP( nMilliseconds AS DWORD ) AS VOID;
      PASCAL FROM "Sleep" LIB "kernel32.dll"

EMG

[driessen]

Thanks a lot guys.

I'll try out your suggestions.

Michel

[Antonio Linares]

Michel,

What do you use that loop for ?