Ayuda con timer en Visual Basic
Necesito crear un programa que cuando se presione la barra espaciadora me inicie un cronómetro, y cada vez que se pulse la misma barra espaciadora, vaya registrando el tiempo en que se pulsó la tecla, y al final, me presente todos los tiempos pulsados.
Hola,
te paso el código.
Necesitas un formulario con:
- Un listbox llamado List1
- 2 label llamadas Label1 y Label2
- Un control timer llamado Timer1
Option Explicit
Dim bCorriendo As Boolean
Dim dblTiempo As Double
Private Sub Form_Load()
bCorriendo = False
dblTiempo = 0
End Sub
Private Sub List1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
If bCorriendo Then
bCorriendo = False
Timer1.Interval = 0
List1.AddItem dblTiempo & " segundos"
Label1.Caption = "Pulsa la barra espaciadora para empezar........"
Label2.Caption = ""
Else
bCorriendo = True
dblTiempo = 0
Timer1.Interval = 1000
Label1.Caption = "Pulsa la barra espaciadora para detener el contador...."
Label2.Caption = ""
End If
End If
End Sub
Private Sub Timer1_Timer()
dblTiempo = dblTiempo + 1
Label2.Caption = dblTiempo
End Sub
Para que funcione pulsando la barra espaciadora, deberás tener el cursor del ratón sobre el ListBox, ya que es éste el que recupera el evento de pulsar la barra espaciadora.
Espero que te sirva
salu2
sdemingo
te paso el código.
Necesitas un formulario con:
- Un listbox llamado List1
- 2 label llamadas Label1 y Label2
- Un control timer llamado Timer1
Option Explicit
Dim bCorriendo As Boolean
Dim dblTiempo As Double
Private Sub Form_Load()
bCorriendo = False
dblTiempo = 0
End Sub
Private Sub List1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
If bCorriendo Then
bCorriendo = False
Timer1.Interval = 0
List1.AddItem dblTiempo & " segundos"
Label1.Caption = "Pulsa la barra espaciadora para empezar........"
Label2.Caption = ""
Else
bCorriendo = True
dblTiempo = 0
Timer1.Interval = 1000
Label1.Caption = "Pulsa la barra espaciadora para detener el contador...."
Label2.Caption = ""
End If
End If
End Sub
Private Sub Timer1_Timer()
dblTiempo = dblTiempo + 1
Label2.Caption = dblTiempo
End Sub
Para que funcione pulsando la barra espaciadora, deberás tener el cursor del ratón sobre el ListBox, ya que es éste el que recupera el evento de pulsar la barra espaciadora.
Espero que te sirva
salu2
sdemingo