USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Timer
Omar
não registrado
Postada em 12/02/2006 18:50 hs   
Se alguém tiver um rotina onde usa o timer na qual e executada uma
mensagem a cada hora exata para fazer o Backup do banco de dados.
     
REGINA
não registrado
Postada em 12/02/2006 23:37 hs   
Deve haver  outra maneira, mas eu usaria esse código

na propriedade Interval do Timer=1000

Private Sub Timer1_Timer()
Dim AGORA As Date
Dim MINUTOS As String
Dim SEGUNDOS As String


AGORA = Format(Time, "HH:MM:SS")

MINUTOS = Mid(AGORA, 4, 2)
SEGUNDOS = Mid(AGORA, 7, 2)

If MINUTOS = "00" And SEGUNDOS = "00" Then
MsgBox "Sua mensagem"
End If

End Sub
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 13/02/2006 07:36 hs            
Coloca um Timer com Intervalo de 1 segundo em algum form...
 
No evento Timer do Timer faz o seguinte:
 
Private Sub Timer1_Timer()
    Static c As Integer
    c = c + 1
   
    If c = 3600 Then
        MsgBox "Sua Mensagem"
        c = 0
    End If
End Sub
 
Isso resolve...
Flw!


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

TÓPICO EDITADO
   
Donkey
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
Postada em 13/02/2006 08:47 hs            
A muito... muito tempo atras.... rs
 
Não, não é star wars....  AHAUAHaUha
 
A uns anos atras eu fiz um sisteminha bem simples de backup do banco access para um outro terminal de hora em hora, disponibilizei na seção projetos... de uma olhadinha...  T+
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página