hacer referencia a un cronometro

datetime
23 de Agosto del 2004
Necesito ayuda de alguno de ustedes... Quiero hacer referencia a un cronometro, qu cuando tenga X minutos me parpadee la pantalla o se dipare un mensaje....
gracias anticipadas

sgomez
23 de Agosto del 2004
Si estás en un formulario tenés que agregar el control timer y en la propiedad Interval ponés (en milisegundos) en que momento querés que se ejecuté el codigo que se encuentra en el metodo Timer Event. Por ejemplo si tenés un textbox y querés que en el mismo se muestre la hora actualizada todo el tiempo, ponés 1000 en la propiedad interval, como está en milisegundos le estás diciendo que cada un segundo ejecute el codigo del metodo timer event. Y en este ultimo ponés: thisform.text1.value=datetime()

Si no estás utilizando un formulario tenés que crear el objeto. En este ejemplo, cada 1 segundo te muestra la fecha y hora actualizada:

mireloj=createobject("Reloj")
read events

DEFINE CLASS Reloj AS timer
interval = 1000
enabled=.T.
PROCEDURE Timer
wait window (alltrim(padl(datetime(),254," "))) nowait
ENDDEFINE