Reaktionszeit


Elektronik-Labor  Notizen  Projekte  Labortagebuch  Elexs-USB




Reaktion.exe starten

Messen Sie Ihre Reaktionszeit mit dem PC. Das Programm REAKTION schaltet nach zufälligen Wartezeiten eine LED ein. Sie müssen dann so schnell wie möglich den angeschlossenen Tastschalter drücken. Die Reaktionszeit wird gemessen. Typische Werte liegen bei 200 Millisekunden (200 ms = 0,2 s).

 


  


Das VB-Programm startet die Messung jeweils nach einer zufällig gewählten Zeit. Falls der Anwender die Taste noch gedrückt hält verzögert sich die Ausgabe des Startsignals. 

Private Sub Timer1_Timer()
  While DCD() = 0
    DoEvents
  Wend
  RTS 1
  TIMEINIT
  While (DCD() = 1) And (TIMEREAD() < 2001)
    Text2.Text = Str$(Int(TIMEREAD())) + " ms"
    DoEvents
  Wend
  RTS 0
  Timer1.Interval = 1500 + Rnd * 2000
End Sub

zurück
zur Startseite