kapiaba Posted October 21, 2005 Report Share Posted October 21, 2005 Amigos, estou tentando usar o DEFINE TIMER oTimer em meu MENU PRINCIPAL, e não importa o VALOR que eu coloco, ele não respeita, em menos de um minuto já ativa o meu DESCANSO DE TELA... DAZZLE.EXE. Alguém sabe qual é a CLASSE ou FUNCÃO que controla o TIMER, para eu dar uma olhada, para ver se não tem nada ERRADO? Desde Ya... Muchas Gracias. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 21, 2005 Author Report Share Posted October 21, 2005 Amigos, estou tentando usar o DEFINE TIMER oTimer em meu MENU PRINCIPAL, e não importa o VALOR que eu coloco, ele não respeita, em menos de um minuto já ativa o meu DESCANSO DE TELA... DAZZLE.EXE. Alguém sabe qual é a CLASSE ou FUNCÃO que controla o TIMER, para eu dar uma olhada, para ver se não tem nada ERRADO? Desde Ya... Muchas Gracias. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 21, 2005 Author Report Share Posted October 21, 2005 Amigos, estou tentando usar o DEFINE TIMER oTimer em meu MENU PRINCIPAL, e não importa o VALOR que eu coloco, ele não respeita, em menos de um minuto já ativa o meu DESCANSO DE TELA... DAZZLE.EXE. Alguém sabe qual é a CLASSE ou FUNCÃO que controla o TIMER, para eu dar uma olhada, para ver se não tem nada ERRADO? Desde Ya... Muchas Gracias. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
Kleyton Posted October 21, 2005 Report Share Posted October 21, 2005 Já tentou o arquivo TIMER.PRG que está em SOURCE\CLASSES ? Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 21, 2005 Author Report Share Posted October 21, 2005 // Não Vai nem com reza brava... Não faço idéia... ke Dureza! #include "FiveWin.ch" static aTimers := {} static nId := 1 //----------------------------------------------------------------------------// CLASS TTimer DATA bAction DATA lActive DATA nId, nInterval DATA hWndOwner DATA Cargo METHOD New( nInterval, bAction, oWnd ) CONSTRUCTOR METHOD Activate() METHOD DeActivate() INLINE ::lActive := .f., KillTimer( ::hWndOwner, ::nId ) METHOD End() ENDCLASS //----------------------------------------------------------------------------// METHOD New( nInterval, bAction, oWnd ) CLASS TTimer DEFAULT nInterval := 18, bAction := { || nil } // Já Mudei nIterval Para 240000, e nada... O ke Pode Ser???? ::nInterval = nInterval ::bAction = bAction ::nId = nId++ ::lActive = .f. ::hWndOwner = If( oWnd != nil, oWnd:hWnd, GetActiveWindow() ) AAdd( aTimers, Self ) return Self //----------------------------------------------------------------------------// METHOD Activate() CLASS TTimer ::nId = SetTimer( ::hWndOwner, ::nId, ::nInterval, 0 ) ::lActive = .t. return nil //----------------------------------------------------------------------------// METHOD End() CLASS TTimer local nAt ::DeActivate() if ( nAt := AScan( aTimers, { | o | o == Self } ) ) != 0 ADel( aTimers, nAt ) ASize( aTimers, Len( aTimers ) - 1 ) endif return nil //----------------------------------------------------------------------------// function TimerEvent( nId ) local nTimer := AScan( aTimers, { | oTimer | oTimer:nId == nId } ) if nTimer != 0 .and. aTimers[ nTimer ]:lActive Eval( aTimers[ nTimer ]:bAction ) endif return 0 //----------------------------------------------------------------------------// TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
vagner Posted October 21, 2005 Report Share Posted October 21, 2005 Kapi, Tente fazer o seguinte : Define Timer oTimer .... (SuaVar), isso vai fazer ela usar o conteúdo da var Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 21, 2005 Author Report Share Posted October 21, 2005 Estou Fazendo Aassim Vagner: PUBLIC oTimerProtTela, nSegundos nSegundos := ( XTEMPO ) * 60000 // Para o INTERVAL IF XTPT # 999 DEFINE TIMER oTimerProtTela VAR nSegundos OF oWndMain ; ACTION( PROTECAO( oWndMain ) ) ACTIVATE TIMER oTimerProtTela ENDIF ASSIM VAGNER, FICA INSTATANEO... NAO DA NEM UM TEMPINHO. MISTERIOS! TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
aferra Posted October 21, 2005 Report Share Posted October 21, 2005 Tente Colocar no active da windows, pois assim só começa a contar a partir do momento que ativar a janela Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 21, 2005 Author Report Share Posted October 21, 2005 citação:Tente Colocar no active da windows, pois assim só começa a contar a partir do momento que ativar a janela Abraços Alessandro F. Silva - Ribeirão Preto/SP aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 MSN: ferracini_silva@hotmail.com id=quote>id=quote>Olá Alessandro... primeiro, Bem vindo ao Forum, segundo, é a primeira coisa que eu informo... Veja na postagem: MENU PRINCIPAL. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
Kleyton Posted October 22, 2005 Report Share Posted October 22, 2005 DEFINE TIMER oTimerProtTela VAR nSegundos OF oWndMain ; Interval nSegundos ACTION( PROTECAO( oWndMain ) ) Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 22, 2005 Author Report Share Posted October 22, 2005 citação:DEFINE TIMER oTimerProtTela VAR nSegundos OF oWndMain ; Interval nSegundos ACTION( PROTECAO( oWndMain ) ) Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br id=quote>id=quote>NADA KLEYTON. CONTINUA ESPERANDO 50 SEGUNDOS E ENTRA. É UM MISTÉRIO INDECIFRÃVEL. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
Valdir Posted October 22, 2005 Report Share Posted October 22, 2005 Fala Mestre Kapi... Para contornar um problema similar que encontrei no meu sistema, criei uma variável Publica com valor inicial .F. e ao iniciar cada módulo do sistema, valorizo-a para .T., retornando o seu valor para .F. no final da rotina, validando assim o objeto oTimer. Sempre que o tempo de ativação é completado, o activate timer valida através desta variável. Talvez seja uma saÃda para contornar o seu problema... um abraço Valdir - Jundiaà - S.P. FW23/CLIP52E/BLINKER7 Prestigiem o III Encontro de Usuários de Fivewin Acesse http://www.installsis.com.br/encontro e faça a sua Inscrição... Eu já fiz a minha e Você ??? Editado por - valdir on 22/10/2005 10:36:26 Editado por - valdir on 22/10/2005 10:37:34 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 22, 2005 Author Report Share Posted October 22, 2005 citação:Fala Mestre Kapi... Para contornar um problema similar que encontrei no meu sistema, criei uma variável Publica com valor inicial .F. e ao iniciar cada módulo do sistema, valorizo-a para .T., retornando o seu valor para .F. no final da rotina, validando assim o objeto oTimer. Sempre que o tempo de ativação é completado, o activate timer valida através desta variável. Talvez seja uma saÃda para contornar o seu problema... um abraço Valdir - Jundiaà - S.P. FW23/CLIP52E/BLINKER7 Prestigiem o III Encontro de Usuários de Fivewin Acesse http://www.installsis.com.br/encontro e faça a sua Inscrição... Eu já fiz a minha e Você ??? id=quote>id=quote>NÃO AMORE MIO... POIS, EU Jà ENTRO NOS MODULOS, COM O OTIMER:DEACTIVATE() E NA SAIDA DO ACTIVATE DIALOG, EU VOLTO COM O OTIMER:ACTIVATE() -> NÃO PRECISO DE FLAG. O MEU PROBLEMA NÃO É NOS MODULOS E SIM NA JANELA PRINCIPAL. PARA VOCE ENTENDER: EU TENHO UMA VARIAVEL NO BANCO DE DADOS EX: XTEMPO, O USUARIO INFORMA, QUE O DESCANSO DE TELA DAZZLE.EXE (DICAS mais dicas) DEVE DEMORAR +- 10 MINUTOS PARA ENTRAR EM AÇÃO... O QUE ESTà OCORRENDO, É QUE O DEFINE TIMER oTimer, NÃO RESPEITA ESTE TEMPO DE JEITO NENHUM, CONTA 50 SECS E Jà ACIONA O DAZZLE.EXE( Alias, Lindo este descanso de tela). MESMO QUE EU INFORME NO INTERVAL QUE O NUMERO É 850000, ELE PASSA BATIDO, IGNORANDO O INTERVAL. Jà CHEQUEI TODO O MODULO PRINCIPAL, E NÃO ACHEI NADA QUE PUDESSE INTERFERIR NO ACTIVATE TIMER oTimer. KAPISKOU??? Abraços Rei de Jundiai. TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU. Bad Boy - São Paulo. kmt_karinha@pop.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Editado por - kapiaba on 22/10/2005 10:52:56 Quote Link to comment Share on other sites More sharing options...
vagner Posted October 22, 2005 Report Share Posted October 22, 2005 Tente assim : citação:Estou Fazendo Aassim Vagner: PUBLIC oTimerProtTela, nSegundos nSegundos := XTEMPO * 60000 // Para o INTERVAL IF XTPT # 999 DEFINE TIMER oTimerProtTela INTERVAL (nSegundos) OF oWndMain ; ACTION( PROTECAO( oWndMain ) ) ACTIVATE TIMER oTimerProtTela ENDIF id=quote>id=quote>Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.