Ayuda con timer en Visual Basic

Laura
07 de Abril del 2004
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.

sdemingo
07 de Abril del 2004
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

guau
07 de Abril del 2004
guau sdemingo te felicito yo de lo vago q soy....