MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Ajuda com código Cronômetro do mestre João Paulo.

    Compartilhe

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    Ajuda com código Cronômetro do mestre João Paulo.

    Mensagem  mathusalmeida em Ter 13 Out 2015, 17:51

    olá a todos do fórum

    estou usando o código de Cronômetro do mestre João Paulo, vejam:

    Código:
    Option Compare Database
    Option Explicit

    Dim TotalElapsedTime As Long
    Dim StartTime As Long
    Private Declare Function GetTickCount Lib "kernel32" () As Long


    Private Sub cmdTimer_Click()
        Me.lblElapsed.Visible = True
        If Me.TimerInterval = 0 Then
            StartTime = GetTickCount()
            Me.TimerInterval = 10
            Me!cmdTimer.Caption = "Stop"
            Me!cmdReset.Enabled = False
        Else
            TotalElapsedTime = TotalElapsedTime + (GetTickCount() - StartTime)
            Me.TimerInterval = 0
            Me!cmdTimer.Caption = "Start"
            Me!cmdReset.Enabled = True
        End If
    End Sub

    Private Sub Form_Current()
    DoCmd.Restore
    End Sub

    Private Sub Form_Timer()
        Dim Hours As String
        Dim Minutes As String
        Dim Seconds As String
        Dim MilliSec As String
        Dim Msg As String
        Dim ElapsedMilliSec As Long

        ElapsedMilliSec = (GetTickCount() - StartTime) + TotalElapsedTime

        Hours = Format((ElapsedMilliSec \ 3600000), "00")
        Minutes = Format((ElapsedMilliSec \ 60000) Mod 60, "00")
        Seconds = Format((ElapsedMilliSec \ 1000) Mod 60, "00")
        MilliSec = Format((ElapsedMilliSec Mod 1000) \ 10, "00")
        
        Me!lblElapsed.Caption = Hours & ":" & Minutes & ":" & Seconds & ""
       ':" & MilliSec

       ' Me!lblElapsed.Caption = Hours & ":" & Minutes & ":" & Seconds & ":" & MilliSec

    End Sub

    Private Sub cmdReset_Click()
        TotalElapsedTime = 0
        Me!lblElapsed.Caption = "00:00:00:00"
        Me!lblElapsed.Visible = False
    End Sub

    O código é acionado por um botão de comando (cmdTimer).

    Até aí tudo bem.

    A questão é que desejo ter mais de uma label rodando o cronômetro, que serão ativados em tempos diferentes.

    Gostaria de criar uma função publica para cada botão de comando.

    Se eu tiver 5 botões de comandos, deverá rodar 5 cronometros diferentes.

    No aguardo

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    Re: Ajuda com código Cronômetro do mestre João Paulo.

    Mensagem  mathusalmeida em Qui 15 Out 2015, 13:31

    up

      Data/hora atual: Ter 06 Dez 2016, 05:45