Detener el flujo del programa 'n' segundos

[FiveWiDi]

Pues eso, que no recuerdo como detener el flujo del programa 'n' segundos.

Muchas gracias,

[xmanuel]

inkey( n )

[FiveWiDi]

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) !!!

[Carles]

Carlos -> SysWait( <n> )

[hmpaquito]

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.

Code: Select all  Expand view

#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