SINCRONIZAR RELOGIO COM APLICACAO

PROGRAMADORVB6 07/06/2012 16:59:34
#403731
Olá boa tarde.
O código em baixo , indica no formulário a hora e os minutos em um formato : 24 h 00 m ; o mesmo busca a hora no relógio do computador sempre que esta muda.
O problema é que os minutos mudam, e a hora regride para menos uma Hora.(estranho)
Alguém já se deparou com este problema?
Como soube ultrapassa-lo?
 Imports System
Imports System.Runtime.InteropServices

Public Class Form1
    Public Structure SYSTEMTIME
        Public wYear As UInt16
        Public wMonth As UInt16
        Public wDayOfWeek As UInt16
        Public wDay As UInt16
        Public wHour As UInt16
        Public wMinute As UInt16
        Public wSecond As UInt16
        Public wMilliseconds As UInt16
    End Structure

    Declare Function GetSystemTime Lib [Ô]Kernel32.dll[Ô] (ByRef lpSystemTime As SYSTEMTIME) As UInt32


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim st As New SYSTEMTIME

        GetSystemTime(st)

        Me.Mostra_Tempo.Enabled = True [ô] Activa o Timer
        Me.X_Horas.Text = st.wHour.ToString() & [Ô] h : [Ô] & st.wMinute.ToString() & [Ô] m[Ô]

    End Sub

    Private Sub Mostra_Tempo_Tick(sender As System.Object, e As System.EventArgs) Handles Mostra_Tempo.Tick
        Dim st As New SYSTEMTIME

        GetSystemTime(st)

        Me.X_Horas.Text = st.wHour.ToString() & [Ô] h : [Ô] & st.wMinute.ToString() & [Ô] m[Ô]

    End Sub

End Class


Grato desde já pela vossa atenção
Atentamente.
Programadorvb6
ALTAIR148 07/06/2012 17:33:26
#403734 Resposta escolhida
Boa noite,

Para pegar a hora do computador basta colocar o codigo abaixo em um timer

Ex:

label1.text = format(Date.now, [Ô]HH:mm:ss[Ô])


Simples assim.
Tópico encerrado , respostas não são mais permitidas
Voltar