CONTADOR DECRESCENTE

RALECO 02/01/2010 17:15:02
#330880
Boa tarde, estou tentando fazer um contador com o objeto timer de 30 segundos decrescente 30 ,29 ,28 ......1.e que essa contagem apareça em uma label e depois de terminada a contagem será executada a função , alguem conhece ou tem algum modelo de codigo.

Obrigado.
Raleco
JWCELYO 02/01/2010 18:26:19
#330883 Resposta escolhida 


Dim tempoconta As Integer
Private Sub Command1_Click()
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
tempoconta = tempoconta + 1
 Label1.Caption = Replace(tempoconta - 30, [Ô]-[Ô], [Ô][Ô])
 If Label1.Caption = 0 Then
 MsgBox ([Ô]Seu tempo se acabou!!![Ô])
 Timer2.Enabled = False
 End If
 
End Sub
RALECO 02/01/2010 23:19:13
#330919
Testei esta rotina porem não deu certo, pois acho que esta faltando algum detalhe .....
Abraço
JWCELYO 02/01/2010 23:38:41
#330927
pegue o exemplo funcionado belezinha
Tópico encerrado , respostas não são mais permitidas
Voltar