Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to *not* bog down windows?
Message
De
27/11/1997 20:17:58
 
 
À
26/11/1997 17:40:24
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00062460
Message ID:
00062635
Vues:
39
>>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
Fil
Voir

Click here to load this message in the networking platform