SET TIMER

versión 6.5

SET TIMER (ticCont)

El comando SET TIMER le permite activar el evento de formulario On Timer y fijar, para el proceso actual, el número de tics entre cada evento de formulario On Timer.

Nota: Para mayor información sobre este nuevo evento de formulario, por favor consulte la descripción del comando Form event.

Si este comando se llama en un contexto en el que no muestra un formulario, no tendrá efecto.

Si pasa -1 en el parámetro tickCount, el comando activará el evento de formulario On Timer "tan pronto como sea posible", en otras palabras, tan pronto como la aplicación 4D tome el control del administrador de eventos. Este principio permite asegurar que un formulario se muestre completamente antes de iniciar un proceso (fluidez de la aplicación).

Servidor Web Nota: El servidor Web 4D puede aprovechar este comando como también el evento de formulario On Timer para reenviar formularios 4D. Esta característica le permite obtener páginas HTML actualizadas en "tiempo real" mientras ahorra ancho de banda. En realidad, en este caso la actualización de un formulario no es automática; usted debe llamar al comando REDRAW. Luego puede optimizar el sistema llamando REDRAW solamente cuando los datos hayan sido modificados.

Sólo los navegadores que interpretan JavaScript le permiten redibujar páginas automáticamente. El periodo de tiempo definido por SET TIMER será utilizado por el navegador y por el tiempo de espera del proceso Web. Los periodos de tiempo deben ser de unos pocos segundos (siendo 5 un valor práctico). Para mayor información, por favor consulte el segundo ejemplo.

Para desactivar por programación el disparador del evento de formulario On Timer, llame nuevamente a SET TIMER y pase 0 en ticCont.

1. Imaginemos que usted quiere, cuando un formulario aparece en pantalla, que el ordenador haga bip cada tres segundos. Para hacer esto, escriba el siguiente método de formulario:

   If (Form event=On Load)
      SET TIMER(60*3)
   End if 

   If (Form event=On Timer)
      BEEP
   End if

2. Imagine que quiere que su servidor Web actualice un formulario 4D que aparece en el navegador Web cada cinco segundos. Para hacer esto, escriba el siguiente método de formulario:

   If (Form event=On Load)
      SET TIMER(60*5)
   End if 

   If (Form event=On Timer)
      ...   `Puede poner acá un test para ver si los datos están siendo modificados y para  
         `ejecutar la siguiente línea sólo si los datos están siendo modificados. 
      REDRAW ([MiTabla])
   End if

Form event, REDRAW.