REPETIR TAREFA

AMELORP 20/08/2009 15:45:09
#320445
Gostaria de repetir um bloco de comandos a cada tempo determinado. Exemplo..a cada 5 minutos atualizar os dados do meu formulário que contem dados. como eu faria?
ALEXLUGON 20/08/2009 15:50:13
#320446
Utilize o componente timer
TECLA 20/08/2009 15:50:47
#320447
Utilize um controle TIMER com uma rotina para contar o tempo.

Option Explicit
Dim bMinuto As Byte


Private Sub Form_Load()
bMinuto = 0
Timer1.Interval = 60000
End Sub


Private Sub Timer1_Timer()
bMinuto = bMinuto + 1
If bMinuto >= 5 Then
    [ô]Executa a rotina e seta bMinuto com zero
    Call Rotina
    bMinuto = 0
End If
End Sub
AMELORP 20/08/2009 15:51:08
#320448
Citação:

ALEXLUGON escreveu:
Utilize o componente timer



poderia me dar um exemplo?
TECLA 20/08/2009 15:53:18
#320449
Citação:

AMELORP escreveu:
ALEXLUGON escreveu:
Utilize o componente timer

poderia me dar um exemplo?



Segue um exemplo no post acima.
AMELORP 20/08/2009 15:57:01
#320452
era isso mesmo: Deus te abençôe mais e mais...obrigado!


Citação:

TECLA escreveu:
Utilize um controle TIMER com uma rotina para contar o tempo.

Option Explicit
Dim bMinuto As Byte


Private Sub Form_Load()
bMinuto = 0
Timer1.Interval = 60000
End Sub


Private Sub Timer1_Timer()
bMinuto = bMinuto + 1
If bMinuto >= 5 Then
    [ô]Executa a rotina e seta bMinuto com zero
    Call Rotina
    bMinuto = 0
End If
End Sub
TECLA 20/08/2009 16:24:24
#320454 Resposta escolhida
Valeu, irmão.
Só não esquece de encerrar o tópico.

Até mais!
Tópico encerrado , respostas não são mais permitidas
Voltar