Visual Basic - control de tiempo

Life is soft - evento anual de software empresarial
 
Vista:

control de tiempo

Publicado por oscar (1 intervención) el 12/10/2007 19:25:28
Hola..necesito la programacion para lo sgte: Al accionar un COMANDBUTTON activar un timer que a su vez cambie un label o caja de texto, es para control de cyber y segun el tiempo varia la cantidad de pago. 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

RE:control de tiempo

Publicado por Natalia Camino (46 intervenciones) el 13/10/2007 18:20:02
Mira con este ejemplo:
En el Form coloca dos CommandButtom (cmdIniciarContador y cmdFinalizarContador) y dos Labels (Label1 y Label2) y por supuesto, un control Timer (Timer1)

En la sección de declaraciones del Form (al principio) pones estas instruciones:

Option Explicit

Private Tiempo As String
Private Minutos As String

En el evento Click del botón iniciar contador:

Private Sub cmdIniciarContador_Click()
Tiempo = 0
Minutos = 0
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

En el evento Timer del control Timer:

Private Sub Timer1_Timer()
Tiempo = Tiempo + 1
If Tiempo = 60 Then
Tiempo = 0
Minutos = Minutos + 1
End If
Label1.Caption = "00:" & Format(Minutos, "00") & ":" & Format(Tiempo, "00") 'Format(Tiempo, "hh:MM:ss")
Label1.Refresh
End Sub

Y en el evento Click del botón finalizar contador:

Private Sub cmdFinalizarContador_Click()
Dim aVector() As String
Timer1.Enabled = False
aVector = Split(Label1.Caption, ":")
Label2.Caption = "Tiempo transcurrido: " & _
aVector(1) & " minuto(s) y " & aVector(2) & " segundos."
End Sub
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