Pues eso, que no recuerdo como detener el flujo del programa 'n' segundos.
Muchas gracias,
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
Board index FiveWin para Harbour/xHarbour Detener el flujo del programa 'n' segundos
inkey( n )
______________________________________________________________________________
Sevilla - Andalucía
Sevilla - Andalucía
xmanuel wrote:inkey( n )
Gracias Manu,
Ciertamente me valdrá porque no espero hacer nada, pero sé que había otra función que aunque detenía el flujo del programa, permitía que el sistema continuará con los eventos (por decirlo de alguna manera).
... estaba buscando mientras escribía ... creo que era HB_IDLESLEEP(1) !!!
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
Carlos -> SysWait( <n> )
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
La funcion es original de alguien, de los tiempos de DOS, se llamaba sleep o similar, pero lleva modificaciones.
Vale para consola o fwh. La atencion a eventos es opcional, pasandole el parametro lSysRefresh
Funciona con un tiempo inicial.
Tiene una subcondicion, ademas del tiempo transcurrido, que permite salir antes de caducar el bucle.
Vale para consola o fwh. La atencion a eventos es opcional, pasandole el parametro lSysRefresh
Funciona con un tiempo inicial.
Tiene una subcondicion, ademas del tiempo transcurrido, que permite salir antes de caducar el bucle.
#Define IsFw() .t.
FUNCTION MiSleep( nSeconds, nInitial, lSysRefresh,;
bCondicionSalida;
)
IF nInitial == NIL .OR. VALTYPE( nInitial ) != "N"
nInitial := SECONDS()
ENDIF
if lSysRefresh == NIL
lSysRefresh = IsFw()
endif
// correct for running at midnight
IF nInitial + nSeconds > 86399
nInitial -= 86399
* Wait until midnight
DO WHILE SECONDS() > 100 // no problem with a _very_ slow machine
ENDDO
ENDIF
// calculate final time
nSeconds += ninitial
// Loop until we are done
DO WHILE ( SECONDS() < nSeconds )
IF lSysRefresh
SysRefresh()
ENDIF
*
IF bCondicionSalida != NIL .AND. Eval(bCondicionSalida)
EXIT
ENDIF
ENDDO
RETURN NIL