SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Angel38 en Sábado 12 de Agosto de 2006, 16:57

Título: Mostrar Una Secuencia Regresiva.
Publicado por: Angel38 en Sábado 12 de Agosto de 2006, 16:57

Hola amigos, pues primera vez que me toca hacer esto, voy a investigarlo pero aprovechando que estoy por aca :P


Quisiera mostrar en mi form un timer con cuenta regresiva de 10 segundos.

Gracias. :hola:

Título: Re: Mostrar Una Secuencia Regresiva.
Publicado por: ArKaNtOs en Domingo 13 de Agosto de 2006, 01:41

????????????????? y que quieres hacer ???????????????? no se entiende

el timer con solo ponerle 1000 ya te da un segundo y para que vaya en cuenta regresiva porque no pones algo asi:

Dim x As Byte

Private Sub Timer1_Timer()
If x = 10 Then
    MsgBox "fin"
    Timer1.Enabled = False
    Exit Sub
End If
Me.Print 10 - x
x = x + 1
End Sub

Título: Re: Mostrar Una Secuencia Regresiva.
Publicado por: Angel38 en Domingo 13 de Agosto de 2006, 21:21

Excelente idea. Gracias.

Título: Re: Mostrar Una Secuencia Regresiva.
Publicado por: robbie110487 en Lunes 14 de Agosto de 2006, 00:14

O algo asi se me hace mucho mas facil, mira agrega un label y un timer, y cambia la propiedad de interval de ltimer a 1000

Código: Text

1. Dim x As Byte
2. Private Sub Form_Load()
3.     x = 10
4. End Sub
5. Private Sub Timer1_Timer()
6.     If x = 0 Then Exit Sub
7.     Label1.Caption = x
8.     x = x - 1
9. End Sub
10.  

Saludos

Título: Re: Mostrar Una Secuencia Regresiva.
Publicado por: Angel38 en Lunes 14 de Agosto de 2006, 20:04

Gracias Robbie, probaré a ver como me va. :P

Título: Re: Mostrar Una Secuencia Regresiva.
Publicado por: ArKaNtOs en Lunes 14 de Agosto de 2006, 22:28

Citar

O algo asi se me hace mucho mas facil, mira agrega un label y un timer, y cambia la propiedad de interval de ltimer a 1000

Es Exactamente lo mismo solo que no inserte un label para hacerlo mas rapido :P