| Reaktionstest mit ROBO TX und VB 2008 ConsoleEinfache Beispiele zum Einstieg in VB 2008 .NET
Programm ReaktionEins, der einfachste Fall : Imports System.EnvironmentImports FishFaceTX Module ReaktionEins Dim tx As New Sub Main() Dim Taste As Dim StartZeit As Dim ReaktionsZeit As Dim ReaktionGesamt As Dim Zuf As New tx.OpenController("COM4") Console.WriteLine("Spiel gestartet") ReaktionGesamt = 0 For i As Integer = 1 To Taste = Zuf.Next(1, 5) Console.WriteLine("Taste : {0:0} drücken", Taste) StartZeit = TickCount tx.WaitForLow(Taste - 1) ReaktionsZeit = TickCount - StartZeit Console.WriteLine("Aktuelle Reaktionszeit : {0:0}", ReaktionsZeit) ReaktionGesamt += ReaktionsZeit Next Console.WriteLine("Gesamtzeit : {0:0} MilliSekunden", ReaktionGesamt) tx.CloseController() Console.ReadLine() End Sub End Module Anmerkungen : Program ReaktionZwei : Sub Main()Dim Taste As Integer .... Dim Zuf As New Dim tx = New FishFace() tx.OpenController("COM4") Console.WriteLine("Spiel gestartet") ReaktionGesamt = 0 tx.Pause(1234) For i As Integer = 1 To Taste = Zuf.Next(1, 5) Lampe = Taste * 2 - 1 tx.SetLamp(CType(CInt StartZeit = TickCount tx.WaitForLow(Taste - 1) tx.SetLamp(CType(CInt ReaktionsZeit = TickCount - StartZeit Console.WriteLine("Aktuelle Reaktionszeit : {0:0}", ReaktionsZeit) ReaktionGesamt += ReaktionsZeit tx.Pause(Zuf.Next(1, 2222)) Next For i As Integer = 1 To 7 Step tx.SetLamp(CType(CInt Next Console.WriteLine("Gesamtzeit : {0:0} MilliSekunden", ReaktionGesamt) tx.Pause(1234) tx.CloseController() Console.ReadLine() End Sub Anmerkungen : DownloadSources enthalten in DrehzahlD Stand : 21.01.2010 |