TIMER

[jponce]

HOLA A TODOS

Yo ejecuto el siguiente codigo lo que no se si es cada 10 minutos o 10 segudos como puedo hacer para que este timer me funcione y ejecute una funcion cada 5 segundos.

DEFINE TIMER oTmr OF oWndFact01 INTERVAL 10 ACTION MsgInfo("hola")
ACTIVATE TIMER oTmr

Atentamente
Julio Rodrigo Ponce Hinestroza
www.suproye.com o www.suproye.net
SUPROYE

[Armando]

Julio:

Si no recuerdo mal el valor del INTERVAL se debe dar en segundos.

Cambia el valor en tu ejemplo.

Code: Select all  Expand view  RUN

DEFINE TIMER oTmr OF oWndFact01 INTERVAL  5 ACTION MsgInfo("hola")
ACTIVATE TIMER oTmr


Saludos

[Willi Quintana]

Holas,,
DEFINE TIMER oBorra OF oWnd INTERVAL 10000 ACTION BorraDatos(oBorra, oDatos, @aDatos)

aqui, BorraDatos(oBorra, oDatos, @aDatos) se ejecuta cada 10 segundos,,, el INTERVAL del TIMER se trabaja en milesimas de segundo....


Salu2

[Antonio Linares]

El tiempo, establecido por Microsoft, se especifica en milisegundos.

[anserkk]

1000 milliseconds = 1 second

1 Second = 1000 MilliSeconds

Anser

[jponce]

ya lo hago asi pero no ejecuta nada en 10 segundos.
que puedo estar haciendo mal
DEFINE TIMER oTmr OF oWndFact01 INTERVAL 10000 ACTION MsgInfo("hola")
ACTIVATE TIMER oTmr

Holas,,
DEFINE TIMER oBorra OF oWnd INTERVAL 10000 ACTION BorraDatos(oBorra, oDatos, @aDatos)

aqui, BorraDatos(oBorra, oDatos, @aDatos) se ejecuta cada 10 segundos,,, el INTERVAL del TIMER se trabaja en milesimas de segundo....


Salu2

[Willi Quintana]

SI estas en un dialogo, debes activar el timer en el INIT;

ON INIT (ACTIVATE oTmr)

Salu2

[jponce]

ya lo hice de esta forma pero me da error al compilar no se que estoy haciendo mal?

SI estas en un dialogo, debes activar el timer en el INIT;

ON INIT (ACTIVATE oTmr)

Salu2

[karinha]

Code: Select all  Expand view  RUN

#Include "FiveWin.Ch"

STATIC oTimer, oWnd

FUNCTION....


    ACTIVATE DIALOG oDlg CENTERED                                        ;
             ON INIT( ACIONA_TIMER( xTPS, DbVendedor, oWnd, oDlg, aGet ) )

    oTimer:End()

RETURN NIL

STATIC FUNCTION ACIONA_TIMER( xTPS, DbVendedor, oWnd, oDlg, aGet )


    DEFINE TIMER oTimer INTERVAL 500 OF oDlg                         ;
           ACTION LER_PORTA( xTPS, DbVendedor, oWnd, oDlg, aGet )

    ACTIVATE TIMER oTimer

RETURN NIL
//
STATIC FUNCTION LER_PORTA( xTPS, DbVendedor, oWnd, oDlg, aGet )
//
//
RETURN NIL


Saludos.

[jponce]

de esta forma lo estoy haciendo y no me funciona

ACTIVATE DIALOG oWndFact01 NOWAIT CENTER RESIZE16;
VALID ( oWndFact01 := NIL, .T. ) ;
ON INIT ( SetParent( oWndFact01:hWnd, oWnd:hWnd ),;
AccionaTimer(oWndFact01),;
llenarLLnReen( oLbx, oWndFact01, oPreccos, Agets, aTot ) )

oTimer:End()

else


oWndFact01:SetFocus()

endif

RETURN NIL

////
Function AccionaTimer(oDlg)


DEFINE TIMER oTimer INTERVAL 1000 OF oDlg ;
ACTION MsgInfo("hola")

ACTIVATE TIMER oTimer

RETURN NIL

ya lo hice de esta forma pero me da error al compilar no se que estoy haciendo mal?

SI estas en un dialogo, debes activar el timer en el INIT;

ON INIT (ACTIVATE oTmr)

Salu2

[karinha]

ACTIVATE DIALOG oWndFact01 NOWAIT ?????????

NOWAIT????

[jponce]

TIENES RAZON SIN EL NOWAIT FUNCIONÓ MUCHAS GRACIAS.

ACTIVATE DIALOG oWndFact01 NOWAIT ?????????

NOWAIT????

[jponce]

Hice el timer como tu pusiste en el ejemplo. pero ahora no me deja hacer nada el dialogo, si hace el refresh que quiero que haga pero si quiero utilizar cualquier boton con el mouse me da error solo responde con la tecla tab.

Que podria estar pasando?

Muchas Gracias

ACTIVATE DIALOG oWndFact01 NOWAIT ?????????

NOWAIT????

[karinha]

Jponce, todas las veces que no va usar el TIMER, tienes que deshabilitalo.

oTimer:DeActivate()

Cuando necesitas:

oTimer:Activate()

Lembrate que la VARIABLE oTimer tiene que ser STATIC.

Mira los ejemplos del \samples.

Saludos.