WAIT
WAIT [ Espera ]
Crida recursivament el bucle general d'events.
Si s'especifica
Espera, la funció no retorna fins que hagin passat els
Espera segons.
Si no s'especifica
Espera, la funció processa tots els esdeveniments i retorna immediatament.
En aquest cas, s'ignoren el teclat i els esdeveniments del ratolí.
Espera és un número de coma flotant. Així, per esperar 100 ms, només cal: WAIT 0.1
Examples
' Espera una mica, deixant l'usuari interaccionar amb l'interfície
WAIT 0.1
' Espera, però l'usuari només pot mirar el que passa...
WAIT
Si es crida
WAIT des d'una funció encarregada de gestionar un , es pot crear una recursió infinita, i es produirà un error de desbordament de la pila.
Per exemple, al codi següent:
PUBLIC SUB ElMeuPortSerie_Read()
DIM sInformacio, sTemp AS String
DIM iIntents AS Integer
FOR iIntents = 1 TO 5
' esperar una mica i llegir la resposta.
WAIT 0.01
' agafar la informació.
READ #LAST, sTemp, Lof(LAST)
sInformacio&= sTemp
...
NEXT
END
WAIT es crida sense llegir res del port en sèrie. Així l'"event" Read() pot ser cridat una i altra vegada i acabar produint un error de desbordament de la pila.
Per aquest exemple, el problema es pot resoldre utilitzant la instrucció
SLEEP en comptes de
WAIT.
Vegeu també