Page 1 of 1
Timer recalcitrante.
Posted: Tue Jan 22, 2008 7:35 pm
by antolin
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
Todo parece bien.....
Posted: Tue Jan 22, 2008 9:39 pm
by Ramon Paredes
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
Posted: Tue Jan 22, 2008 10:26 pm
by carlos vargas
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
Posted: Tue Jan 22, 2008 10:28 pm
by Antonio Linares
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
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( ... )
Posted: Tue Jan 22, 2008 10:29 pm
by Willi Quintana
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....
Posted: Thu Jan 24, 2008 10:12 am
by antolin
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.
Posted: Thu Jan 24, 2008 2:26 pm
by Willi Quintana
Prueba con el ejemplo que te puse arriba, funciona con un DIALOG....
Salu2