CRONOMETRO CONTAGEM REGRESSIVA

JUNHO 04/08/2012 16:47:10
#407204
Alguem poderia me ajudar com um Placar que estou fazendo.

O meu problema é :

Criei 2 Label com 00:00 sendo um label os minutos e outro os Segundos .

Criei duas caixas para adicionar ou tirar tempo nos minutos e outros 2 para os segundos.

Um botão para inicio e outro para resetar.

coloquei um timer. porem não sei programar para o numero que eu definir o tempo ir regredindo.

Alguem poderia me ajudar?

Segue imagem para melhor visualização
FILMAN 04/08/2012 19:36:53
#407208
verifica se isso aqui ajuda
JUNHO 04/08/2012 20:34:28
#407209
FILMAN

Porem um problema. é que está hora e minutos eu estou tentando colocar minuto x segundo.

Por se tratar de placar de competição de artes marciais

teria como me ajudar a padronizar ?

Porem deste já muito grato pela ajuda. o pensamento foi esse mesmo


OMAR2011 04/08/2012 21:27:33
#407210
Olha isto e adapta ao seu projeto.

http://www.vbweb.com.br/dicas_visual.asp?Codigo=970&Classificacao=6
JUNHO 04/08/2012 21:33:09
#407211
OMAR2011

Obrigado da dica, o FILMAN está me ajudando e bolou um exemplo 10 ai to trabalhado em cima dele.

Pois só preciso dar uns ajuste

Mais mesmo assim obrigado novamente e de pessoas assim que engrandece esse forum

FILMAN 05/08/2012 19:44:52
#407221
Então Cara esta retornando uma Data porque vc esta convertendo para uma data dai é só formatar para hora

If Cdate(Label1.Caption) < Cdate([Ô]00:00:00[Ô]) Then
Label1.Caption = [Ô]00:00:00[Ô]
End If


Senão for isso posta ai.

Agora Quanto a questão se colocar um som da sim existe varios exemplos aqui no site de colocar som no projeto ai é só adaptar! no IF acima.
quando entrar no IF zera o Label e Toca o Som.

JUNHO 06/08/2012 20:35:39
#407331
Deu Certo sim vlw mesmo FILMAN. se não imagina meu desespero esperando sua resposta kkkkkk ansiedade mata

Olha como ficou o Codigo

Private Sub Timer3_Timer()
If CDate(Label20.Caption) < CDate([Ô]00:00:00[Ô]) Then Timer3.Enabled = False
Label20.Caption = DateAdd([Ô]s[Ô], -1, CDate(Label20.Caption))

If CDate(Label20.Caption) < CDate([Ô]00:00:00[Ô]) Then
Timer3.Enabled = False
Command22.Caption = [Ô]Iniciar[Ô]
Label20.Caption = [Ô]Fim De Luta [Ô]
End If



End Sub

Valeu pela ajuda mesmo

Abração
FILMAN 06/08/2012 21:06:52
#407332
Resposta escolhida
Ok que bom que te ajudou

Se a duvida foi esclarecida encerre o tópico


senão poste ai que vamos tentar ajudar!
Tópico encerrado , respostas não são mais permitidas