PROBLEMA COM HORA

USUARIO.EXCLUIDOS 11/06/2007 13:37:55
#220687
Beleza galera???
é o seguinte:

tenho um form (main) que em um 2 texbox são carregados a data e hora do servidor na rede. No texbox que recebe a data tudo bem, só que o que carrega a hora vem com a hora do servidor só que fica estática, eu queria que depois que fosse carregada a hora , daí ficasse sintonizada com a hora do servidor.

Valeu....
USUARIO.EXCLUIDOS 11/06/2007 13:52:30
#220688 Resposta escolhida
Para fazer isto vc pode acrescentar um objeto (Timer), veja o exemplo: 

Private Sub tmrDuracaoChamada_Timer()
    Dim Tempo As Date
    txtHora.text = Format(Tempo, "HH:MM:SS")       
End Sub


Obs.: Na propriedade interval do objeto Timer coloque 1000 (equivale a 1 segundo).
SILVERDRAGON 11/06/2007 13:54:08
#220689
Adiciona um Timer

dentro do evento dele coloca assim

Private Sub Timer1_Timer()
Me.Label1 = Time
End Sub



e no interval dele coloca 1000
USUARIO.EXCLUIDOS 11/06/2007 13:58:21
#220690
Edilson, só + um detalhe: Ao inves de usar TextBox use o Label, se não o sistema vai ficar mandando o foco para o txtHora e travará.

ficaria assim: Label.Caption = Format(Tempo, "HH:MM:SS")

PS: Coloque o comando DoEvents depois do Label.
USUARIO.EXCLUIDOS 11/06/2007 14:57:21
#220706
Mais ai neste caso o label estará com a hora atual (time).

O que eu quero não é isso.
Vejão só o exemplo:

Máq. Servidora Máq. Cliente

Hora Local= 13:20 Hora Local= 13:40

Na máquina cliente chamarei um form que me trará a hora do servidor(13:20), dai então queria que esta data ficasse sintonizada com o servidor.Se eu colocar um time , a hora ficará a do cliente.

Valeu...........
USUARIO.EXCLUIDOS 11/06/2007 16:10:18
#220720
VC quer que a Máquina do cliente fica com a mesma hora que o servidor está? Ou seja, a maq. cliente não deve usar a hora local e sim a hora que estiver no servidor? Se a resposta for SIM então poste qual banco de dados vc está usando.
USUARIO.EXCLUIDOS 11/06/2007 16:14:00
#220722
Edilson, vc baixou o zip do projeto que atualiza o horário ele ja faz isso pra vc !?

Tudo bem que em seu caso talvez seja necessário utilizar TextBox mas o usuário teria que ficar digitando "/" nas datas ":" Nos horários

Utiliza pelo menos um MasckedEdit intaum e não se esqueça que além deste inconveniente ao user VC teria que ficar trabalhando com partes de string pois a data viria toda como texto destes controles e vc ia ter que ficar axando Dia-Mes-Ano no código VB ... com ctz não será a forma mais conveniente nem para vc e nem para o user trabalhar !!

Para usar dtPicker ou MasckedEditBox, basta adicionar um destes controles no seu projeto e mandar brasa.

Veja um caso prático: o próprio Windows utilize dtpPicker como no projeto do outro tópico -- clique 2 vezes no relógio da barra de tarefas e confira ...

http://www.vbmania.com.br/vbmania/vbmforum.php?varMethod=Abrir&varID=220504&varSubPagina=2&varWorld=1
USUARIO.EXCLUIDOS 11/06/2007 16:15:32
#220724
blz colega

ao invés de colocar me.Labe1 = Time, use o DateAdd pra adicionar 1 segundo no valor q está no label.
USUARIO.EXCLUIDOS 11/06/2007 16:25:31
#220731
Emerson_Tadeu, valeu cara estou utilizando teu exemplo, só quen não é só isso não carra. Lê o conteúdo acima e entenderá...

Valeu....
USUARIO.EXCLUIDOS 11/06/2007 16:30:38
#220732
Pois então Edilson, o código fica sincronizando .... basta vc seguir o mesmo esquema e substituir o dtpicker por um textbox ou label

O exemplo do FRAU é perfeito, ponto pra ele !
USUARIO.EXCLUIDOS 11/06/2007 16:47:05
#220739
Deixe eu explicar melhor
vc faz algo do tipo:

[c]Private Sub Form_Load()
Label1 = Hora_Servidor

End Sub

[/c]

faz o seguinte:

[c]Private Sub Form_Load()
Dim Sincr_Hora_Servidor as Date

Sincr_Hora_Servidor = Hora_Servidor

End Sub


Private Sub Timer1.Timer()
Sincr_Hora_Servidor = DateAdd("s",1,Sincr_Hora_Servidor)
Labe1 = Sincr_Hora_Servidor

End Sub


[/c]

ou quase isso.. :D
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar