FiveTech Software tech support forums

Gracias Willy, ya había probado tu solución y me fallaba porque me faltaba pasar oTmr como @oTmr
asi me funciona perfecto. Gracias!!!

José: Probé tu sugerencia y no me funciona. no me muestra en ningún caso el detalle.
MUCHAS GRACIAS por tu tiempo.

José Camilo

... y no va. asi me quedo el codigo en discordia Function Materiales() local ...... DEFINE DIALOG oDlgMa RESOURCE "Material" DEFINE TIMER oTmr INTERVAL 50 ACTION (Fnct_Blinker(@oVeoRamo),oVeoRamo:Refresh()) REDEFINE GET oCodigo VAR nCodigo PICTURE "9999" ID Ma_Codigo OF oDlgMa ...

... .and. (oRamo:Refresh(),oVeoRamo:Refresh(),.t.) REDEFINE SAY oVeoRamo VAR cVeoRamo PICTURE "@K!" ID Ma_VeoRamo OF oDlgMa DEFINE TIMER oTmr INTERVAL 50 ACTION (Fnct_Blinker(@oVeoRamo),oVeoRamo:Refresh()) pasando el objeto porque no es publico sin tocar la funcion Fnct_Blinker y tampoco ...

... 0 ), oDlg:nWidth := GetSysMetrics( 0 ), oDlg:nHeight := GetSysMetrics( 1 ), BuildTimer( oDlg, obrow )) function BuildTimer( oDlg, wobrow ) local oTmr DEFINE TIMER oTmr OF oDlg ; ACTION busco(wobrow) INTERVAL 10000 ACTIVATE TIMER oTmr return nil De esta manera funciono perfecto.

... DEFINE WINDOW oWnd FROM 1, 1 TO 10, 30 ; TITLE "Finder 1.0" ; COLOR "B/W" ICON oIco NOMAXIMIZE DEFINE TIMER oTmr INTERVAL 2000 ACTION CheckSls(oLbx,oPrn) OF oWnd ACTIVATE TIMER oTmr DEFINE MESSAGE OF oWnd PROMPT "" NOINSET CENTERED KEYBOARD DATE ...

Hi ,

You can look at TIMER

DEFINE TIMER oTmr INTERVAL 6000 ACTION (oLbx:Refresh()) OF oWnd
ACTIVATE TIMER oTmr

... Thanks, but it doesn't fix all case. If there is 2nd process coming during 1st process that doesn't finish. Dutch, I use a timer . DEFINE TIMER oTmr INTERVAL 6000 ACTION (BytesAtPort( nComm),oLbx:Refresh()) OF oWnd ACTIVATE TIMER oTmr function BytesAtPort( nComm, nStatus ) local cBuffer:=space(18) ...

Dutch, I use a timer . DEFINE TIMER oTmr INTERVAL 6000 ACTION (BytesAtPort( nComm),oLbx:Refresh()) OF oWnd ACTIVATE TIMER oTmr function BytesAtPort( nComm, nStatus ) local cBuffer:=space(18) ReadComm( nComm, @cBuffer ) select RAWPOIDS append ...

My update system runs every 3 hours. In Windows, I use this to control the intervals without a lot of CPU demand: DEFINE TIMER oTmr INTERVAL 900000 OF oWnd ; ACTION IF( ElapTime( cStart, Time()) >= "03:00:00", RunUpdater(), ) ACTIVATE TIMER oTmr Defining a timer requires ...

... SET MESSAGE OF oWnd ; TO "Dossier Hémato 2013-10 ~ (DMI.EXE 27~10~2013) "+FWVERSION ; CENTERED DATE KEYBOARD 2007 DEFINE TIMER oTmr INTERVAL 10000 ACTION CheckT() OF oWnd ACTIVATE TIMER oTmr ACTIVATE WINDOW oWnd MAXIMIZED * * === procedure CheckT(pr) LOCAL hWnd,wjacfo,vdxx static ...

... nCom = -1 END SEQUENCE RETURN (FONTE2) Exemplo de código adaptado para poder funcionar corretamente: #include "FiveWin.ch" static oWnd, oTmr, nCom //----------------------------------------------------------------------------// function Main() DEFINE WINDOW oWnd TITLE "Serial Test" ...

...                   3089 OTARGET                WINDOW.PRG      740  1873  1884  1886  1891 OTEMP                  WINDOW.PRG     3592  3607  3636 OTMR                    WINDOW.PRG      173  3564  3565  3566  3576  3577  3578  3685  3686  3687

I modify on New method
IF ::lBlink
DEFINE TIMER ::oTmr INTERVAL ::nInterval ACTION ::Blink() OF self
ACTIVATE TIMER ::oTmr
ENDIF

but not run also

the procedure not activate the time and not change the colors of Leds

... method if ! Empty( ::oWnd:hWnd ) ::Create() ::Default() ::oWnd:AddControl( Self ) else ::oWnd:DefControl( Self ) endif IF ::lBlink DEFINE TIMER ::oTmr INTERVAL ::nInterval ACTION ::Blink() OF self Endif on Paint method at the init I Insert IF ::lBlink IF !::oTmr=NIL ::lStatus:=.t. ::oTmr:Activate() ...

#include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oTmr, oSay, oFnt DEFINE FONT oFnt NAME "Advanced Dot Digital-7" SIZE 0, -30 DEFINE WINDOW oWnd TITLE "Prueba" @ 2, 2 SAY oSay PROMPT ...