| Pericles |  |
|
2005-01-03 00:12 - Respuestas: 5 - Tema nº: 25374
Gracias ebolo, eso es lo que necesitaba, ya le acomode en mi codigo, pero hay un pequeño problema, lo que quiero es que retroceda un tiempo que le pongo y no la hora. Le estuve buscando la forma pero no pude; le cambio en el text1.text el Time por otros formatos pero no considera, por ejemplo para que retroceda 15 minutos le pongo "15:00" y considera el retroceso de las 3 de la tarde y si le pongo "00:15:00" lo toma como " 12:15:00 a.m.". Ojala me entiendas, porfis, ayudame con eso. | |
|
|
| ebolo |  |
|
Re: Cuenta regresiva en VB 6 - 2005-01-05 18:01 - Respuesta 2
Hola Pericles, lo que debes hacer es dar fomato al text1.text como HH:mm:ss
Quote:
Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
If Text1.Text = Text1.Tag Then Exit Sub
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Caption = "FORMATO HH:MM:SS"
Text1.Text = "00:00:00"
Text1.Tag = Text1.Text
End Sub
Private Sub Timer1_Timer()
Text1.Text = DateAdd("s", -1, Text1.Text)
End Sub
Siguiendo el ejemplo del otro día mira esto.
Lo más sencillo es lo que te he puesto se podría hacer mucho más bonito, como por ejemplo que al escribir te fuera poniendo los : cuando le toque,...
El que te tome el 00:15:00 como 12:15:00 puede ser un problema de la configuración regional del pc.
A mí me lo hace bien.
Saludos y suerte.
[ Este mensaje fué editado por: ebolo el 05-01-2005 a las 18:01] | |
|
|
| Pericles | |
|
Re: Cuenta regresiva en VB 6 - 2005-01-14 16:57 - Respuesta 3
ebolo, ojala aún entres por aquí; te queria decir que el codigo que me distes funciona chevere, pero sabes cual es el problema, cuando lo confronto con el reloj de la maquina, la cuenta regresiva siempre se atrasa de 26 segundos a mas, es decir, por ejemplo pongo 2 minutos que se cuente, y los dos comienzan igual, ojo con con eso, pero cuando se cumple los 2' en el reloj, la cuenta regresiva aun le falta que transcurra unos segundos mas. Ese es mi lio por ahora, no se si a ti te ocurre igual, y por favor trata de responderme para saber que opinas. | |
|
|
| ebolo | |
|
Re: Cuenta regresiva en VB 6 - 2005-01-16 22:53 - Respuesta 4
Hola, en este link te dejo un pequeño ejemplo:
http://perso.wanadoo.es/ebolo/Cuenta atrás.rar
En un principio se retrasaba un segundo cuando lo tenía varios minutos y siempre 1 segundo, pero ahora ya no.
Pruebalo tú y dime que te hace.
Saludos.
| |
|
|
|
