Cronometro em Text ...
 
Notifications
Clear all

Cronometro em Text Box

10 Posts
2 Usuários
0 Reactions
3,539 Visualizações
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

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

 
Postado : 09/10/2012 7:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja um exemplo em...
http://www.sendspace.com/file/4j51t9

Att

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

 
Postado : 09/10/2012 7:35 pm
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

Amigosconsegui colocar o cronometro mais qd muda a hora do sistema ele para, ou seja fika travado segue abaixo codigo usado:

Const IntervaloSegundos = 1 'cada segundo '1min seria 1*60 seg etc
Dim cronom As Double
Dim paused As Boolean 'pausado true false
Dim upCron As Double ' segundos cronometro crescente

Private Sub cmdEnd_Click()
paused = True
End Sub

Sub startCron()
paused = False
Call doCronometro
End Sub

Private Sub cmdReset_Click() 'reiniciar cronometro
upCron = 0
lbUpCron.Caption = "00:00:00" 'zero zero...
End Sub

Private Sub cmdStart_Click()
If cmdStart.Caption = "Iniciar" Then
cmdStart.Caption = "Parar"
Call startCron 'iniciar cronometro
Else
paused = True
cmdStart.Caption = "Iniciar"
End If

End Sub

Public Function doCronometro()
upCron = upCron + 1 'incrmentar num segundo cron

lbUpCron.Caption = Format(DateAdd("s", upCron, "00:00:000"), "hh:mm:ss")

Call clock 'continuar sempre
End Function

Private Sub clock()
Dim S As Integer
If paused = False Then
S = Second(Now)
Do
DoEvents
Loop Until (Second(Now) - S) >= IntervaloSegundos

Call doCronometro
End If

End Sub

Alguem teria como dar uma ajuda ????
Agradeço a atenção de todos

 
Postado : 13/10/2012 7:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

E quanto ao meu modelo????

Att

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

 
Postado : 13/10/2012 7:52 pm
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

Boa Noite Alexandre !!!!
Seu modelo foi muito útil para mim, mais não estou conseguindo trabalhar com ele, peço desculpas pois sou novo em VB peguei um modelo de um antigo que tinha por aki e dei uma modificada, no seu modelo quando zera o tempo ele trava, se vc tiver mais algum modelo vai me ajudar muito, pois sua ajuda esta sendo especial para que eu possa terminar este projeto.
Abração

 
Postado : 13/10/2012 8:28 pm
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

Alexandre
Segue modelo que te falei
se vc puder me ajudar agradeço ao amigo
Abraços
Leandro

Por favor, leia as regras!!!!
Os arquivos devem ser compctado!!!
Seu arquivo foi excluído!!!

Nossas Regras
viewtopic.php?f=7&t=203

 
Postado : 13/10/2012 8:33 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Faça os teste, caso não seja isso por favor, seja mais claro!

http://www.sendspace.com/file/wekn2l

Att

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

 
Postado : 14/10/2012 7:13 am
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

Ola Alexandre !!!
Primeiramente gostaria de lhe agradecer mais uma vez pela paciência e pelo tempo doado para a solução do problema.
Fiz o teste com o cronometro que me mandou, e conforme esta na planilha quando muda a hora do computador o cronometro para. Se conseguir resolver este problema ficara perfeito e resolvido o meu problema.
Abraços
Leandro

 
Postado : 14/10/2012 8:24 pm
(@leandroribas)
Posts: 22
Eminent Member
Topic starter
 

Ola Alexandre !!!
Primeiramente gostaria de lhe agradecer mais uma vez pela paciência e pelo tempo doado para a solução do problema.
Fiz o teste com o cronometro que me mandou, e conforme esta na planilha quando muda a hora do computador o cronometro para. Se conseguir resolver este problema ficara perfeito e resolvido o meu problema.
Abraços
Leandro

 
Postado : 16/10/2012 9:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Segue um exemplo que "peguei" na net (não lembro onde), pode ser que consigam utilizar

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

 
Postado : 17/10/2012 6:06 am