Notifications
Clear all

Ajuste Cronometro

5 Posts
2 Usuários
0 Reactions
1,108 Visualizações
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

Amigos estou com dificuldades para ajustar a parte final deste cronometro em anexo, elé é regressivo e gostaria que quando o mesmo chegasse a 00:00:00 o mesmo travesse e desse uma mensagem de final de tempo no mesmo.
Contando com a ajuda dos amigos
Agradeço.

 
Postado : 17/05/2013 6:02 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Leandro, troque a Public Function doCronometro do formulário pela a abaixo, e veja se é isto :

Public Function doCronometro()
    upCron = upCron - 1 'incrmentar num segundo cron
    LbUpCron.Caption = Format(DateAdd("s", upCron, ComboBox1.Value), "hh:mm:ss")

    If LbUpCron.Caption = "00:00:00" Then
        MsgBox "Seu tempo expirou !!!"
        
        Call cmdEnd_Click 'Para o Cronometro
        Call cmdReset_Click 'Resseta o Cronometro
    
    End If

    Call clock 'continuar sempre

End Function

[]

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/05/2013 6:40 am
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

RESOLVIDISSIMO !!!!!!!!!!!!!!!!!!!!!

Leandro, troque a Public Function doCronometro do formulário pela a abaixo, e veja se é isto :

Public Function doCronometro()
    upCron = upCron - 1 'incrmentar num segundo cron
    LbUpCron.Caption = Format(DateAdd("s", upCron, ComboBox1.Value), "hh:mm:ss")

    If LbUpCron.Caption = "00:00:00" Then
        MsgBox "Seu tempo expirou !!!"
        
        Call cmdEnd_Click 'Para o Cronometro
        Call cmdReset_Click 'Resseta o Cronometro
    
    End If

    Call clock 'continuar sempre

End Function

[]

 
Postado : 17/05/2013 7:28 am
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

Mauro, primeiramente obrigado pela solução do problema do cronometro, sem querer abusar tem como eu travar estes botões EX: Clicar em Iniciar e ele congelar somente ficar habilitado o Parar e vice versa pois evitara da pessoa clicar mais de uma vez em cima do comando.
Mais uma vez obrigado pela atenção
Leandro :D

 
Postado : 17/05/2013 10:40 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Leandro, para Habilitar e Desabilitar os botões utilizamos a propriedade "Enabled" sendo : False = Desabilita e True = Habilita.

A única questão antes de Habilitar e Desabilitar os Botões é verificar a sequência correta, pois ao Clicar em Iniciar, desabilitamos o Botão e Habitamos o Parar, e ao Clicar em Parar, desabilitamos ele e Habilitamos o Iniciar, acredito que não é esta lógica que quer, uma vez que a pessoa apos Parar poderá clicar novamente em Iniciar, então dependendo de como irá utilizar o resultado após as ações acredito que o correto é se clicar em PARAR os Iniciar tambem ficar desabilitado e só habilita-lo apos clicar no Botão Reset, pense nisto.

Quanto as opções é só ajustar conforme abaixo :
Para o Botão Iniciar
CmdStart.Enabled = False 'Desabilita
CmdStart.Enabled = True 'Habilita

Botão Parar :
CmdEnd.Enabled = False
CmdEnd.Enabled = True

Botão Reset :
cmdReset.Enabled = False
cmdReset.Enabled = True

O correto é colocar a chamada para Desabilitar logo no Inicio da rotina, antes de dar sequencia da rotina.

Faça os testes e qq duvida retorne.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/05/2013 5:42 pm