>>Is there a command that enables a DO... WHILE loop to allow other windows processing
>>to continue?
>>
>>Every time I run a certain .prg the network comes to a screeching halt.
>>
>>Thanks in advance
>
>Place DOEVENTS within the loop.
>
>-Mike
I tested this approach with the following results:
***********************************
* this program ran up to nCount = 4
***********************************
nCount = 1
nSeconds = SECONDS()
DO WHILE nCount < 100000 AND SECONDS() < nSeconds + 1
* IF MOD(nCount,1000) = 0
DOEVENTS
* ENDIF
@ 05,02 say nCount
nCount = nCount + 1
ENDDO
***********************************
* this program ran up to nCount = 405
***********************************
nCount = 1
nSeconds = SECONDS()
DO WHILE nCount < 100000 AND SECONDS() < nSeconds + 1
IF MOD(nCount,1000) = 0
DOEVENTS
ENDIF
@ 05,02 say nCount
nCount = nCount + 1
ENDDO
This will help, but I'll only issue a DOEVENTS command every 500 or 1000th
pass through the loop.
Thanks
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement