topic-9718

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Timer recalcitrante.
Posted: Tue Jan 22, 2008 07:35 PM

Ultimamente me están ocurriendo las cosas las más raras.

Tengo esto:

DEFINE DIALOG oDlg ....
DEFINE TIMER oTmr INTERVAL 10000 ACTION MiFuncion(...) OF oDlg
...
...
ACTIVATE DIALOG oDlg ... ON INIT oTmr:Activate()
...

FUNCTION MiFuncion( ... )
...

Y no me funciona el TIMER ¿Cómo puede ser?

Compruebo oTmr:nInterval y está correcto
Compruebo oTmr:lActive y está en .T.
No me da error al compilar
Pero no me entra en la función. ¿Tendrá algo que ver con aTimers y nId?

¿Donde está el fallo? que no lo veo.

Tengo FWH 2.7 de enero 2007 con xHarbour

Gracias de antemano

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

Ramon Paredes

Posts: 215

Joined: Fri Feb 02, 2007 03:38 PM

Todo parece bien.....
Posted: Tue Jan 22, 2008 09:39 PM

Hola antolin,

A simple vista todo parece bien pero en la linea donde tienes DEFINE TIMER debria ser REDEFINE TIMER yque es un ID dentro del dialogo

Saludes desde Managua, Nicaragua

Ramon Paredes

... Desde la Tierra de lagos y Volcanes......

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Timer recalcitrante.
Posted: Tue Jan 22, 2008 10:26 PM

Si mal no recuero hay una limitante en cuanto a los milisegundos, verifica el rango de este valor. por lo demas lo que muestra esta correctamente implementado con el define.

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Timer recalcitrante.
Posted: Tue Jan 22, 2008 10:28 PM

Antolin,

Cuando se crea un timer hay que darle una ventana ó un diálogo que tengan un handle de ventana válido. Tal como lo has programado, cuando le pasas oDlg, oDlg aún no tiene su handle creado.

Has de hacerlo así:

Code: Select all Collapse

DEFINE DIALOG oDlg .... 
... 
ACTIVATE DIALOG oDlg ... ON INIT CreaElTimer( oDlg ) 
... 

function CreaElTimer( oDlg ) // Aqui oDlg SI tiene un handle válido

DEFINE TIMER oTmr INTERVAL 10000 ACTION MiFuncion(...) OF oDlg 

oTmr:Activate()

return nil

FUNCTION MiFuncion( ... )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Timer recalcitrante.
Posted: Tue Jan 22, 2008 10:29 PM

Hola amigos,,,,
Si pusieras el TIMER en una WINDOW, funcionaria a mil porhora, pero como lo pones en un DIALOG, pues naca la pirinaca, no funciona,, asi que visto el tema, lo resolvi de la siguiente manera:

Function Main()
local ......... bla bla bla bla bla bla

DEFINE DIALOG oDlg ;
RESOURCE "ALARMA" TITLE "Alarma V1.0"

eAccion := {|| MiFuncion(....) }
DEFINE TIMER tCarga OF oDlg INTERVAL 5000 ACTION EVAL(eAccion)
ACTIVATE TIMER tCarga
...
...
...

oDlg:bStart:= { || Timer( tcarga, eAccion, oDlg ) }
...
ACTIVATE DIALOG oDlg ON INIT (tCarga:ACTIVATE()) CENTER
...
.....

Salu2..

PD. funciona, pero e parece que hay algo demas....

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Timer recalcitrante.
Posted: Thu Jan 24, 2008 10:12 AM

Gracias. Creo que el problema está en que no utilizo Window como ventana principal, porque era un programita muy simple y usé un dialogo como principal. Y porque en FW a 16 bits no tenía ese problema.

Muchas Gracias a todos por laprompta respuesta.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Timer recalcitrante.
Posted: Thu Jan 24, 2008 02:26 PM

Prueba con el ejemplo que te puse arriba, funciona con un DIALOG....
Salu2

FiveTech Support Forums

Continue the discussion