Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Rota de um arquivo

15/12/2016, 22:28 por Martins

Agradeço ajuda para o seguinte:
como guardar numa variável, um caminho ou rota,por exemplo


Comentários: 3

Estatísticas
Temos 6985 usuários registrados
O último usuário registrado atende pelo nome de Handerson Mildroz

Os nossos membros postaram um total de 17164 mensagens em 2588 assuntos

Criando TIMERS para processar Scripts

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo Criando TIMERS para processar Scripts

Mensagem por Marcos Guedes em 19/9/2009, 09:36

Segue uma ótima rotina criada e disponibilizada pelo colega Grupo FOX Brasil:
Código:
*!* Exemplos de como utilizá-la
timer_create_process('messagebox("Chamado via Timer1")')
timer_create_process('messagebox("Chamado via Timer2")')
timer_create_process('messagebox("Chamado via Timer3")')
teste()

FUNCTION timer_create_process
   LPARAMETER lc_comando

   IF VARTYPE(lc_comando) <> 'C'
      lc_comando = [messagebox('Insert here your script')]
   ENDIF

   LOCAL lc_timer
   lc_timer = SYS(2015)

   _SCREEN.ADDOBJECT(lc_timer,'Timer_Create_Process')
   _SCREEN.&lc_timer..exec_script = lc_comando
   _SCREEN.&lc_timer..ENABLED = .T.

   RETURN(lc_timer)
ENDFUNC
*----------------------------------------------------------
DEFINE CLASS timer_create_process AS TIMER

   INTERVAL = 1
   ENABLED = .F.
   
   exec_script = ''
   
   *----------------------------------------------------------
   
   PROCEDURE TIMER
      THIS.INTERVAL = 0
      THIS.ENABLED = .F.

      EXECSCRIPT(THIS.exec_script)
      * Removing this used object from _Screen
      _SCREEN.REMOVEOBJECT(THIS.NAME)
   ENDPROC
ENDDEFINE

* Diversos Exemplos e suas causas...
PROCEDURE teste
   LOCAL ln_process

   CREATE CURSOR PROCESS (PROCESS N(5), LOOP N(5) , dtime T(8))

   * Ten Process - Screen output does not show all

   FOR ln_process = 1 TO 10
      ?? timer_create_process('for x = 1 to 10'+CHR(13)+'INKEY(0.05)'+CHR(13)+'_SCREEN.PRINT("'+ STR(ln_process,2) +'")'+CHR(13)+'endfor'+CHR(13))
   ENDFOR

   * A Hundred Pending Process inserting records at Process Cursor

   FOR ln_process = 1 TO 100

      LOCAL lc_command

      lc_command = [for x = 1 to 10]+CHR(13)

      lc_command = lc_command + [insert into process (process, loop, dtime) VALUES (]+ STR(ln_process,5) +[,x,datetime())]+CHR(13)

      lc_command = lc_command + [endfor]

      ?? timer_create_process(lc_command)

   ENDFOR

   * Ten MODAL FORMS called at same time (each per time - does not stop)

   FOR ln_process = 1 TO 10
      ?? timer_create_process('messagebox("Um comando qualquer")') && Modal Form
   ENDFOR

   INPUTBOX('This will Hang All TIMERS - VFP only runs one PRG each time.')
ENDPROC

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum