Option CStrings On Dim ebContext as Context '-------------------------------------------------------------------------- ' Class Declarations '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- 'InitTextDisplayDefaults '-------------------------------------------------------------------------- Sub InitTextDisplayDefaults(theTextDisplay As TextDisplay) If theTextDisplay Is Nothing Then Exit Sub theTextDisplay.X = "center" theTextDisplay.Y = "center" theTextDisplay.Width = "100%" theTextDisplay.Height = "100%" theTextDisplay.ForeColor = CColor("black") theTextDisplay.BackColor = CColor("white") theTextDisplay.BackStyle = "opaque" theTextDisplay.BorderColor = CColor("black") theTextDisplay.BorderWidth = CLng("0") theTextDisplay.XAlign = "center" theTextDisplay.YAlign = "center" theTextDisplay.AlignHorizontal = "center" theTextDisplay.AlignVertical = "center" theTextDisplay.WordWrap = True theTextDisplay.ClearAfter = CLogical("No") theTextDisplay.FontName = "Courier New" theTextDisplay.FontSize = "18" theTextDisplay.FontBold = CLogical("Yes") theTextDisplay.FontItalic = CLogical("No") theTextDisplay.FontUnderline = CLogical("No") theTextDisplay.FontStrikeout = CLogical("No") End Sub '-------------------------------------------------------------------------- ' Instance Declarations '-------------------------------------------------------------------------- Dim Display As DisplayDevice Dim Keyboard As KeyboardDevice Dim Mouse As MouseDevice Dim Sound As SoundDevice Dim SessionProc As Procedure Dim introduction As TextDisplay Dim introductionEchoClients As EchoClientCollection ' List Attribute Constants Const attrib_Weight = "Weight" Const attrib_Nested = "Nested" Const attrib_Procedure = "Procedure" Const attrib_w1 = "w1" Const attrib_w2 = "w2" Const attrib_w3 = "w3" Const attrib_w4 = "w4" Const attrib_w5 = "w5" Const attrib_w6 = "w6" Const attrib_w7 = "w7" Const attrib_w8 = "w8" Const attrib_w9 = "w9" Const attrib_w10 = "w10" Const attrib_w11 = "w11" Const attrib_w12 = "w12" Const attrib_w13 = "w13" Const attrib_key1 = "key1" Const attrib_key2 = "key2" Const attrib_key3 = "key3" Const attrib_key4 = "key4" Const attrib_key5 = "key5" Const attrib_key6 = "key6" Const attrib_key7 = "key7" Const attrib_condition = "condition" Const attrib_pw1 = "pw1" Const attrib_pw2 = "pw2" Const attrib_pw3 = "pw3" Const attrib_pw4 = "pw4" Const attrib_pw5 = "pw5" Const attrib_pw6 = "pw6" Const attrib_pw7 = "pw7" Const attrib_pkey1 = "pkey1" Const attrib_pkey2 = "pkey2" Const attrib_pkey3 = "pkey3" Const attrib_pkey4 = "pkey4" Dim experiment As List Dim goodbye As TextDisplay Dim practice1 As Procedure Dim R1 As TextDisplay Dim R1EchoClients As EchoClientCollection Dim R3 As TextDisplay Dim R3EchoClients As EchoClientCollection Dim R5 As TextDisplay Dim R5EchoClients As EchoClientCollection Dim R6 As TextDisplay Dim R6EchoClients As EchoClientCollection Dim R7 As TextDisplay Dim R7EchoClients As EchoClientCollection Dim R4 As TextDisplay Dim R4EchoClients As EchoClientCollection Dim R2 As TextDisplay Dim R2EchoClients As EchoClientCollection Dim fixation As TextDisplay Dim TextDisplay2 As TextDisplay Dim practice As List Dim TextDisplay3 As TextDisplay Dim TextDisplay3EchoClients As EchoClientCollection Dim practice111 As Procedure Dim fixationp As TextDisplay Dim pr1 As TextDisplay Dim pr1EchoClients As EchoClientCollection Dim pr2 As TextDisplay Dim pr2EchoClients As EchoClientCollection Dim pr4 As TextDisplay Dim pr4EchoClients As EchoClientCollection Dim TextDisplay1 As TextDisplay Dim pr3 As TextDisplay Dim pr3EchoClients As EchoClientCollection Dim example As TextDisplay Dim TextDisplay4 As TextDisplay Dim TextDisplay4EchoClients As EchoClientCollection Dim choice As TextDisplay Dim choiceEchoClients As EchoClientCollection '-------------------------------------------------------------------------- ' Package Declare Script '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- ' User Script '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- ' Package Global Script '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- ' Implementation '-------------------------------------------------------------------------- Sub SessionProc_Run(c as Context) introduction.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then introductionEchoClients.RemoveAll introduction.InputMasks.Add Keyboard.CreateInputMask("{ANY}", "", CLng(introduction.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If introduction.Run TextDisplay4.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then TextDisplay4EchoClients.RemoveAll TextDisplay4.InputMasks.Add Keyboard.CreateInputMask("{ANY}", "", CLng(TextDisplay4.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If TextDisplay4.Run '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label5 BEGIN '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Label5: If Err.Number = ebInputAccepted Then Err.Clear Resume Label5Resume ElseIf Err.Number <> 0 Then 'NOTE: If you receive a runtime error here, it ' is because a runtime error other than ebInputAccepted ' was thrown (ebInputAccepted for catching input masks that jump). 'You are encouraged to either handle the error so that ' it is not thrown in the future or will have to set up ' your own error handler, which will also need to take ' into account for any input masks that jump. ' 'Raise the error so the default error handler will show the message Err.Raise Err.Number, Err.Source, Err.Description End If Label5Resume: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label5 END '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' practice.Run c choice.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then choiceEchoClients.RemoveAll choice.InputMasks.Add Keyboard.CreateInputMask("p{SPACE}", "", CLng(choice.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If choice.Run ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine10 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if choice.RESP="p" then goto Label5 ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine10 END ''''''''''''''''''''''''''''''''''''''''''''' TextDisplay3.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then TextDisplay3EchoClients.RemoveAll TextDisplay3.InputMasks.Add Keyboard.CreateInputMask("{ANY}", "", CLng(TextDisplay3.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If TextDisplay3.Run experiment.Run c goodbye.Run #If RUNTIME_VERSION_MAJOR > 1 Or (RUNTIME_VERSION_MAJOR = 1 And RUNTIME_VERSION_MINOR >= 2) Then ' Log clock timing information c.SetAttrib "Clock.Information", Clock.Information c.SetAttrib "Clock.StartTimeOfDay", Clock.StartTimeOfDay 'Determine if the Clock.SystemTimeDrift should be logged If Abs(Clock.SystemTimeDrift) > Abs(Clock.SystemTimeDriftThreshold) Then c.SetAttrib "Clock.SystemTimeDrift", Clock.SystemTimeDrift c.SetAttrib "Clock.SystemTimeDriftWarning", "WARNING: Clock.SystemTimeDrift exceeds threshold value. Data from this run may not be usable. Contact PST tech support to determine diagnosis of this clock drift issue." Debug.Print c.GetAttrib("Clock.SystemTimeDriftWarning") Mouse.ShowCursor True MsgBox c.GetAttrib("Clock.SystemTimeDriftWarning") End If #End If ''''''''''''''''''''''''''''''''''''''''''''' 'End Of Procedure Clean-Up ''''''''''''''''''''''''''''''''''''''''''''' c.Log End Sub Sub practice1_Run(c as Context) fixation.Run R1.Text = c.GetAttrib("w1") &_ " ..." R1.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then R1EchoClients.RemoveAll R1.InputMasks.Add Keyboard.CreateInputMask("f", c.GetAttrib("key1"), CLng(R1.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If R1.Run c.SetAttrib R1.Name & ".OnsetDelay", R1.OnsetDelay c.SetAttrib R1.Name & ".OnsetTime", R1.OnsetTime c.SetAttrib R1.Name & ".DurationError", R1.DurationError c.SetAttrib R1.Name & ".RTTime", R1.RTTime c.SetAttrib R1.Name & ".ACC", R1.ACC c.SetAttrib R1.Name & ".RT", R1.RT c.SetAttrib R1.Name & ".RESP", R1.RESP c.SetAttrib R1.Name & ".CRESP", R1.CRESP R2.Text = c.GetAttrib("w2") &_ " " &_ c.GetAttrib("w3") R2.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then R2EchoClients.RemoveAll R2.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("key2"), CLng(R2.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If R2.Run c.SetAttrib R2.Name & ".OnsetDelay", R2.OnsetDelay c.SetAttrib R2.Name & ".OnsetTime", R2.OnsetTime c.SetAttrib R2.Name & ".DurationError", R2.DurationError c.SetAttrib R2.Name & ".RTTime", R2.RTTime c.SetAttrib R2.Name & ".ACC", R2.ACC c.SetAttrib R2.Name & ".RT", R2.RT c.SetAttrib R2.Name & ".RESP", R2.RESP c.SetAttrib R2.Name & ".CRESP", R2.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine1 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if R2.acc=0 then goto Label1 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine1 END ''''''''''''''''''''''''''''''''''''''''''''' R3.Text = c.GetAttrib("w4") &_ " " &_ c.GetAttrib("w5") R3.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then R3EchoClients.RemoveAll R3.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("key3"), CLng(R3.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If R3.Run c.SetAttrib R3.Name & ".OnsetDelay", R3.OnsetDelay c.SetAttrib R3.Name & ".OnsetTime", R3.OnsetTime c.SetAttrib R3.Name & ".DurationError", R3.DurationError c.SetAttrib R3.Name & ".RTTime", R3.RTTime c.SetAttrib R3.Name & ".ACC", R3.ACC c.SetAttrib R3.Name & ".RT", R3.RT c.SetAttrib R3.Name & ".RESP", R3.RESP c.SetAttrib R3.Name & ".CRESP", R3.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine2 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if R3.acc=0 then goto Label1 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine2 END ''''''''''''''''''''''''''''''''''''''''''''' R4.Text = c.GetAttrib("w6") &_ " " &_ c.GetAttrib("w7") R4.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then R4EchoClients.RemoveAll R4.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("key4"), CLng(R4.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If R4.Run c.SetAttrib R4.Name & ".OnsetDelay", R4.OnsetDelay c.SetAttrib R4.Name & ".OnsetTime", R4.OnsetTime c.SetAttrib R4.Name & ".DurationError", R4.DurationError c.SetAttrib R4.Name & ".RTTime", R4.RTTime c.SetAttrib R4.Name & ".ACC", R4.ACC c.SetAttrib R4.Name & ".RT", R4.RT c.SetAttrib R4.Name & ".RESP", R4.RESP c.SetAttrib R4.Name & ".CRESP", R4.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine3 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if R4.acc=0 then goto Label1 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine3 END ''''''''''''''''''''''''''''''''''''''''''''' R5.Text = c.GetAttrib("w8") &_ " " &_ c.GetAttrib("w9") R5.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then R5EchoClients.RemoveAll R5.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("key5"), CLng(R5.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If R5.Run c.SetAttrib R5.Name & ".OnsetDelay", R5.OnsetDelay c.SetAttrib R5.Name & ".OnsetTime", R5.OnsetTime c.SetAttrib R5.Name & ".DurationError", R5.DurationError c.SetAttrib R5.Name & ".RTTime", R5.RTTime c.SetAttrib R5.Name & ".ACC", R5.ACC c.SetAttrib R5.Name & ".RT", R5.RT c.SetAttrib R5.Name & ".RESP", R5.RESP c.SetAttrib R5.Name & ".CRESP", R5.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine4 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if R5.acc=0 then goto Label1 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine4 END ''''''''''''''''''''''''''''''''''''''''''''' R6.Text = c.GetAttrib("w10") &_ " " &_ c.GetAttrib("w11") R6.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then R6EchoClients.RemoveAll R6.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("key6"), CLng(R6.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If R6.Run c.SetAttrib R6.Name & ".OnsetDelay", R6.OnsetDelay c.SetAttrib R6.Name & ".OnsetTime", R6.OnsetTime c.SetAttrib R6.Name & ".DurationError", R6.DurationError c.SetAttrib R6.Name & ".RTTime", R6.RTTime c.SetAttrib R6.Name & ".ACC", R6.ACC c.SetAttrib R6.Name & ".RT", R6.RT c.SetAttrib R6.Name & ".RESP", R6.RESP c.SetAttrib R6.Name & ".CRESP", R6.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine5 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if R6.acc=0 then goto Label1 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine5 END ''''''''''''''''''''''''''''''''''''''''''''' R7.Text = c.GetAttrib("w12") &_ " " &_ c.GetAttrib("w13") R7.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then R7EchoClients.RemoveAll R7.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("key7"), CLng(R7.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If R7.Run c.SetAttrib R7.Name & ".OnsetDelay", R7.OnsetDelay c.SetAttrib R7.Name & ".OnsetTime", R7.OnsetTime c.SetAttrib R7.Name & ".DurationError", R7.DurationError c.SetAttrib R7.Name & ".RTTime", R7.RTTime c.SetAttrib R7.Name & ".ACC", R7.ACC c.SetAttrib R7.Name & ".RT", R7.RT c.SetAttrib R7.Name & ".RESP", R7.RESP c.SetAttrib R7.Name & ".CRESP", R7.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine6 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if R7.acc=0 then goto Label1 else goto Label2 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine6 END ''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label1 BEGIN '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Label1: If Err.Number = ebInputAccepted Then Err.Clear Resume Label1Resume ElseIf Err.Number <> 0 Then 'NOTE: If you receive a runtime error here, it ' is because a runtime error other than ebInputAccepted ' was thrown (ebInputAccepted for catching input masks that jump). 'You are encouraged to either handle the error so that ' it is not thrown in the future or will have to set up ' your own error handler, which will also need to take ' into account for any input masks that jump. ' 'Raise the error so the default error handler will show the message Err.Raise Err.Number, Err.Source, Err.Description End If Label1Resume: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label1 END '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' TextDisplay2.Run '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label2 BEGIN '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Label2: If Err.Number = ebInputAccepted Then Err.Clear Resume Label2Resume ElseIf Err.Number <> 0 Then 'NOTE: If you receive a runtime error here, it ' is because a runtime error other than ebInputAccepted ' was thrown (ebInputAccepted for catching input masks that jump). 'You are encouraged to either handle the error so that ' it is not thrown in the future or will have to set up ' your own error handler, which will also need to take ' into account for any input masks that jump. ' 'Raise the error so the default error handler will show the message Err.Raise Err.Number, Err.Source, Err.Description End If Label2Resume: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label2 END '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' c.SetAttrib R1.Name & ".OnsetDelay", R1.OnsetDelay c.SetAttrib R1.Name & ".OnsetTime", R1.OnsetTime c.SetAttrib R1.Name & ".DurationError", R1.DurationError c.SetAttrib R1.Name & ".RTTime", R1.RTTime c.SetAttrib R1.Name & ".ACC", R1.ACC c.SetAttrib R1.Name & ".RT", R1.RT c.SetAttrib R1.Name & ".RESP", R1.RESP c.SetAttrib R1.Name & ".CRESP", R1.CRESP c.SetAttrib R2.Name & ".OnsetDelay", R2.OnsetDelay c.SetAttrib R2.Name & ".OnsetTime", R2.OnsetTime c.SetAttrib R2.Name & ".DurationError", R2.DurationError c.SetAttrib R2.Name & ".RTTime", R2.RTTime c.SetAttrib R2.Name & ".ACC", R2.ACC c.SetAttrib R2.Name & ".RT", R2.RT c.SetAttrib R2.Name & ".RESP", R2.RESP c.SetAttrib R2.Name & ".CRESP", R2.CRESP c.SetAttrib R3.Name & ".OnsetDelay", R3.OnsetDelay c.SetAttrib R3.Name & ".OnsetTime", R3.OnsetTime c.SetAttrib R3.Name & ".DurationError", R3.DurationError c.SetAttrib R3.Name & ".RTTime", R3.RTTime c.SetAttrib R3.Name & ".ACC", R3.ACC c.SetAttrib R3.Name & ".RT", R3.RT c.SetAttrib R3.Name & ".RESP", R3.RESP c.SetAttrib R3.Name & ".CRESP", R3.CRESP c.SetAttrib R4.Name & ".OnsetDelay", R4.OnsetDelay c.SetAttrib R4.Name & ".OnsetTime", R4.OnsetTime c.SetAttrib R4.Name & ".DurationError", R4.DurationError c.SetAttrib R4.Name & ".RTTime", R4.RTTime c.SetAttrib R4.Name & ".ACC", R4.ACC c.SetAttrib R4.Name & ".RT", R4.RT c.SetAttrib R4.Name & ".RESP", R4.RESP c.SetAttrib R4.Name & ".CRESP", R4.CRESP c.SetAttrib R5.Name & ".OnsetDelay", R5.OnsetDelay c.SetAttrib R5.Name & ".OnsetTime", R5.OnsetTime c.SetAttrib R5.Name & ".DurationError", R5.DurationError c.SetAttrib R5.Name & ".RTTime", R5.RTTime c.SetAttrib R5.Name & ".ACC", R5.ACC c.SetAttrib R5.Name & ".RT", R5.RT c.SetAttrib R5.Name & ".RESP", R5.RESP c.SetAttrib R5.Name & ".CRESP", R5.CRESP c.SetAttrib R6.Name & ".OnsetDelay", R6.OnsetDelay c.SetAttrib R6.Name & ".OnsetTime", R6.OnsetTime c.SetAttrib R6.Name & ".DurationError", R6.DurationError c.SetAttrib R6.Name & ".RTTime", R6.RTTime c.SetAttrib R6.Name & ".ACC", R6.ACC c.SetAttrib R6.Name & ".RT", R6.RT c.SetAttrib R6.Name & ".RESP", R6.RESP c.SetAttrib R6.Name & ".CRESP", R6.CRESP c.SetAttrib R7.Name & ".OnsetDelay", R7.OnsetDelay c.SetAttrib R7.Name & ".OnsetTime", R7.OnsetTime c.SetAttrib R7.Name & ".DurationError", R7.DurationError c.SetAttrib R7.Name & ".RTTime", R7.RTTime c.SetAttrib R7.Name & ".ACC", R7.ACC c.SetAttrib R7.Name & ".RT", R7.RT c.SetAttrib R7.Name & ".RESP", R7.RESP c.SetAttrib R7.Name & ".CRESP", R7.CRESP ''''''''''''''''''''''''''''''''''''''''''''' 'End Of Procedure Clean-Up ''''''''''''''''''''''''''''''''''''''''''''' c.Log End Sub Sub practice111_Run(c as Context) fixationp.Run pr1.Text = c.GetAttrib("pw1") &_ " ..." pr1.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then pr1EchoClients.RemoveAll pr1.InputMasks.Add Keyboard.CreateInputMask("f", c.GetAttrib("pkey1"), CLng(pr1.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If pr1.Run c.SetAttrib pr1.Name & ".OnsetDelay", pr1.OnsetDelay c.SetAttrib pr1.Name & ".OnsetTime", pr1.OnsetTime c.SetAttrib pr1.Name & ".DurationError", pr1.DurationError c.SetAttrib pr1.Name & ".RTTime", pr1.RTTime c.SetAttrib pr1.Name & ".ACC", pr1.ACC c.SetAttrib pr1.Name & ".RT", pr1.RT c.SetAttrib pr1.Name & ".RESP", pr1.RESP c.SetAttrib pr1.Name & ".CRESP", pr1.CRESP pr2.Text = c.GetAttrib("pw2") &_ " " &_ c.GetAttrib("pw3") pr2.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then pr2EchoClients.RemoveAll pr2.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("pkey2"), CLng(pr2.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If pr2.Run c.SetAttrib pr2.Name & ".OnsetDelay", pr2.OnsetDelay c.SetAttrib pr2.Name & ".OnsetTime", pr2.OnsetTime c.SetAttrib pr2.Name & ".DurationError", pr2.DurationError c.SetAttrib pr2.Name & ".RTTime", pr2.RTTime c.SetAttrib pr2.Name & ".ACC", pr2.ACC c.SetAttrib pr2.Name & ".RT", pr2.RT c.SetAttrib pr2.Name & ".RESP", pr2.RESP c.SetAttrib pr2.Name & ".CRESP", pr2.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine7 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if pr2.acc=0 then goto Label3 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine7 END ''''''''''''''''''''''''''''''''''''''''''''' pr3.Text = c.GetAttrib("pw4") &_ " " &_ c.GetAttrib("pw5") pr3.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then pr3EchoClients.RemoveAll pr3.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("pkey3"), CLng(pr3.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If pr3.Run c.SetAttrib pr3.Name & ".OnsetDelay", pr3.OnsetDelay c.SetAttrib pr3.Name & ".OnsetTime", pr3.OnsetTime c.SetAttrib pr3.Name & ".DurationError", pr3.DurationError c.SetAttrib pr3.Name & ".RTTime", pr3.RTTime c.SetAttrib pr3.Name & ".ACC", pr3.ACC c.SetAttrib pr3.Name & ".RT", pr3.RT c.SetAttrib pr3.Name & ".RESP", pr3.RESP c.SetAttrib pr3.Name & ".CRESP", pr3.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine9 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if pr3.acc=0 then goto Label3 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine9 END ''''''''''''''''''''''''''''''''''''''''''''' pr4.Text = c.GetAttrib("pw6") &_ " " &_ c.GetAttrib("pw7") pr4.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then pr4EchoClients.RemoveAll pr4.InputMasks.Add Keyboard.CreateInputMask("fj", c.GetAttrib("pkey4"), CLng(pr4.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If pr4.Run c.SetAttrib pr4.Name & ".OnsetDelay", pr4.OnsetDelay c.SetAttrib pr4.Name & ".OnsetTime", pr4.OnsetTime c.SetAttrib pr4.Name & ".DurationError", pr4.DurationError c.SetAttrib pr4.Name & ".RTTime", pr4.RTTime c.SetAttrib pr4.Name & ".ACC", pr4.ACC c.SetAttrib pr4.Name & ".RT", pr4.RT c.SetAttrib pr4.Name & ".RESP", pr4.RESP c.SetAttrib pr4.Name & ".CRESP", pr4.CRESP ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine8 BEGIN ''''''''''''''''''''''''''''''''''''''''''''' if pr4.acc=0 then goto Label3 else goto Label4 end if ''''''''''''''''''''''''''''''''''''''''''''' ' InLine - InLine8 END ''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label3 BEGIN '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Label3: If Err.Number = ebInputAccepted Then Err.Clear Resume Label3Resume ElseIf Err.Number <> 0 Then 'NOTE: If you receive a runtime error here, it ' is because a runtime error other than ebInputAccepted ' was thrown (ebInputAccepted for catching input masks that jump). 'You are encouraged to either handle the error so that ' it is not thrown in the future or will have to set up ' your own error handler, which will also need to take ' into account for any input masks that jump. ' 'Raise the error so the default error handler will show the message Err.Raise Err.Number, Err.Source, Err.Description End If Label3Resume: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label3 END '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' TextDisplay1.Run '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label4 BEGIN '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Label4: If Err.Number = ebInputAccepted Then Err.Clear Resume Label4Resume ElseIf Err.Number <> 0 Then 'NOTE: If you receive a runtime error here, it ' is because a runtime error other than ebInputAccepted ' was thrown (ebInputAccepted for catching input masks that jump). 'You are encouraged to either handle the error so that ' it is not thrown in the future or will have to set up ' your own error handler, which will also need to take ' into account for any input masks that jump. ' 'Raise the error so the default error handler will show the message Err.Raise Err.Number, Err.Source, Err.Description End If Label4Resume: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Label - Label4 END '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' c.SetAttrib pr1.Name & ".OnsetDelay", pr1.OnsetDelay c.SetAttrib pr1.Name & ".OnsetTime", pr1.OnsetTime c.SetAttrib pr1.Name & ".DurationError", pr1.DurationError c.SetAttrib pr1.Name & ".RTTime", pr1.RTTime c.SetAttrib pr1.Name & ".ACC", pr1.ACC c.SetAttrib pr1.Name & ".RT", pr1.RT c.SetAttrib pr1.Name & ".RESP", pr1.RESP c.SetAttrib pr1.Name & ".CRESP", pr1.CRESP c.SetAttrib pr2.Name & ".OnsetDelay", pr2.OnsetDelay c.SetAttrib pr2.Name & ".OnsetTime", pr2.OnsetTime c.SetAttrib pr2.Name & ".DurationError", pr2.DurationError c.SetAttrib pr2.Name & ".RTTime", pr2.RTTime c.SetAttrib pr2.Name & ".ACC", pr2.ACC c.SetAttrib pr2.Name & ".RT", pr2.RT c.SetAttrib pr2.Name & ".RESP", pr2.RESP c.SetAttrib pr2.Name & ".CRESP", pr2.CRESP c.SetAttrib pr3.Name & ".OnsetDelay", pr3.OnsetDelay c.SetAttrib pr3.Name & ".OnsetTime", pr3.OnsetTime c.SetAttrib pr3.Name & ".DurationError", pr3.DurationError c.SetAttrib pr3.Name & ".RTTime", pr3.RTTime c.SetAttrib pr3.Name & ".ACC", pr3.ACC c.SetAttrib pr3.Name & ".RT", pr3.RT c.SetAttrib pr3.Name & ".RESP", pr3.RESP c.SetAttrib pr3.Name & ".CRESP", pr3.CRESP c.SetAttrib pr4.Name & ".OnsetDelay", pr4.OnsetDelay c.SetAttrib pr4.Name & ".OnsetTime", pr4.OnsetTime c.SetAttrib pr4.Name & ".DurationError", pr4.DurationError c.SetAttrib pr4.Name & ".RTTime", pr4.RTTime c.SetAttrib pr4.Name & ".ACC", pr4.ACC c.SetAttrib pr4.Name & ".RT", pr4.RT c.SetAttrib pr4.Name & ".RESP", pr4.RESP c.SetAttrib pr4.Name & ".CRESP", pr4.CRESP ''''''''''''''''''''''''''''''''''''''''''''' 'End Of Procedure Clean-Up ''''''''''''''''''''''''''''''''''''''''''''' c.Log End Sub '-------------------------------------------------------------------------- ' InitDevices ' '-------------------------------------------------------------------------- Sub InitDevices(c As Context) Set Display = New DisplayDevice Display.Name = "Display" Dim DisplayDisplayDeviceInfo As DisplayDeviceInfo DisplayDisplayDeviceInfo.XRes = 640 DisplayDisplayDeviceInfo.YRes = 480 DisplayDisplayDeviceInfo.ColorDepth = 16 DisplayDisplayDeviceInfo.DisplayIndex = 1 DisplayDisplayDeviceInfo.UseDesktopSettings = False DisplayDisplayDeviceInfo.DefaultColor = Color.White DisplayDisplayDeviceInfo.RefreshRate = 0 DisplayDisplayDeviceInfo.NumPages = 0 'Load values from context if they exist If c.AttribExists(Display.Name & ".XRes") Then DisplayDisplayDeviceInfo.XRes = CLng(c.GetAttrib(Display.Name & ".XRes")) If c.AttribExists(Display.Name & ".YRes") Then DisplayDisplayDeviceInfo.YRes = CLng(c.GetAttrib(Display.Name & ".YRes")) If c.AttribExists(Display.Name & ".ColorDepth") Then DisplayDisplayDeviceInfo.ColorDepth = CLng(c.GetAttrib(Display.Name & ".ColorDepth")) If c.AttribExists(Display.Name & ".UseDesktopSettings") Then DisplayDisplayDeviceInfo.UseDesktopSettings = CLng(c.GetAttrib(Display.Name & ".UseDesktopSettings")) 'Open the device, unless the context values indicate otherwise Dim DisplayOpen As Boolean DisplayOpen = True If c.AttribExists(Display.Name & ".Open") Then DisplayOpen = CLogical(c.GetAttrib(Display.Name & ".Open")) If DisplayOpen = True Then Display.Open DisplayDisplayDeviceInfo End If Set Keyboard = New KeyboardDevice Keyboard.Name = "Keyboard" Dim KeyboardKeyboardDeviceInfo as KeyboardDeviceInfo KeyboardKeyboardDeviceInfo.CollectionMode = ebPressesOnly KeyboardKeyboardDeviceInfo.CapsLock = ebCapsLockOff KeyboardKeyboardDeviceInfo.NumLock = ebNumLockOn 'Load values from context if they exist If c.AttribExists(Keyboard.Name & ".CollectionMode") Then KeyboardKeyboardDeviceInfo.CollectionMode = CLng(c.GetAttrib(Keyboard.Name & ".CollectionMode")) If c.AttribExists(Keyboard.Name & ".CapsLock") Then KeyboardKeyboardDeviceInfo.CapsLock = CLng(c.GetAttrib(Keyboard.Name & ".CapsLock")) If c.AttribExists(Keyboard.Name & ".NumLock") Then KeyboardKeyboardDeviceInfo.NumLock = CLng(c.GetAttrib(Keyboard.Name & ".NumLock")) If c.AttribExists(Keyboard.Name & ".EmulateDeviceName") Then KeyboardKeyboardDeviceInfo.EmulateDeviceName = c.GetAttrib(Keyboard.Name & ".EmulateDeviceName") 'Open the device, unless the context values indicate otherwise Dim KeyboardOpen As Boolean KeyboardOpen = True If c.AttribExists(Keyboard.Name & ".Open") Then KeyboardOpen = CLogical(c.GetAttrib(Keyboard.Name & ".Open")) If KeyboardOpen = True Then Keyboard.Open KeyboardKeyboardDeviceInfo End If Set Mouse = New MouseDevice Mouse.Name = "Mouse" Dim MouseMouseDeviceInfo as MouseDeviceInfo MouseMouseDeviceInfo.OpenMode = ebMouseOpenModeDirect MouseMouseDeviceInfo.CollectionMode = ebPressesOnly MouseMouseDeviceInfo.ShowCursor = False 'Load values from context if they exist If c.AttribExists(Mouse.Name & ".OpenMode") Then MouseMouseDeviceInfo.OpenMode = CLng(c.GetAttrib(Mouse.Name & ".OpenMode")) If c.AttribExists(Mouse.Name & ".CollectionMode") Then MouseMouseDeviceInfo.CollectionMode = CLng(c.GetAttrib(Mouse.Name & ".CollectionMode")) If c.AttribExists(Mouse.Name & ".ShowCursor") Then MouseMouseDeviceInfo.ShowCursor = CLogical(c.GetAttrib(Mouse.Name & ".ShowCursor")) If c.AttribExists(Mouse.Name & ".EmulateDeviceName") Then MouseMouseDeviceInfo.EmulateDeviceName = c.GetAttrib(Mouse.Name & ".EmulateDeviceName") 'Open the device, unless the context values indicate otherwise Dim MouseOpen As Boolean MouseOpen = True If c.AttribExists(Mouse.Name & ".Open") Then MouseOpen = CLogical(c.GetAttrib(Mouse.Name & ".Open")) If MouseOpen = True Then Mouse.Open MouseMouseDeviceInfo End If Set Sound = New SoundDevice Sound.Name = "Sound" Dim SoundSoundOutDeviceInfo As SoundDeviceInfo SoundSoundOutDeviceInfo.Channels = 2 SoundSoundOutDeviceInfo.SamplesPerSecond = 22050 SoundSoundOutDeviceInfo.BitsPerSample = 16 'Load values from context if they exist If c.AttribExists(Sound.Name & ".Channels") Then SoundSoundOutDeviceInfo.Channels = CLng(c.GetAttrib(Sound.Name & ".Channels")) If c.AttribExists(Sound.Name & ".SamplesPerSecond") Then SoundSoundOutDeviceInfo.SamplesPerSecond = CLng(c.GetAttrib(Sound.Name & ".SamplesPerSecond")) If c.AttribExists(Sound.Name & ".BitsPerSample") Then SoundSoundOutDeviceInfo.BitsPerSample = CLng(c.GetAttrib(Sound.Name & ".BitsPerSample")) 'Open the device, unless the context values indicate otherwise Dim SoundOpen As Boolean SoundOpen = True If c.AttribExists(Sound.Name & ".Open") Then SoundOpen = CLogical(c.GetAttrib(Sound.Name & ".Open")) If SoundOpen = True Then Sound.Open SoundSoundOutDeviceInfo End If 'Init All Devices Rte.DeviceManager.Init ' Log DisplayDevice(s) Refresh Rates If DisplayOpen = True Then c.SetAttrib Display.Name & ".RefreshRate", Format$(Display.CalculatedRefreshRate, "0.000") End If End Sub '-------------------------------------------------------------------------- ' InitObjects ' '-------------------------------------------------------------------------- Sub InitObjects(c As Context) Set SessionProc = New Procedure SessionProc.Name = "SessionProc" SessionProc.Guid = "{834094AF-D4B2-467A-9254-4DCEB75A1763}" SessionProc.Tag = "" SessionProc.Subroutine = "SessionProc_Run" Set introduction = New TextDisplay introduction.Name = "introduction" introduction.Guid = "{535233D4-801A-4F4C-92CA-F0E1E0891DE4}" introduction.Tag = "" Set introductionEchoClients = New EchoClientCollection introduction.LoadProperties Set experiment = New List experiment.Name = "experiment" experiment.Guid = "{A9D469AD-D187-41E8-B9CB-05DC385B6DC1}" experiment.Tag = "" 'Initialization for experiment Set experiment.Order = New RandomOrder Set experiment.Deletion = NoDeletion experiment.ResetEveryRun = False experiment.LoadProperties Set experiment.TerminateCondition = Cycles(1) Set experiment.ResetCondition = Samples(24) experiment.Reset Set goodbye = New TextDisplay goodbye.Name = "goodbye" goodbye.Guid = "{2A56B525-A794-4C09-9871-087929E5325D}" goodbye.Tag = "" goodbye.LoadProperties Set practice1 = New Procedure practice1.Name = "practice1" practice1.Guid = "{A000A700-8EDB-4DB1-806D-61EE76C93685}" practice1.Tag = "" practice1.Subroutine = "practice1_Run" Set R1 = New TextDisplay R1.Name = "R1" R1.Guid = "{9C086D99-3386-475F-B19F-CF78C2F41D46}" R1.Tag = "" Set R1EchoClients = New EchoClientCollection R1.LoadProperties Set R3 = New TextDisplay R3.Name = "R3" R3.Guid = "{1DA22CAD-E9F2-4582-81E7-F1BCA9551A27}" R3.Tag = "" Set R3EchoClients = New EchoClientCollection R3.LoadProperties Set R5 = New TextDisplay R5.Name = "R5" R5.Guid = "{2496391C-7A97-4AD0-AAF9-05017B18C725}" R5.Tag = "" Set R5EchoClients = New EchoClientCollection R5.LoadProperties Set R6 = New TextDisplay R6.Name = "R6" R6.Guid = "{44107042-163B-4C98-9E96-DB874AE05490}" R6.Tag = "" Set R6EchoClients = New EchoClientCollection R6.LoadProperties Set R7 = New TextDisplay R7.Name = "R7" R7.Guid = "{082D261E-490A-471E-85BD-DE5E22E568DA}" R7.Tag = "" Set R7EchoClients = New EchoClientCollection R7.LoadProperties Set R4 = New TextDisplay R4.Name = "R4" R4.Guid = "{F4CD2EC7-9343-48F4-8D28-5BE279B02FAD}" R4.Tag = "" Set R4EchoClients = New EchoClientCollection R4.LoadProperties Set R2 = New TextDisplay R2.Name = "R2" R2.Guid = "{690DC3D5-8D00-4ED0-A979-2195911BDEC0}" R2.Tag = "" Set R2EchoClients = New EchoClientCollection R2.LoadProperties Set fixation = New TextDisplay fixation.Name = "fixation" fixation.Guid = "{E43706FC-9C43-4546-8EDB-0345EC4EF91C}" fixation.Tag = "" fixation.LoadProperties Set TextDisplay2 = New TextDisplay TextDisplay2.Name = "TextDisplay2" TextDisplay2.Guid = "{E3D9791F-38FC-45B4-B88F-8329790D072B}" TextDisplay2.Tag = "" TextDisplay2.LoadProperties Set practice = New List practice.Name = "practice" practice.Guid = "{2A0EC8D1-A933-416B-A73F-FD55597C9A85}" practice.Tag = "" 'Initialization for practice Set practice.Order = New SequentialOrder Set practice.Deletion = NoDeletion practice.ResetEveryRun = False practice.LoadProperties Set practice.TerminateCondition = Cycles(1) Set practice.ResetCondition = Samples(5) practice.Reset Set TextDisplay3 = New TextDisplay TextDisplay3.Name = "TextDisplay3" TextDisplay3.Guid = "{D66187E2-42FB-4B93-AC40-9C016E4AD1A4}" TextDisplay3.Tag = "" Set TextDisplay3EchoClients = New EchoClientCollection TextDisplay3.LoadProperties Set practice111 = New Procedure practice111.Name = "practice111" practice111.Guid = "{8C3517F1-D66F-4998-B7CB-23AA4940ECE4}" practice111.Tag = "" practice111.Subroutine = "practice111_Run" Set fixationp = New TextDisplay fixationp.Name = "fixationp" fixationp.Guid = "{C24065F7-6A48-43DB-87E1-2986B0DF39C3}" fixationp.Tag = "" fixationp.LoadProperties Set pr1 = New TextDisplay pr1.Name = "pr1" pr1.Guid = "{16AEBF52-D12A-4CDC-BADD-6AE0D51A73A1}" pr1.Tag = "" Set pr1EchoClients = New EchoClientCollection pr1.LoadProperties Set pr2 = New TextDisplay pr2.Name = "pr2" pr2.Guid = "{9FA16399-57ED-4A2A-9C8A-BF8EB9223DF7}" pr2.Tag = "" Set pr2EchoClients = New EchoClientCollection pr2.LoadProperties Set pr4 = New TextDisplay pr4.Name = "pr4" pr4.Guid = "{AAB0582F-A1DF-4ED3-BB6D-410C697438C7}" pr4.Tag = "" Set pr4EchoClients = New EchoClientCollection pr4.LoadProperties Set TextDisplay1 = New TextDisplay TextDisplay1.Name = "TextDisplay1" TextDisplay1.Guid = "{E71CB09D-DC86-4F31-8D9D-4E80A9A5D721}" TextDisplay1.Tag = "" TextDisplay1.LoadProperties Set pr3 = New TextDisplay pr3.Name = "pr3" pr3.Guid = "{4AF2DFD4-5EE5-45CF-A052-D68B64B7BC2B}" pr3.Tag = "" Set pr3EchoClients = New EchoClientCollection pr3.LoadProperties Set example = New TextDisplay example.Name = "example" example.Guid = "{54407F39-B9DF-45B3-B2C3-16F4EB6D96F0}" example.Tag = "" example.LoadProperties Set TextDisplay4 = New TextDisplay TextDisplay4.Name = "TextDisplay4" TextDisplay4.Guid = "{B082431E-CFF6-46D2-9D41-0151D6B4D784}" TextDisplay4.Tag = "" Set TextDisplay4EchoClients = New EchoClientCollection TextDisplay4.LoadProperties Set choice = New TextDisplay choice.Name = "choice" choice.Guid = "{167AB57D-3088-49AB-950E-AB8F86000B4F}" choice.Tag = "" Set choiceEchoClients = New EchoClientCollection choice.LoadProperties End Sub '-------------------------------------------------------------------------- ' InitPackages ' '-------------------------------------------------------------------------- Sub InitPackages(c As Context) End Sub '-------------------------------------------------------------------------- ' InitGlobals ' '-------------------------------------------------------------------------- Sub InitGlobals(c As Context) End Sub '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- ' UnInitGlobals '-------------------------------------------------------------------------- Sub UnInitGlobals() End Sub '-------------------------------------------------------------------------- ' UnInitDevices '-------------------------------------------------------------------------- Sub UnInitDevices() 'UnInit All Devices Rte.DeviceManager.UnInit Display.Close Set Display = Nothing Keyboard.Close Set Keyboard = Nothing Mouse.Close Set Mouse = Nothing Sound.Close End Sub '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- ' UnInitPackages '-------------------------------------------------------------------------- Sub UnInitPackages() End Sub '-------------------------------------------------------------------------- ' UnInitObjects ' '-------------------------------------------------------------------------- Sub UnInitObjects() Set SessionProc = Nothing Set introduction = Nothing Set introductionEchoClients = Nothing Set experiment = Nothing Set goodbye = Nothing Set practice1 = Nothing Set R1 = Nothing Set R1EchoClients = Nothing Set R3 = Nothing Set R3EchoClients = Nothing Set R5 = Nothing Set R5EchoClients = Nothing Set R6 = Nothing Set R6EchoClients = Nothing Set R7 = Nothing Set R7EchoClients = Nothing Set R4 = Nothing Set R4EchoClients = Nothing Set R2 = Nothing Set R2EchoClients = Nothing Set fixation = Nothing Set TextDisplay2 = Nothing Set practice = Nothing Set TextDisplay3 = Nothing Set TextDisplay3EchoClients = Nothing Set practice111 = Nothing Set fixationp = Nothing Set pr1 = Nothing Set pr1EchoClients = Nothing Set pr2 = Nothing Set pr2EchoClients = Nothing Set pr4 = Nothing Set pr4EchoClients = Nothing Set TextDisplay1 = Nothing Set pr3 = Nothing Set pr3EchoClients = Nothing Set example = Nothing Set TextDisplay4 = Nothing Set TextDisplay4EchoClients = Nothing Set choice = Nothing Set choiceEchoClients = Nothing End Sub '-------------------------------------------------------------------------- ' Main ' '-------------------------------------------------------------------------- Sub Main() ' Create and initialize the default context, data file, ' and provide global access to the context. Dim c As Context Set c = New Context c.Name = "ebContext" Set c.DataFile = New DataFile c.PushNewFrame Set ebContext = c ' Set the log level names c.SetLogLevelName 1, "Session" c.SetLogLevelName 2, "Block" c.SetLogLevelName 3, "Trial" c.SetLogLevelName 4, "SubTrial" c.SetLogLevelName 5, "LogLevel5" c.SetLogLevelName 6, "LogLevel6" c.SetLogLevelName 7, "LogLevel7" c.SetLogLevelName 8, "LogLevel8" c.SetLogLevelName 9, "LogLevel9" c.SetLogLevelName 10, "LogLevel10" ' Set standard logging items ebContext.SetAttrib "Experiment", "code" ebContext.SetAttrib "SessionDate", Date$ ebContext.SetAttrib "SessionTime", Time$ ebContext.SetAttrib "SessionTimeUtc", TimeUtc$ 'Initialize global variables for packages InitGlobals c ' Initialize the Display Device(s) for runtime CreateDefaultPort Color.White, "", 1 If Basic.OS = ebWin32 Then WinActivate "E-Run Experiment Window" End If ' Get the StartupInfo ' Set the defaults for all of the StartupInfo If Not c.AttribExists("Subject") Then c.SetAttrib "Subject", "1" If Not c.AttribExists("Session") Then c.SetAttrib "Session", "1" If Not c.AttribExists("Age") Then c.SetAttrib "Age", "0" If Not c.AttribExists("Sex") Then c.SetAttrib "Sex", "male" ' Determine if StartupInfo.UseDefaults exists and is True/False to override prompts for StartupInfo parameters Dim bStartupInfoUseDefaults As Boolean bStartupInfoUseDefaults = False If c.AttribExists("StartupInfo.UseDefaults") Then bStartupInfoUseDefaults = CLogical(c.GetAttrib("StartupInfo.UseDefaults")) If Not bStartupInfoUseDefaults Then Dim vAnswer As Variant StartupInfo_Begin: StartupInfoPrompt_Subject: vAnswer = AskBox("Please enter the Subject Number (1-32767, 0=No Data Logging):", c.GetAttrib("Subject")) If Not IsEmpty(vAnswer) then If Not IsNumeric(vAnswer) then MsgBox "Please enter an integer value" GoTo StartupInfoPrompt_Subject ElseIf CLng(vAnswer) < 0 Then MsgBox "The value for Subject must not be less than 0" GoTo StartupInfoPrompt_Subject ElseIf CLng(vAnswer) > 32767 Then MsgBox "The value for Subject must be not be greater than 32767" GoTo StartupInfoPrompt_Subject End If Else GoTo ExperimentAbort End if c.SetAttrib "Subject", CStr(vAnswer) StartupInfoPrompt_Session: vAnswer = AskBox("Please enter the Session Number (1-32767):", c.GetAttrib("Session")) If Not IsEmpty(vAnswer) then If Not IsNumeric(vAnswer) then MsgBox "Please enter an integer value" GoTo StartupInfoPrompt_Session ElseIf CLng(vAnswer) < 1 Then MsgBox "The value for Session must not be less than 1" GoTo StartupInfoPrompt_Session ElseIf CLng(vAnswer) > 32767 Then MsgBox "The value for Session must be not be greater than 32767" GoTo StartupInfoPrompt_Session End If Else GoTo ExperimentAbort End if c.SetAttrib "Session", CStr(vAnswer) StartupInfoPrompt_Age: vAnswer = AskBox("Please enter Subject's Age (0-150):", c.GetAttrib("Age")) If Not IsEmpty(vAnswer) then If Not IsNumeric(vAnswer) then MsgBox "Please enter an integer value" GoTo StartupInfoPrompt_Age ElseIf CLng(vAnswer) < 0 Then MsgBox "The value for Age must not be less than 0" GoTo StartupInfoPrompt_Age ElseIf CLng(vAnswer) > 150 Then MsgBox "The value for Age must be not be greater than 150" GoTo StartupInfoPrompt_Age End If Else GoTo ExperimentAbort End if c.SetAttrib "Age", CStr(vAnswer) StartupInfoPrompt_Sex: Dim arrayChoicesSex(2) arrayChoicesSex(0) = "male" arrayChoicesSex(1) = "female" vAnswer = SelectBox(, "Please enter Subject's Sex:", arrayChoicesSex) If vAnswer >= 0 then c.SetAttrib "Sex", arrayChoicesSex(vAnswer) Else GoTo ExperimentAbort End If ' Display the summary Dim strSummary As String strSummary = "Subject: " & c.GetAttrib("Subject") & "\n" strSummary = strSummary & "Session: " & c.GetAttrib("Session") & "\n" strSummary = strSummary & "Age: " & c.GetAttrib("Age") & "\n" strSummary = strSummary & "Sex: " & c.GetAttrib("Sex") & "\n" strSummary = strSummary & "\nContinue with the above startup info?" Dim nSummaryAnswer As Integer nSummaryAnswer = MsgBox(strSummary, ebYesNoCancel + ebQuestion, "Summary of Startup Info") If nSummaryAnswer = ebNo Then GoTo StartupInfo_Begin ElseIf nSummaryAnswer = ebCancel Then GoTo ExperimentAbort End If End If 'If the attribute Clock.Scale.Override exists ' then use it for to set the Clock.Scale value If c.AttribExists("Clock.Scale.Override") Then Clock.Scale = CDbl(c.GetAttrib("Clock.Scale.Override")) End If ' Set the Filenames for the data files Dim strFilenameRecovery As String Dim strFilenameEDAT As String 'If the attribute DataFile.Filename.Override exists ' then use it for the .txt and .edat2 filenames If c.AttribExists("DataFile.Filename.Override") Then ' Set the default Data Filename strFilenameRecovery = CStr(c.GetAttrib("DataFile.Filename.Override")) & ".txt" strFilenameEDAT = CStr(c.GetAttrib("DataFile.Filename.Override")) & ".edat2" Else ' Set the default Data Filename strFilenameRecovery = CStr(c.GetAttrib("Experiment")) & "-" & CStr(c.GetAttrib("Subject")) & "-" & CStr(c.GetAttrib("Session")) & ".txt" strFilenameEDAT = CStr(c.GetAttrib("Experiment")) & "-" & CStr(c.GetAttrib("Subject")) & "-" & CStr(c.GetAttrib("Session")) & ".edat2" End If 'Set the name of the data file c.DataFile.Filename = strFilenameRecovery ' If we are logging data, then prompt to overwrite the data file if it exists If CLng(c.GetAttrib("Subject")) <> 0 Then If FileExists(c.DataFile.Filename) Or FileExists(strFilenameEDAT) Then If ebYes <> MsgBox("WARNING: The data file and/or recovery file already exists:\nFILE: " & c.DataFile.Filename & "\n\nDo you want to overwrite?", ebYesNo + ebQuestion) Then GoTo ExperimentAbort End If End If End If ' Set defaults for RandomSeed and GroupNumber if StartupInfo did not assign their values If Not c.AttribExists("RandomSeed") Then c.SetAttrib "RandomSeed", PRNG.GetSeed() If Not c.AttribExists("Group") Then c.SetAttrib "Group", "1" 'Set the random seed Randomize CLng(c.GetAttrib("RandomSeed")) 'Lower System Priority for INIT routines SetOSThreadPriority 3 ' Initialize all system devices, packages, and objects InitDevices c InitPackages c InitObjects c 'Restore E-Prime Priority SetOSThreadPriority 0 ' If we are logging data, then open the datafile If CLng(c.GetAttrib("Subject")) <> 0 Then c.DataFile.Open c.LogHeader End If #If RUNTIME_VERSION_MAJOR > 1 Or (RUNTIME_VERSION_MAJOR = 1 And RUNTIME_VERSION_MINOR >= 2) Then ' Log clock timing information c.SetAttrib "Clock.Information", Clock.Information #End If SetOSThreadPriority 3 ' Start the running of the Experiment SessionProc.Run c ' Log clock timing information c.SetAttrib "Clock.Information", Clock.Information ' Clean up the context and close the datafile If CLng(c.GetAttrib("Subject")) <> 0 Then c.DataFile.Close ' Attempt to convert the recovery file into a data file Dim nConvert As Long nConvert = c.DataFile.Convert(ebProgressSimple) If nConvert = 0 Then ' Settings in E-Studio are set to not remove E-Recovery file Else ' The datafile failed to convert! MsgBox "ERROR: The datafile did not convert!\nFILE: " & c.DataFile.Filename & "\n\nIt is recommended that you recover your data with the E-Recovery utility" MsgBox c.DataFile.GetLastErrorMessage() End If End If ExperimentFinish: UnInitObjects UnInitPackages UnInitDevices UnInitGlobals ExperimentAbort: ' Clean up the context c.PopFrame Set c = Nothing Set ebContext = Nothing DestroyDefaultPort End Sub ********** !EXPERIMENT DATA SECTIONS! ********** {834094AF-D4B2-467A-9254-4DCEB75A1763}SessionProcProcedure{834094AF-D4B2-467A-9254-4DCEB75A1763}20820<_VersionPersist dt:dt="int">1introductionTextDisplay4Label5practicechoiceInLine10TextDisplay3experimentgoodbye1introductionTextDisplay4Label5practicechoiceInLine10TextDisplay3experimentgoodbye{535233D4-801A-4F4C-92CA-F0E1E0891DE4}introductionTextDisplay{535233D4-801A-4F4C-92CA-F0E1E0891DE4}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo下面您将看到一些句子。这些句子中的单词将逐个出现在屏幕上，每个屏幕上将出现两个词，请你判断哪一个单词能够和前面出现的部分构成通顺合理的句子。如果你选择左边的词，请按下F键，如果选择右边的词，请按J键。请您尽快作答，如果在5秒内没有回答，自动开始下一题。下面请先看一个例子。按任意键继续。-1{A9D469AD-D187-41E8-B9CB-05DC385B6DC1}experimentList{A9D469AD-D187-41E8-B9CB-05DC385B6DC1}20820<_VersionPersist dt:dt="int">1w11w21w31w41w51w61w71w81w91w101w111w121w131key11key21key31key41key51key61key7< /Name>1condition1practice110000001100Weight117510Nested17511Procedure1practice7512w10?75188w20?7518< /VarType>8w30?75188w40?75188w50?75188w60?75188w70?75188w80?75188w90?75188w100?75188w110?75188w120?75188w130?75188key10?75188key20?75188key30?75188key40?75188key50?75188key60?75188key70?75188condition0?751881 practice1 上周 但是 教授 认识 墙壁 跑 的 作家 展开 遇见了 美丽 沟通。 演员。 f j f j f f j SRC1 practice1 据说 经理 而且 树枝 巴结 的 白云 修改 富商 陌生 加入了 协调。 协会。 f f j f j j j SRC1 practice1 听说 然后 作家 爱慕 平行 在 的 演员 等待 喜欢 遥远 唱歌。 开展。 f j f j f f f SRC1 practice1 昨天 祖母 然而 三角形 照顾 左 的 男子 出现 群体 吵醒了 演出。 邻居。 f f j j f j j SRC1 practice1 昨天 而且 小丑 陌生 模仿 的 水 演员 开展 获得了 白云 窗台。 大奖。 f j j f f f j SRC1 practice1 昨晚 家属 并列 联系 圆形 盐 的 民警 出台 然而 打晕了 歹徒。 散步。 f f f j f j f SRC1 practice1 上星期 可是 举报 贪官 苹果 鹅 的 熏蒸 记者 受到了 动物 褒奖。 挪动。 f j f j j f f ORC1 practice1 上周 佩服 所以 难度 教练 羊 的 选手 搅拌 松鼠 赢得了 碰撞。 比赛。 f f j j f j j ORC1 practice1 显然 然而 中伤 市长 花盆 的 兔 搅动 记者 误导了 翠柏 民众。 茶杯。 f j f f j f f ORC1 practice1 据说 控告 再说 数学 老板 的 姜 员工 切碎 请来了 猴子 折断。 律师。 f f j f f f j ORC1 practice1 昨天 而 抓到 摆脱 罪犯 牛 的 打开 警察 足球 受到了 表彰。 踢开。 f j j j j j f ORC1 practice1 上周 包庇 再者 罪犯 板凳 的 鸭 法官 让开 受到了 电扇 穿上。 惩罚。 f f f f f f j ORC1 practice1 那天 妈妈 又 送给 电脑 小明 开启 一个 起来 精美 梳理 礼物。 推开。 f f f f f f f filler1 practice1 突然间 但是 天空中 控诉 出现了 开展 很多 批评 闪亮 的 抓 移动。 星星。 f j j j j f j filler1 practice1 会场上 所以 各国 代表团 桌子 绿色 针对 环境问题 施加 面粉 展开 生活用品。 讨论。 f j f j f j j filler1 practice1 明天 上周 学校 组织了 冷淡 三场 苍蝇 瀑布 足球赛 和 但 篮球赛。 肥皂。 f j f f j f f filler1 practice1 孩子们 然而 想要 深蓝 一起 去 如何 西瓜 剧院 铃铛 观看 演出。 开往。 f j j f j j f filler1 practice1 后天 公司 然后 打算 文件 红色 邀请 专家 聘用 颜色 提供 建议。 打磨。 f f f j f j f filler1 practice1 下星期 上周 老李 蓝天 打算 邀请 小河 踢开 朋友 来家 灰尘 职务。 吃饭。 f j j f j f j filler1 practice1 操场上 运动员 教室 但是 正在 瀑布 进行 一场 甚至 但是 激烈 足球赛。 杯子。 f f j j f j f filler1 practice1 小明 帮助 绿色 邻居 花瓶 打扫 白色 溪水 院里的 字母 尘土 和垃圾。 电脑。 f f f f j j f filler1 practice1 在 和 动物园 很多 而 游客 移动 白云 观看 使用 猴子 表演。 衣柜。 f j f f j j f filler1 practice1 严格的说， 所有 据说 但是 运动员 必须 绿树 白色 接受 兴奋剂 吸尘器 笔墨。 检查。 f f j f j f j filler1 practice1 公园里 有 牙 很多 甚至 美丽 并且 鲜花 黑色 和 空调 挪动。 绿树。 f f f f f f j filler{2A56B525-A794-4C09-9871-087929E5325D}goodbyeTextDisplay{2A56B525-A794-4C09-9871-087929E5325D}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 请休息一下！-1{A000A700-8EDB-4DB1-806D-61EE76C93685}practice1Procedure{A000A700-8EDB-4DB1-806D-61EE76C93685}20820<_VersionPersist dt:dt="int">1fixationR1R2InLine1R3InLine2R4InLine3R5InLine4R6InLine5R7InLine6Label1TextDisplay2Label21fixationR1R2InLine1R3InLine2R4InLine3R5InLine4R6InLine5R7InLine6Label1TextDisplay2Label2{9C086D99-3386-475F-B19F-CF78C2F41D46}R1TextDisplay{9C086D99-3386-475F-B19F-CF78C2F41D46}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardf[key1]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercenterce nterNoCourier New18YesNoNoNo[w1] ...-1{1DA22CAD-E9F2-4582-81E7-F1BCA9551A27}R3TextDisplay{1DA22CAD-E9F2-4582-81E7-F1BCA9551A27}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[key3]1111YesAllYes-10010blackwhiteopaqueblack 0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[w4] [w5]-1{2496391C-7A97-4AD0-AAF9-05017B18C725}R5TextDisplay{2496391C-7A97-4AD0-AAF9-05017B18C725}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0Tim ingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[key5]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[w8] [w9]-1{44107042-163B-4C98-9E96-DB874AE05490}R6TextDisplay{44107042-163B-4C98-9E96-DB874AE05490}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0 StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[key6]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[w10] [w11]-1{082D261E-490A-471E-85BD-DE5E22E568DA}R7TextDisplay{082D261E-490A-471E-85BD-DE5E22E568DA}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[key7]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[w12] [w13]-1{F4CD2EC7-9343-48F4-8D28-5BE279B02FAD}R4TextDisplay< ObjectData>{F4CD2EC7-9343-48F4-8D28-5BE279B02FAD}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[key4]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[w6] [w7]-1{690DC3D5-8D00-4ED0-A979-2195911BDEC0}R2TextDisplay{690DC3D5-8D00-4ED0-A979-2195911BDEC0}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[key2]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[w2] [w3]-1{3E867DD2-7665-4BC0-AF24-713B3C59C5A1}InLine1InLine{3E867DD2-7665-4BC0-AF24-713B3C59C5A1}20820<_VersionPersist dt:dt="int">1if R2.acc=0 then goto Label1 end if{C46DB50C-4945-4B96-BD44-B253E1D61FB9}InLine2InLine{C46DB50C-4945-4B96-BD44-B253E1D61FB9}20820<_VersionPersist dt:dt="int">1if R3.acc=0 then goto Label1 end if{EC998DF3-BB2D-4876-98C6-28CB3439D03A}Label1Label{EC998DF3-BB2D-4876-98C6-28CB3439D03A}20820<_VersionPersist dt:dt="int">1{93314841-966E-4FBB-91D2-04EEF3916BD1}InLine3InLine{93314841-966E-4FBB-91D2-04EEF3916BD1}20820<_VersionPersist dt:dt="int">1if R4.acc=0 then goto Label1 end if{E16E34B4-B34D-4323-AAC6-92BFC8F55B41}InLine4InLine{E16E34B4-B34D-4323-AAC6-92BFC8F55B41}20820<_VersionPersist dt:dt="int">1if R5.acc=0 then goto Label1 end if{CAC4F4B1-53FB-48C0-9166-853EF65F64EB}InLine5InLine{CAC4F4B1-53FB-48C0-9166-853EF65F64EB}20820<_VersionPersist dt:dt="int">1if R6.acc=0 then goto Label1 end if{E43706FC-9C43-4546-8EDB-0345EC4EF91C}fixationTextDisplay{E43706FC-9C43-4546-8EDB-0345EC4EF91C}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo +-1{E3D9791F-38FC-45B4-B88F-8329790D072B}TextDisplay2TextDisplay{E3D9791F-38FC-45B4-B88F-8329790D072B}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDe lay0RTTime0ACC0RT0RESP0CRESP0Tag010000010redwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 回答错误！-1{7EF2A9B9-C8F4-42AB-81E8-33C801D5156C}Label2Label{7EF2A9B9-C8F4-42AB-81E8-33C801D5156C}20820<_VersionPersist dt:dt="int">1{CC2BEF49-04E7-4555-9DAB-FE97FA5CF7B9}InLine6InLine{CC2BEF49-04E7-4555-9DAB-FE97FA5CF7B9}20820<_VersionPersist dt:dt="int">1if R7.acc=0 then goto Label1 else goto Label2 end if{2A0EC8D1-A933-416B-A73F-FD55597C9A85}practiceList{2A0EC8D1-A933-416B-A73F-FD55597C9A85}20820<_VersionPersist dt:dt="int">1pw11pw21pw31pw41pw51pw61pw71pkey11pkey21pkey31pkey41practice11100000001100Weight117510Nested17511Procedure1practice7512pw10?75188pw20?75188pw30?75188pw40?75188pw50?75188pw60?75188pw70?75188pkey10?75188pkey20?75188pkey30?75188pkey40?751881 practice111 小明 白色 递给了 售货员 移动 一元钱。 唱歌。 f j f f1 practice111 奶奶 去 云彩 公园 电脑 蔬菜。 散步。 f f f j1 practice111 老王 每天 但是 步行 绿树 上班。 政策。 f f f f1 practice111 红军 突破了 村庄 打开 敌人的 武器。 包围。 f f j j1 practice111 昨晚 小明 而且 窗台 吃了 牛肉面。 完成。 f f j f{D66187E2-42FB-4B93-AC40-9C016E4AD1A4}TextDisplay3TextDisplay{D66187E2-42FB-4B93-AC40-9C016E4AD1A4}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime< Log dt:dt="boolean">0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo练习结束！ 下面开始正式实验。 按任意键开始。-1{8C3517F1-D66F-4998-B7CB-23AA4940ECE4}practice111Procedure{8C3517F1-D66F-4998-B7CB-23AA4940ECE4}20820<_VersionPersist dt:dt="int">1fixationppr1pr2InLine7pr3InLine9pr4InLine8Label3TextDisplay1Label41fixationppr1pr2InLine7pr3InLine9pr4InLine8Label3TextDisplay1Label4{C24065F7-6A48-43DB-87E1-2986B0DF39C3}fixationpTextDisplay{C24065F7-6A48-43DB-87E1-2986B0DF39C3}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo+-1{16AEBF52-D12A-4CDC-BADD-6AE0D51A73A1}pr1TextDisplay{16AEBF52-D12A-4CDC-BADD-6AE0D51A73A1}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardf[pkey1]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[pw1] ...-1{9FA16399-57ED-4A2A-9C8A-BF8EB9223DF7}pr2TextDisplay{9FA16399-57ED-4A2A-9C8A-BF8EB9223DF7}20820< _VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[pkey2]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[pw2] [pw3]-1{AAB0582F-A 1DF-4ED3-BB6D-410C697438C7}pr4TextDisplay{AAB0582F-A1DF-4ED3-BB6D-410C697438C7}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC< /Name>1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[pkey4]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[pw6] [pw7]-1{9DE21684-E0A3-4BB3-A880-E166C25F02F7}InLine7InLine{9DE21684-E0A3-4BB3-A880-E166C25F02F7}20820<_VersionPersist dt:dt="int">1if pr2.acc=0 then goto Label3 end if{0298F529-EE5B-4369-B392-DB120EFFEFDB}InLine8InLine{0298F529-EE5B-4369-B392-DB120EFFEFDB}20820<_VersionPersist dt:dt="int">1if pr4.acc=0 then goto Label3 else goto Label4 end if{00899ACE-9C8F-43C1-9248-860956B1C9EE}Label3Label{00899ACE-9C8F-43C1-9248-860956B1C9EE}20820<_VersionPersist dt:dt="int">1{B8EFDDE9-549C-47FC-AC51-CB14B882875D}Label4Label{B8EFDDE9-549C-47FC-AC51-CB14B882875D}20820<_VersionPersist dt:dt="int">1{E71CB09D-DC86-4F31-8D9D-4E80A9A5D721}TextDisplay1TextDisplay{E71CB09D-DC86-4F31-8D9D-4E80A9A5D721}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010redwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 回答错误！-1{4AF2DFD4-5EE5-45CF-A052-D68B64B7BC2B}pr3TextDisplay{4AF2DFD4-5EE5-45CF-A052-D68B64B7BC2B}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboardfj[pkey3]1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[pw4] [pw5]-1{297C28AA-1EDB-4045-8AFD-F3A6EBAF5464}InLine9InLine{297C28AA-1EDB-4045-8AFD-F3A6EBAF5464}20820<_VersionPersist dt:dt="int">1if pr3.acc=0 then goto Label3 end if{54407F39-B9DF-45B3-B2C3-16F4EB6D96F0}exampleTextDisplay{54407F39-B9DF-45B3-B2C3-16F4EB6D96F0}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo-1{B082431E-CFF6-46D2-9D41-0151D6B4D784}TextDisplay4TextDisplay{B082431E-CFF6-46D2-9D41-0151D6B4D784}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP< /Name>0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo在屏幕上，您看到“小王 ...”, 此时需要按F键选择左边的“小王”，然后您将看到屏幕上出现“打开了 动物园”两个词，您需要选择哪个词与前面出现的“小王”能够组成合理的句子，因此，正确答案是“打开了”，您需要 按下F键。随后，屏幕上出现“苹果 窗户”两个词，您需要判断哪个词与之前的“小王打开了”能构成合理的句子，正确答案是“窗户”，因此，需要按下J键。也就是说，正确的句子是“小王打开了窗户”。 下面请您练习几个题目，按任意键开始。-1{DC1373D2-7CB9-4C47-93A5-18FA6C81EA7C}Label5Label{DC1373D2-7CB9-4C47-93A5-18FA6C81EA7C}20820<_VersionPersist dt:dt="int">1{167AB57D-3088-49AB-950E-AB8F86000B4F}choiceTextDisplay{167AB57D-3088-49AB-950E-AB8F86000B4F}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboardp{SPACE}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 练习结束。 如果需要再次练习，请按p键。 按空格键进入正式实验。-1{1854F5CC-98A1-4EAD-861E-2373D1340BD9}InLine10InLine{1854F5CC-98A1-4EAD-861E-2373D1340BD9}20820<_VersionPersist dt:dt="int">1if choice.RESP="p" then goto Label5