Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Ayuda con time Span

Visual Basic - Ayuda con time Span

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda con time Span

Publicado por Gianfranco (3 intervenciones) el 23/03/2013 14:22:47
Buenas a todos, paso a explicarme y siguiente la pregunta.
Estoy tratando de que al presionar un botón , su texto tome un valor de tiempo que yo le defino por ejemplo 5:00 minutos y que vaya bajando solo. ¿Alguien sabe como realizarlo?
Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con time Span

Publicado por Pedro Luis (57 intervenciones) el 23/03/2013 16:23:45
Necesitaras ademas del boton un Timer, cuyo intervalo pondras a 1000 (milisegundos)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Dim Tiempo As Date
 
Private Sub Boton_Click()
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
Tiempo = InputBox("Introduce tiempo hh:mm:ss", , "00:05:00")
Boton.Caption = Format(Tiempo, "hh:mm:ss")
End Sub
 
Private Sub Timer2_Timer()
Tiempo = Tiempo - 1 / 24 / 60 / 60
Boton.Caption = Format(Tiempo, "hh:mm:ss")
If Format(Tiempo, "hh:mm:ss") = "00:00:00" Then
End
End If
End Sub


Al tiempo le quito un segundo, como la variable es date al quitarle 1 le quito un dia, un dia tiene 24 horas, la hora 60 minutos y el minuto sesenta segundos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar