Ir ao conteúdo
  • Cadastre-se

DQUIRINO10

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

1
  1. Preciso de uma ajuda, sei bem pouco de VBA, mas estou tentando fazer um cronometro que faça contagem regressiva de um tempo predeterminado. Mas quando a contagem inicia (clicando no botão Iniciar) o formulário trava e não consigo acionar os outros botões (Parar, Reiniciar, Zerar). Alguém sabe o que está travando? Acho que é o “Application.Wait”, mas não consegui outra forma de dizer pra sub executar a cada 1 segundo. Segue o código (arquivo em anexo): Dim Tempo As Date Dim Rodando As Boolean Private Sub Iniciar_Click() Rodando = True Tempo = TimeValue("00:00:30") Label1.Caption = Tempo Call Regressiva End Sub Private Sub Parar_Click() Rodando = False Call Regressiva End Sub Private Sub Reiniciar_Click() Rodando = True Tempo = Tempo Call Regressiva End Sub Private Sub UserForm_Click() End Sub Private Sub Zerar_Click() Rodando = False Tempo = TimeValue("00:00:30") Label1.Caption = Tempo End Sub Sub Regressiva() If Rodando = True Then Do While Tempo > TimeValue("00:00:01") Application.Wait Now + TimeValue("00:00:01") Tempo = Tempo - TimeValue("00:00:01") Label1.Caption = Tempo Loop Else Tempo = Tempo End If End Sub teste.zip

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...