CRONOMETRO TEXT BOX OU LABEL

LEANDRORIBAS 17/10/2012 00:29:03
#412179
Caros Expert's, Boa Noite !!!!!
Estou criando um user form que além dos dados que já coloquei gostaria de inserir dentro do mesmo um textbox ou label com cronometro e três botões (Iniciar, Pausar e resetar) com o tempo em minutos.
Pra ficar perfeito gostaria de inserir o tempo que gostaria de cronometrar (Ex 2 min, 3 Min, 4 Min ....) e o tempo contar como um cronometro regressivo.
Desde já agradeço a atenção de todos da comunidade.
Leandro
PROGRAMADORVB6 17/10/2012 04:31:24
#412180
Olá deixo aqui um exemplo , depois é só você modificar á sua medida.

- No seu formulário adicione :
Um Label (Label1)
Um CommandButton (btnIniciar)
Um Timer (Timer1)

Código :


Option Explicit

Dim ss As Integer, mm As Integer, hh As Integer

Private Sub btnIniciar_Click()
If btnIniciar.Caption = [Ô]Iniciar Cronômetro[Ô] Then
    ss = 0: mm = 0: hh = 0
    Timer1.Enabled = True
    btnIniciar.Caption = [Ô]Para Cronômetro[Ô]
Else
    Timer1.Enabled = False
    btnIniciar.Caption = [Ô]Iniciar Cronômetro[Ô]
End If
End Sub

Private Sub Timer1_Timer()
[ô] Propriedades Timer Enabled = False,  Interval = 1000
ss = ss + 1
If ss = 60 Then
    ss = 0
    mm = mm + 1
End If
If mm = 60 Then
    ss = 0
    mm = 0
    hh = hh + 1
End If
Label1.Caption = Format(hh, [Ô]00[Ô]) & [Ô]:[Ô] & Format(mm, [Ô]00[Ô]) & [Ô]:[Ô] & Format(ss, [Ô]00[Ô])


Até+
Programadorvb6
LEANDRORIBAS 17/10/2012 22:56:14
#412226
Caro Programador, Boa Noite !!!!
Primeiramente obrigado pela resposta e atenção.
Sou iniciante em VB e estou fazendo este projeto dentro do editor VB do Excel, não sei como colocar um time.
Teria como enviar um exemplo para que eu possa colocar dentro de um label do editor VB do Excel
Obrigado mais uma vez !!!
Leandro
IRENKO 18/10/2012 07:52:06
#412234
No VBA não existe o objeto Timer. Existem varias maneiras de faze-lo em VBA, segue um exemplo.
LEANDRORIBAS 18/10/2012 23:11:03
#412324
Resolvido !!!!!!
Obrigado IRENKO e a todos os envolvidos pela paciência !!!!!
Abraços
Leandro
LEANDRORIBAS 29/10/2012 05:47:32
#413030
Caros amigos
Contando com a ajuda de nosso amigo Irenko gostaria de usar o exemplo enviado pelo mesmo para montar um cronometro regressivo com os seguintes tempos:
2min
3min
4min
5 min
6 min
7 min
8 min
10 min
Gostaria de acresentar um botão para subir ou descer estes tempos para iniciar a contagem regressiva
Abraços aos expert[ô]s
Leando
Tópico encerrado , respostas não são mais permitidas
Voltar