CONTAGEM REGRESSIVA

FERATK 02/08/2010 13:50:29
#349146
pessoal é o seguinte quero fazer um cronometro regressivo do tipo que diminua a cada segunto
ou seja eu quero criar uma label com o text = 30
e quero que a cada segundo diminua um do text dessa label.
Como eu fasso isso. obrigado.
TECLA 02/08/2010 13:52:35
#349147
Você já programa em VB.NET? VB6?
FERATK 02/08/2010 13:55:42
#349148
na verdade estou aprendendo a escrever em vb.net pois saber mesmo eu não sei nenhum. xD
Mas o aplicativo esta sendo criado em vb.net
JONATHANSTECKER 02/08/2010 14:12:52
#349149

Segue em anexo...
TECLA 02/08/2010 14:13:09
#349150
OK.

1. Adicione um TIMER no FORM com a propriedade INTERVAL = 1000 e ENABLED = TRUE
2. Copie os códigos abaixo e cole no VIEW CODE do FORM

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = FormatDateTime(DateAdd(DateInterval.Second, -1, DateTime.Parse(TextBox1.Text)), DateFormat.LongTime)
End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = FormatDateTime(Now, DateFormat.LongTime)
End Sub
FERATK 02/08/2010 15:40:57
#349175
Tecla, esta quase perfeito mas só tem um probleminha. Eu quero que o cronometro pare quando a label.text = 0 ou seja não fique com valor negativo.
Obrigado.
FERATK 02/08/2010 15:49:30
#349177
E outro problema é que eu gostaria que quando o contador chegar a 0 deslique o aplicação.
JONATHANSTECKER 02/08/2010 16:13:46
#349186
Citação:

Tecla, esta quase perfeito mas só tem um probleminha. Eu quero que o cronometro pare quando a label.text = 0 ou seja não fique com valor negativo.
Obrigado.



Citação:

E outro problema é que eu gostaria que quando o contador chegar a 0 deslique o aplicação.




Para isto basta por uma condição no ínicio Timer:

If Label.Text = [Ô]0[Ô] Then Application.Exit()
FERATK 03/08/2010 15:04:09
#349294
Citação:

:
Tecla, esta quase perfeito mas só tem um probleminha. Eu quero que o cronometro pare quando a label.text = 0 ou seja não fique com valor negativo.
Obrigado.

E outro problema é que eu gostaria que quando o contador chegar a 0 deslique o aplicação.


Para isto basta por uma condição no ínicio Timer:

If Label.Text = [Ô]0[Ô] Then Application.Exit()



Este codigo eu insiro aonde?
Pois eu criei este código e inseri este no label e nada aconteceu.:

If TextBox1.Text = [Ô][Ô] Or TextBox2.Text = [Ô][Ô] And Label5.Text = [Ô]0[Ô] Then
End
ElseIf TextBox1.Text <> [Ô][Ô] Or TextBox2.Text <> [Ô][Ô] Then
Label4.Text = [Ô][Ô] And Label5.Text = [Ô][Ô] And Label6.Text = [Ô][Ô]
End If
JONATHANSTECKER 03/08/2010 15:20:15
#349296 Resposta escolhida
Citação:

Para isto basta por uma condição no [txt-color=#e80000]ínicio Timer[/txt-color]:



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label.Text = [Ô]0[Ô] Then Application.Exit()
Label.Text = FormatDateTime(DateAdd(DateInterval.Second, -1, DateTime.Parse(Label.Text)), DateFormat.LongTime)
End Sub

E também, veja esse tópico aqui do fórum.
COMO EXIBIR UM CRONOMETRO NUM LABEL NO VB.NET
Tópico encerrado , respostas não são mais permitidas
Voltar