Executando uma Rotina de 5 em 5 Minutos.

Delphi

20/02/2004

Boa Noite a Todos,

Pessoal, mais uma vez venho pedir ajuda a vcs...
Bom Gostaria de saber como eu faço para que uma rotina seja executada a cada 5 em 5 minutos... :wink:
Ex:

em 5 em 5 minutos faca
inicio
..comando
fim.

Desde ja Obrigado.


Spooner

Spooner

Curtidas 0

Respostas

Beppe

Beppe

20/02/2004

Coloca um TTimer(aba System), sete a prop Interval para 300(5 * 60), e coloque seu código no evento OnTimer.


GOSTEI 0
Adilsond

Adilsond

20/02/2004

Coloque um componente timer da aba system com um intervalo de 5 minutos e em seu evento faça:

procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
try
Comandos....
finally
Timer1.Enabled := True;
end;
end;

Por default o Interval do Timer vem com 1000 = 1 segundo


GOSTEI 0
Dan.sm

Dan.sm

20/02/2004

Só uma correção na msg do Beppe:
O valor 300 é em segundos e, portanto, deve ser multiplicado por 1000 porque a propriedade Interval é em milisegundos.



GOSTEI 0
Beppe

Beppe

20/02/2004

Só uma correção na msg do Beppe: O valor 300 é em segundos e, portanto, deve ser multiplicado por 1000 porque a propriedade Interval é em milisegundos.


Como ousa me corrigir? :evil:

Brincadeira, é verdade msm...Então fica 5´ * 60´´ * 1000, faz a conta que agora não to com cabeça pra isso. 8)


GOSTEI 0
Jasig Aurumalfa

Jasig Aurumalfa

20/02/2004

Bem, ficaria 300000 milissegundos...
Sugestão:
Para facilitar as coisas, use uma notação científica:
3 multiplicado a 10 elevado a 5º potência...
Espero ter ajudado...


GOSTEI 0
Spooner

Spooner

20/02/2004

Obrigado a Todos que Postaram afim...de me ajudar...
Valew Beppe
:wink:


GOSTEI 0
POSTAR