topic-13479

Posts: 199

Joined: Fri Apr 18, 2008 04:21 PM

TIMER
Posted: Fri Nov 07, 2008 08:50 PM

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

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

TIMER
Posted: Fri Nov 07, 2008 11:19 PM

Julio:

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

Cambia el valor en tu ejemplo.

Code: Select all Collapse

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

TIMER
Posted: Sat Nov 08, 2008 02:04 AM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

TIMER
Posted: Sat Nov 08, 2008 06:40 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

TIMER
Posted: Sat Nov 08, 2008 08:00 AM

1000 milliseconds = 1 second

1 Second = 1000 MilliSeconds

Anser

jponce

Posts: 199

Joined: Fri Apr 18, 2008 04:21 PM

TIMER
Posted: Mon Nov 10, 2008 02:40 PM

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

Willi Quintana wrote: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

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

TIMER
Posted: Mon Nov 10, 2008 03:25 PM

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

ON INIT (ACTIVATE oTmr)

Salu2

jponce

Posts: 199

Joined: Fri Apr 18, 2008 04:21 PM

TIMER
Posted: Mon Nov 10, 2008 07:17 PM

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

Willi Quintana wrote:SI estas en un dialogo, debes activar el timer en el INIT;

ON INIT (ACTIVATE oTmr)

Salu2

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

TIMER
Posted: Mon Nov 10, 2008 07:38 PM

Code: Select all Collapse

#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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jponce

Posts: 199

Joined: Fri Apr 18, 2008 04:21 PM

TIMER
Posted: Mon Nov 10, 2008 08:00 PM

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

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

Willi Quintana wrote:SI estas en un dialogo, debes activar el timer en el INIT;

ON INIT (ACTIVATE oTmr)

Salu2

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

TIMER
Posted: Mon Nov 10, 2008 08:03 PM

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

NOWAIT????

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jponce

Posts: 199

Joined: Fri Apr 18, 2008 04:21 PM

TIMER
Posted: Mon Nov 10, 2008 08:08 PM

TIENES RAZON SIN EL NOWAIT FUNCIONÓ MUCHAS GRACIAS.

karinha wrote:ACTIVATE DIALOG oWndFact01 NOWAIT ?????????

NOWAIT????

jponce

Posts: 199

Joined: Fri Apr 18, 2008 04:21 PM

TIMER
Posted: Mon Nov 10, 2008 08:19 PM

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

karinha wrote:ACTIVATE DIALOG oWndFact01 NOWAIT ?????????

NOWAIT????

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

TIMER
Posted: Tue Nov 11, 2008 11:39 AM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion