' 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 '-------------------------------------------------------------------------- 'InitSlideStateDefaults '-------------------------------------------------------------------------- Sub InitSlideStateDefaults(theSlideState As SlideState) If theSlideState Is Nothing Then Exit Sub theSlideState.X = "center" theSlideState.Y = "center" theSlideState.Width = "100%" theSlideState.Height = "100%" theSlideState.BackColor = CColor("white") theSlideState.BackStyle = "opaque" theSlideState.BorderColor = CColor("black") theSlideState.BorderWidth = CLng("0") theSlideState.XAlign = "center" theSlideState.YAlign = "center" theSlideState.ClearAfter = CLogical("No") theSlideState.Enabled = CLogical("Yes") End Sub '-------------------------------------------------------------------------- 'InitSlideVisualStimDefaults '-------------------------------------------------------------------------- Sub InitSlideVisualStimDefaults(theSlideVisualStim As SlideVisualStim) If theSlideVisualStim Is Nothing Then Exit Sub theSlideVisualStim.X = "center" theSlideVisualStim.Y = "center" theSlideVisualStim.Width = "25%" theSlideVisualStim.Height = "25%" theSlideVisualStim.ForeColor = CColor("black") theSlideVisualStim.BackColor = CColor("white") theSlideVisualStim.BackStyle = "opaque" theSlideVisualStim.BorderColor = CColor("black") theSlideVisualStim.BorderWidth = CLng("0") theSlideVisualStim.XAlign = "center" theSlideVisualStim.YAlign = "center" theSlideVisualStim.AlignHorizontal = "center" theSlideVisualStim.AlignVertical = "center" End Sub '-------------------------------------------------------------------------- 'InitSlideTextDefaults '-------------------------------------------------------------------------- Sub InitSlideTextDefaults(theSlideText As SlideText) If theSlideText Is Nothing Then Exit Sub InitSlideVisualStimDefaults theSlideText theSlideText.WordWrap = True theSlideText.FontName = "Courier New" theSlideText.FontSize = "18" theSlideText.FontBold = CLogical("Yes") theSlideText.FontItalic = CLogical("No") theSlideText.FontUnderline = CLogical("No") theSlideText.FontStrikeout = CLogical("No") End Sub '-------------------------------------------------------------------------- 'InitSlideImageDefaults '-------------------------------------------------------------------------- Sub InitSlideImageDefaults(theSlideImage As SlideImage) If theSlideImage Is Nothing Then Exit Sub InitSlideVisualStimDefaults theSlideImage theSlideImage.Stretch = CLogical("No") theSlideImage.MirrorLeftRight = CLogical("No") theSlideImage.MirrorUpDown = CLogical("No") theSlideImage.UseSourceColorKey = CLogical("No") theSlideImage.SourceColorKey = CColor("black") End Sub '-------------------------------------------------------------------------- 'InitSlideSoundBufferDefaults '-------------------------------------------------------------------------- Sub InitSlideSoundBufferDefaults(theSoundBuffer As SoundBuffer) If theSoundBuffer Is Nothing Then Exit Sub theSoundBuffer.Loop = CLogical("No") theSoundBuffer.StopAfter = CLogical("Yes") theSoundBuffer.StartOffset = "0" theSoundBuffer.StopOffset = "0" End Sub '-------------------------------------------------------------------------- 'InitSlideSoundCaptureBufferDefaults '-------------------------------------------------------------------------- Sub InitSlideSoundCaptureBufferDefaults(theSoundCaptureBuffer As SoundCaptureBuffer) If theSoundCaptureBuffer Is Nothing Then Exit Sub End Sub '-------------------------------------------------------------------------- 'InitSlideMovieDefaults '-------------------------------------------------------------------------- Sub InitSlideMovieDefaults(theSlideMovie As SlideMovie) If theSlideMovie Is Nothing Then Exit Sub InitSlideVisualStimDefaults theSlideMovie theSlideMovie.Stretch = CLogical("No") theSlideMovie.StopAfter = CLogical("Yes") theSlideMovie.StartPosition = "00:00:00.000" theSlideMovie.StopPosition = "00:00:00.000" theSlideMovie.EndMovieAction = 0 End Sub '-------------------------------------------------------------------------- 'InitImageDisplayDefaults '-------------------------------------------------------------------------- Sub InitImageDisplayDefaults(theImageDisplay As ImageDisplay) If theImageDisplay Is Nothing Then Exit Sub theImageDisplay.X = "center" theImageDisplay.Y = "center" theImageDisplay.Width = "100%" theImageDisplay.Height = "100%" theImageDisplay.BackColor = CColor("black") theImageDisplay.BackStyle = "opaque" theImageDisplay.BorderColor = CColor("black") theImageDisplay.BorderWidth = CLng("0") theImageDisplay.XAlign = "center" theImageDisplay.YAlign = "center" theImageDisplay.AlignHorizontal = "center" theImageDisplay.AlignVertical = "center" theImageDisplay.ClearAfter = CLogical("No") theImageDisplay.UseSourceColorKey = CLogical("No") theImageDisplay.SourceColorKey = CColor("black") theImageDisplay.MirrorLeftRight = CLogical("No") theImageDisplay.MirrorUpDown = CLogical("No") theImageDisplay.Stretch = 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 sentencelist1 As TextDisplay Dim sentencelist1EchoClients As EchoClientCollection Dim sentencelist2 As TextDisplay Dim sentencelist2EchoClients As EchoClientCollection Dim sentencelist3 As TextDisplay Dim sentencelist3EchoClients As EchoClientCollection Dim sentencelist4 As TextDisplay Dim sentencelist4EchoClients As EchoClientCollection ' List Attribute Constants Const attrib_Weight = "Weight" Const attrib_Nested = "Nested" Const attrib_Procedure = "Procedure" Const attrib_answer = "answer" Const attrib_sentence = "sentence" Const attrib_fankui = "fankui" Const attrib_ID = "ID" Const attrib_condition = "condition" Const attrib_sentence2 = "sentence2" Const attrib_answer2 = "answer2" Const attrib_ID1 = "ID1" Const attrib_type = "type" Dim practicelist As List Dim Procedure1 As Procedure Dim psentence As TextDisplay Dim psentenceEchoClients As EchoClientCollection Dim FeedbackDisplay1 As FeedbackDisplay Dim FeedbackDisplay1_State As SlideState Dim FeedbackDisplay1_SlideText As SlideText Dim fankuiyu As TextDisplay Dim blank1 As Slide Dim blank1_State As SlideState Dim goodbye As TextDisplay Dim instruction3 As TextDisplay Dim instruction3EchoClients As EchoClientCollection Dim testlist As List Dim Procedure2 As Procedure Dim tsentence As TextDisplay Dim tsentenceEchoClients As EchoClientCollection Dim blank2 As Slide Dim blank2_State As SlideState Dim ImageDisplay1 As ImageDisplay Dim ImageDisplay1EchoClients As EchoClientCollection Dim ImageDisplay2 As ImageDisplay Dim ImageDisplay2EchoClients As EchoClientCollection Dim TextDisplay1 As TextDisplay Dim Instruction1 As TextDisplay Dim Instruction1EchoClients As EchoClientCollection Dim Instruction2 As TextDisplay '-------------------------------------------------------------------------- ' Package Declare Script '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- ' User Script '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- ' Package Global Script '-------------------------------------------------------------------------- '-------------------------------------------------------------------------- ' Implementation '-------------------------------------------------------------------------- Sub SessionProc_Run(c as Context) Instruction1.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then Instruction1EchoClients.RemoveAll Instruction1.InputMasks.Add Keyboard.CreateInputMask("{ANY}", "", CLng(Instruction1.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If Instruction1.Run Instruction2.Run practicelist.Run c TextDisplay1.Run instruction3.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then instruction3EchoClients.RemoveAll instruction3.InputMasks.Add Keyboard.CreateInputMask("{ANY}", "", CLng(instruction3.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If instruction3.Run testlist.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 Procedure1_Run(c as Context) psentence.Text = c.GetAttrib("sentence") &_ "\n\n1 or 0 ?" psentence.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then psentenceEchoClients.RemoveAll psentence.InputMasks.Add Keyboard.CreateInputMask("01", c.GetAttrib("answer"), CLng(psentence.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If psentence.Run c.SetAttrib psentence.Name & ".OnsetDelay", psentence.OnsetDelay c.SetAttrib psentence.Name & ".OnsetTime", psentence.OnsetTime c.SetAttrib psentence.Name & ".DurationError", psentence.DurationError c.SetAttrib psentence.Name & ".RTTime", psentence.RTTime c.SetAttrib psentence.Name & ".ACC", psentence.ACC c.SetAttrib psentence.Name & ".RT", psentence.RT c.SetAttrib psentence.Name & ".RESP", psentence.RESP c.SetAttrib psentence.Name & ".CRESP", psentence.CRESP If psentence.ACC = 1 Then 'Set the ActiveState to Correct FeedbackDisplay1.ActiveState = "Correct" Else 'Is it incorrect or no response? If Len(psentence.RESP) > 0 Then 'Set the ActiveState to Incorrect FeedbackDisplay1.ActiveState = "Incorrect" Else 'Set the ActiveState to NoResponse FeedbackDisplay1.ActiveState = "NoResponse" 'Does the author want to consider a NoResponse ' to sum as an incorrect response in the ACC stats? If FeedbackDisplay1.CollectNoRespACCStats = True Then FeedbackDisplay1.AccStats.AddObservation psentence.Acc End If End If End If Select Case FeedbackDisplay1.ActiveState Case "Correct" FeedbackDisplay1.States("Correct").DisplayName = "" Case "Incorrect" FeedbackDisplay1.States("Incorrect").DisplayName = "" Case "NoResponse" FeedbackDisplay1.States("NoResponse").DisplayName = "" Case "Pending" FeedbackDisplay1.States("Pending").DisplayName = "" End Select FeedbackDisplay1.Run fankuiyu.Text = "\n正确的句子是\n\n" &_ c.GetAttrib("fankui") fankuiyu.Run Select Case blank1.ActiveState Case "Default" blank1.States("Default").DisplayName = "" End Select blank1.Run c.SetAttrib psentence.Name & ".OnsetDelay", psentence.OnsetDelay c.SetAttrib psentence.Name & ".OnsetTime", psentence.OnsetTime c.SetAttrib psentence.Name & ".DurationError", psentence.DurationError c.SetAttrib psentence.Name & ".RTTime", psentence.RTTime c.SetAttrib psentence.Name & ".ACC", psentence.ACC c.SetAttrib psentence.Name & ".RT", psentence.RT c.SetAttrib psentence.Name & ".RESP", psentence.RESP c.SetAttrib psentence.Name & ".CRESP", psentence.CRESP ''''''''''''''''''''''''''''''''''''''''''''' 'End Of Procedure Clean-Up ''''''''''''''''''''''''''''''''''''''''''''' Select Case FeedbackDisplay1.ActiveState Case "Correct" Case "Incorrect" Case "NoResponse" Case "Pending" End Select Select Case blank1.ActiveState Case "Default" End Select c.Log End Sub Sub Procedure2_Run(c as Context) tsentence.Text = c.GetAttrib("sentence2") &_ "\n\n1 or 0 ?" tsentence.InputMasks.Reset If Keyboard.GetState() = ebStateOpen Then tsentenceEchoClients.RemoveAll tsentence.InputMasks.Add Keyboard.CreateInputMask("10", c.GetAttrib("answer2"), CLng(tsentence.Duration), CLng("1"), ebEndResponseActionTerminate, CLogical("Yes"), "", "", "ResponseMode:All ProcessBackspace:Yes") End If tsentence.Run c.SetAttrib tsentence.Name & ".OnsetDelay", tsentence.OnsetDelay c.SetAttrib tsentence.Name & ".OnsetTime", tsentence.OnsetTime c.SetAttrib tsentence.Name & ".DurationError", tsentence.DurationError c.SetAttrib tsentence.Name & ".RTTime", tsentence.RTTime c.SetAttrib tsentence.Name & ".ACC", tsentence.ACC c.SetAttrib tsentence.Name & ".RT", tsentence.RT c.SetAttrib tsentence.Name & ".RESP", tsentence.RESP c.SetAttrib tsentence.Name & ".CRESP", tsentence.CRESP Select Case blank2.ActiveState Case "Default" blank2.States("Default").DisplayName = "" End Select blank2.Run c.SetAttrib tsentence.Name & ".OnsetDelay", tsentence.OnsetDelay c.SetAttrib tsentence.Name & ".OnsetTime", tsentence.OnsetTime c.SetAttrib tsentence.Name & ".DurationError", tsentence.DurationError c.SetAttrib tsentence.Name & ".RTTime", tsentence.RTTime c.SetAttrib tsentence.Name & ".ACC", tsentence.ACC c.SetAttrib tsentence.Name & ".RT", tsentence.RT c.SetAttrib tsentence.Name & ".RESP", tsentence.RESP c.SetAttrib tsentence.Name & ".CRESP", tsentence.CRESP ''''''''''''''''''''''''''''''''''''''''''''' 'End Of Procedure Clean-Up ''''''''''''''''''''''''''''''''''''''''''''' Select Case blank2.ActiveState Case "Default" End Select 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 = "{02BB8AC1-7A3C-495D-B59B-124FB59BD14B}" SessionProc.Tag = "" SessionProc.Subroutine = "SessionProc_Run" Set sentencelist1 = New TextDisplay sentencelist1.Name = "sentencelist1" sentencelist1.Guid = "{496106FA-228C-41FA-AE9A-7298DDB71ADB}" sentencelist1.Tag = "" Set sentencelist1EchoClients = New EchoClientCollection sentencelist1.LoadProperties Set sentencelist2 = New TextDisplay sentencelist2.Name = "sentencelist2" sentencelist2.Guid = "{EF4F8B04-B2C5-4ACA-AA97-6A555F44A206}" sentencelist2.Tag = "" Set sentencelist2EchoClients = New EchoClientCollection sentencelist2.LoadProperties Set sentencelist3 = New TextDisplay sentencelist3.Name = "sentencelist3" sentencelist3.Guid = "{1A9FD9B8-BF33-41A9-BB0D-6606FF713FDC}" sentencelist3.Tag = "" Set sentencelist3EchoClients = New EchoClientCollection sentencelist3.LoadProperties Set sentencelist4 = New TextDisplay sentencelist4.Name = "sentencelist4" sentencelist4.Guid = "{05CE3D9C-C9A2-402E-9289-6B9D75D17D9C}" sentencelist4.Tag = "" Set sentencelist4EchoClients = New EchoClientCollection sentencelist4.LoadProperties Set practicelist = New List practicelist.Name = "practicelist" practicelist.Guid = "{EDB5F5A1-FDF5-41B2-B49A-C24AA0F66B70}" practicelist.Tag = "" 'Initialization for practicelist Set practicelist.Order = New RandomOrder Set practicelist.Deletion = NoDeletion practicelist.ResetEveryRun = False practicelist.LoadProperties Set practicelist.TerminateCondition = Cycles(1) Set practicelist.ResetCondition = Samples(80) practicelist.Reset Set Procedure1 = New Procedure Procedure1.Name = "Procedure1" Procedure1.Guid = "{1E34348B-7333-4534-B0F4-570E0E4B9722}" Procedure1.Tag = "" Procedure1.Subroutine = "Procedure1_Run" Set psentence = New TextDisplay psentence.Name = "psentence" psentence.Guid = "{78B36BF8-EFE5-4A76-A9B0-ADA244235C62}" psentence.Tag = "" Set psentenceEchoClients = New EchoClientCollection psentence.LoadProperties Set FeedbackDisplay1 = New FeedbackDisplay FeedbackDisplay1.Name = "FeedbackDisplay1" FeedbackDisplay1.Guid = "{8DA3ED3F-9E36-4F92-A31A-E69C718777C3}" FeedbackDisplay1.Tag = "" FeedbackDisplay1.LoadProperties Set fankuiyu = New TextDisplay fankuiyu.Name = "fankuiyu" fankuiyu.Guid = "{E02A866A-A997-429A-8723-02E661CD51DD}" fankuiyu.Tag = "" fankuiyu.LoadProperties Set blank1 = New Slide blank1.Name = "blank1" blank1.Guid = "{9172A36C-4714-47D5-88C0-F36911C3139F}" blank1.Tag = "" blank1.LoadProperties Set goodbye = New TextDisplay goodbye.Name = "goodbye" goodbye.Guid = "{7496AF7B-97B1-42C5-80DC-4493AA74A99D}" goodbye.Tag = "" goodbye.LoadProperties Set instruction3 = New TextDisplay instruction3.Name = "instruction3" instruction3.Guid = "{19F20845-F51B-498E-8493-B3A2E28E0EC0}" instruction3.Tag = "" Set instruction3EchoClients = New EchoClientCollection instruction3.LoadProperties Set testlist = New List testlist.Name = "testlist" testlist.Guid = "{0330E795-D062-4978-82F3-19D2B8227937}" testlist.Tag = "" 'Initialization for testlist Set testlist.Order = New RandomOrder Set testlist.Deletion = NoDeletion testlist.ResetEveryRun = False testlist.LoadProperties Set testlist.TerminateCondition = Cycles(1) Set testlist.ResetCondition = Samples(48) testlist.Reset Set Procedure2 = New Procedure Procedure2.Name = "Procedure2" Procedure2.Guid = "{6FC948CC-2FF3-4AED-9158-B8A1979D90BE}" Procedure2.Tag = "" Procedure2.Subroutine = "Procedure2_Run" Set tsentence = New TextDisplay tsentence.Name = "tsentence" tsentence.Guid = "{58CAC270-2B6C-4845-A1E9-13E18266249B}" tsentence.Tag = "" Set tsentenceEchoClients = New EchoClientCollection tsentence.LoadProperties Set blank2 = New Slide blank2.Name = "blank2" blank2.Guid = "{413D0819-8CE1-4C1D-B903-2EB983D3E12D}" blank2.Tag = "" blank2.LoadProperties Set ImageDisplay1 = New ImageDisplay ImageDisplay1.Name = "ImageDisplay1" ImageDisplay1.Guid = "{47D48219-2FF8-4453-8D55-1A02E8FEDCA2}" ImageDisplay1.Tag = "" Set ImageDisplay1EchoClients = New EchoClientCollection ImageDisplay1.LoadProperties Set ImageDisplay2 = New ImageDisplay ImageDisplay2.Name = "ImageDisplay2" ImageDisplay2.Guid = "{116A3707-533D-457D-9287-BEF2C1AEF00D}" ImageDisplay2.Tag = "" Set ImageDisplay2EchoClients = New EchoClientCollection ImageDisplay2.LoadProperties Set TextDisplay1 = New TextDisplay TextDisplay1.Name = "TextDisplay1" TextDisplay1.Guid = "{C6CD66C3-3DF2-437E-A59D-872D34C6A91A}" TextDisplay1.Tag = "" TextDisplay1.LoadProperties Set Instruction1 = New TextDisplay Instruction1.Name = "Instruction1" Instruction1.Guid = "{CC5EC59B-634F-4643-92DE-42E00F0E8CAD}" Instruction1.Tag = "" Set Instruction1EchoClients = New EchoClientCollection Instruction1.LoadProperties Set Instruction2 = New TextDisplay Instruction2.Name = "Instruction2" Instruction2.Guid = "{14AF4890-2CEA-4EDB-B3E8-78501EF853C7}" Instruction2.Tag = "" Instruction2.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 sentencelist1 = Nothing Set sentencelist1EchoClients = Nothing Set sentencelist2 = Nothing Set sentencelist2EchoClients = Nothing Set sentencelist3 = Nothing Set sentencelist3EchoClients = Nothing Set sentencelist4 = Nothing Set sentencelist4EchoClients = Nothing Set practicelist = Nothing Set Procedure1 = Nothing Set psentence = Nothing Set psentenceEchoClients = Nothing Set FeedbackDisplay1 = Nothing Set fankuiyu = Nothing Set blank1 = Nothing Set goodbye = Nothing Set instruction3 = Nothing Set instruction3EchoClients = Nothing Set testlist = Nothing Set Procedure2 = Nothing Set tsentence = Nothing Set tsentenceEchoClients = Nothing Set blank2 = Nothing Set ImageDisplay1 = Nothing Set ImageDisplay1EchoClients = Nothing Set ImageDisplay2 = Nothing Set ImageDisplay2EchoClients = Nothing Set TextDisplay1 = Nothing Set Instruction1 = Nothing Set Instruction1EchoClients = Nothing Set Instruction2 = 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", "program(script) revised " 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" ' 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) ' Display the summary Dim strSummary As String strSummary = "Subject: " & c.GetAttrib("Subject") & "\n" strSummary = strSummary & "Session: " & c.GetAttrib("Session") & "\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! ********** {02BB8AC1-7A3C-495D-B59B-124FB59BD14B}SessionProcProcedure{02BB8AC1-7A3C-495D-B59B-124FB59BD14B}20820<_VersionPersist dt:dt="int">1Instruction1Instruction2practicelistTextDisplay1instruction3testlistgoodbye1Instruction1Instruction2practicelistTextDisplay1instruction3testlistgoodbye{496106FA-228C-41FA-AE9A-7298DDB71ADB}sentencelist1TextDisplay{496106FA-228C-41FA-AE9A-7298DDB71ADB}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes300000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 1.老板は 奖金を 发放了. 2.家长は 孩子を 鞭打了. 3.老师は 学生を 表扬了. 4.大火は 房屋を 烧毁了. -1{EF4F8B04-B2C5-4ACA-AA97-6A555F44A206}sentencelist2TextDisplay{EF4F8B04-B2C5-4ACA-AA97-6A555F44A206}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDe lay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes300000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 5.使馆は 家属に 噩耗を 告诉了. 6.司令は 逃兵に 耳光を 扇了. 7.将军は 士兵に 勋章を 授予了. 8.厨师は 贵宾に 美食を 献上了. -1{1A9FD9B8-BF33-41A9-BB0D-6606FF713FDC}sentencelist3TextDisplay{1A9FD9B8-BF33-41A9-BB0D-6606FF713FDC}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDe lay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes300000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 9. 儿子は 金牌を 获得了 父亲は 说. 10.公司は 薪水を 提高了 员工は 说. 11.奶奶は 癌症を 患上了 医生は 说. 12.卡车は 老人を 撞倒了 证人は 说. -1{05CE3D9C-C9A2-402E-9289-6B9D75D17D9C}sentencelist4TextDisplay{05CE3D9C-C9A2-402E-9289-6B9D75D17D9C}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDe lay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes300000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 13.房屋を 洪水は 淹没了 村民は 说. 14.食物を 厨师は 烧焦了 顾客は 说. 15.冠军を 中国は 赢得了 主席は 说. 16.囚犯を 自由は 获得了 法官は 说. -1{EDB5F5A1-FDF5-41B2-B49A-C24AA0F66B70}practicelistList{EDB5F5A1-FDF5-41B2-B49A-C24AA0F66B70}20820<_VersionPersist dt:dt="int">1answer1sentence1fankui1ID1condition1Procedure110000001100Weight116510Nested16511Procedure1Procedure18912answer0?68188sentence0?214188fankui0?193188ID0?41188condition0?751881 Procedure1 1 游客は 文物を 破坏了. 游客は 文物を 破坏了. 1 SOV1 Procedure1 1 继母は 孩子を 虐待了. 继母は 孩子を 虐待了. 2 SOV1 Procedure1 1 老师は 学生を 批评了. 老师は 学生を 批评了. 3 SOV1 Procedure1 1 商家は 顾客を 欺骗了. 商家は 顾客を 欺骗了. 4 SOV1 Procedure1 1 小王は 美食を 品尝了. 小王は 美食を 品尝了. 5 SOV1 Procedure1 1 校长は 奖品を 颁发了. 校长は 奖品を 颁发了. 6 SOV1 Procedure1 1 观众は 演出を 称赞了. 观众は 演出を 称赞了. 7 SOV1 Procedure1 1 公司は 工资を 提高了. 公司は 工资を 提高了. 8 SOV1 Procedure1 1 男孩は 月亮を 看见了. 男孩は 月亮を 看见了. 9 SOV1 Procedure1 1 小王は 松树を 种植了. 小王は 松树を 种植了. 10 SOV1 Procedure1 0 饼干を 购买了 小王は. 小王は 饼干を 购买了. 11 SOV1 Procedure1 0 消息を 公布了 媒体は. 媒体は 消息を 公布了. 12 SOV1 Procedure1 0 献上了 鲜花を 观众は. 观众は 鲜花を 献上了. 13 SOV1 Procedure1 0 游客は 欣赏了 美景を. 游客は 美景を 欣赏了. 14 SOV1 Procedure1 0 书稿を 烧毁了 作家は. 作家は 书稿を 烧毁了. 15 SOV1 Procedure1 0 日军は 杀死了 平民を. 日军は 平民を 杀死了. 16 SOV1 Procedure1 0 妈妈は 烘烤了 面包を. 妈妈は 面包を 烘烤了. 17 SOV1 Procedure1 0 囚犯を 虐待了 狱警は. 狱警は 囚犯を 虐待了. 18 SOV1 Procedure1 0 牲畜を 宰杀了 屠夫は. 屠夫は 牲畜を 宰杀了. 19 SOV1 Procedure1 0 庆祝了 作家は 生日は. 作家は 生日を 庆祝了. 20 SOV1 Procedure1 1 交警は 司机に 罚单を 开具了. 交警は 司机に 罚单を 开具了. 21 SIOV1 Procedure1 1 男孩は 母亲に 康乃馨を 送了. 男孩は 母亲に 康乃馨を 送了. 22 SIOV1 Procedure1 1 骗子は 老人に 积蓄を 骗走了. 骗子は 老人に 积蓄を 骗走了. 23 SIOV1 Procedure1 1 政府は 市民に 便利を 提供了. 政府は 市民に 便利を 提供了. 24 SIOV1 Proc edure1 1 小王は 老板に 辞呈を 递交了. 小王は 老板に 辞呈を 递交了. 25 SIOV1 Procedure1 1 孙女は 奶奶に 喜讯を 告诉了. 孙女は 奶奶に 喜讯を 告诉了. 26 SIOV1 Procedure1 1 女孩は 富翁に 财产を 骗走了. 女孩は 富翁に 财产を 骗走了. 27 SIOV1 Procedure1 1 老板は 员工に 奖金を 发放了. 老板は 员工に 奖金を 发放了. 28 SIOV1 Procedure1 1 老板は 员工に 补贴を 发放了. 老板は 员工に 补贴を 发放了. 29 SIOV1 Procedure1 1 男孩は 女孩に 礼物を 送给了. 男孩は 女孩に 礼物を 送给了. 30 SIOV1 Procedure1 0 将军は 颁发了 士兵に 勋章を. 将军は 士兵に 勋章を 颁发了. 31 SIOV1 Procedure1 0 授予了 主席は 科学家に 荣誉を. 主席は 科学家に 荣誉を 授予了. 32 SIOV1 Procedure1 0 男孩は 送了 女朋友に 鲜花を. 男孩は 女朋友に 鲜花を 送了 . 33 SIOV1 Procedure1 0 服务员は 端上了 顾客に 菜肴を. 服务员は 顾客に 菜肴を 端上了. 34 SIOV1 Procedure1 0 法院は 杀人犯に 判了 死刑を. 法院は 杀人犯に 死刑を 判了. 35 SIOV1 Procedure1 0 商店は 顾客に 指责了 偷窃を. 商店は 顾客に 偷窃を 指责了. 36 SIOV1 Procedure1 0 老师は 奖状を 学生に 授予了. 老师は 学生に 奖状を 授予了. 37 SIOV1 Procedure1 0 外宾に 礼物を 赠送了 校长は. 校长は 外宾に 礼物を 赠送了. 38 SIOV1 Procedure1 0 老师は 学生に 实施了 体罚を. 老师は 学生に 体罚を 实施了. 39 SIOV1 Procedure1 0 小偷は 女孩に 偷走了 手机を. 小偷は 女孩に 手机を 偷走了. 40 SIOV1 Procedure1 1 金店は 黄金を 丢失了 经理は 说. 金店は 黄金を 丢失了 经理は 说. 41 SOVSV1 Procedure1 1 工厂は 农田を 污染了 农民は 说. 工厂は 农田を 污染了 农民は 说. 42 SOVSV1 Procedure1 1 被告は 证据を 捏造了 律师は 认为. 被告は 证据を 捏造了 律师は 认为. 43 SOVSV1 Procedure1 1 赛车は 山羊を 撞死了 路人は 说. 赛车は 山羊を 撞死了 路人は 说. 44 SOVSV1 Procedure1 1 中国队は 比赛を 赢得了 裁判は 说. 中国队は 比赛を 赢得了 裁判は 说. 45 SOVSV1 Procedure1 1 新娘は 婚纱を 穿上了 客人は 说. 新娘は 婚纱を 穿上了 客人は 说. 46 SOVSV1 Procedure1 1 选手は 信心を 充满了 教练は 说. 选手は 信心を 充满了 教练は 说. 47 SOVSV1 Procedure1 1 诗人は 赞誉を 获得了 记者は 说. 诗人は 赞誉を 获得了 记者は 说. 48 SOVSV1 Procedure1 1 学生は 教室を 打扫了 老师は 说. 学生は 教室を 打扫了 老师は 说. 49 SOVSV1 Procedure1 1 小鸟は 虫子を 吃掉了 孩子は 说. 小鸟は 虫子を 吃掉了 孩子は 说. 50 SOVSV1 Procedure1 0 狗熊は 袭击了 家禽を 村民は 说. 狗熊は 家禽を 袭击了 村民は 说. 51 SOVSV1 Procedure1 0 服务员は 酒杯を 顾客は 抱怨 打翻了. 服务员は 酒杯を 打翻了 顾客は 抱怨. 52 SOVSV1 Procedure1 0 地震は 汶川を 摧毁了 报道 记者は. 地震は 汶川を 摧毁了 记者は 报道. 53 SOVSV1 Procedure1 0 局长は 贪污了 公款を 警察は 说. 局长は 公款を 贪污了 警察は 说. 54 SOVSV1 Procedure1 0 自由を 获得了 囚犯は 法官は 宣布. 囚犯は 自由を 获得了 法官は 宣布. 55 SOVSV1 Procedure1 0 说 妈妈は 女儿を 亲吻了 奶奶は. 妈妈は 女儿を 亲吻了 奶奶は 说. 56 SOVSV1 Procedure1 0 医生は 说 患者は 放弃了 治疗を. 患者は 治疗を 放弃了 医生は 说. 57 SOVSV1 Procedure1 0 强盗は 盗取了 佛像を 侦探は 说. 强盗は 佛像を 盗取了 侦探は 说. 58 SOVSV1 Procedure1 0 厨师は 说 顾客は 美食を 称赞了. 顾客は 美食を 称赞了 厨师は 说 . 59 SOVSV1 Procedure1 0 室友は 女孩は 鲜花を 收到了 说. 女孩は 鲜花を 收到了 室友は 说. 60 SOVSV1 Procedure1 1 乘客を 司机は 殴打了 警察は 说. 乘客を 司机は 殴打了 警察は 说. 61 OSVSV1 Procedure1 1 栏杆を 汽车は 撞坏了 路人は 说. 栏杆を 汽车は 撞坏了 路人は 说. 62 OSVSV1 Procedure1 1 传票を 法院は 送来了 经理は 说. 传票を 法院は 送来了 经理は 说. 63 OSVSV1 Procedure1 1 双腿を 战士は 失去了 医生は 说. 双腿を 战士は 失去了 医生は 说. 64 OSVSV1 Procedure1 1 考试を 儿子は 通过了 妈妈は 说. 考试を 儿子は 通过了 妈妈は 说. 65 OSVSV1 Procedure1 1 好评を 演出は 受到了 导演は 说. 好评を 演出は 受到了 导演は 说. 66 OSVSV1 Procedure1 1 纪录を 刘翔は 创造了 裁判は 说. 纪录を 刘翔は 创造了 裁判は 说. 67 OSVSV1 Procedure1 1 对手を 运动员は 战胜了 教练は 说. 对手を 运动员は 战胜了 教练は 说. 68 OSVSV1 Procedure1 1 证据を 警察は 采集了 媒体は 说. 证据を 警察は 采集了 媒体は 说. 69 OSVSV1 Procedure1 1 工资を 老板は 克扣了 工人は 说. 工资を 老板は 克扣了 工人は 说. 70 OSVSV1 Procedure1 0 证据を 采集了 警察は 目击者は 说. 证据を 警察は 采集了 目击者は 说. 71 OSVSV1 Procedure1 0 老板は 发放了 工资を 工人は 说. 老板は 工资を 发放了 工人は 说. 72 OSVSV1 Procedure1 0 房屋を 大火は 村民は 说 烧毁了. 房屋を 大火は 烧毁了 村民は 说. 73 OSVSV1 Procedure1 0 花光了 赃款を 贪官は 警察は 说. 赃款を 贪官は 花光了 警察は 说. 74 OSVSV1 Procedure1 0 员工は 说 工资を 公司は 提高了. 工资を 公司は 提高了 员工は 说. 75 OSVSV1 Procedure1 0 大奖を 邻居は 说 老张は 中了. 大奖を 彩票は 中了 邻居は 说. 76 OSVSV1 Procedure1 0 女孩は 说 面条を 厨师は 煮好了. 面条を 厨师は 煮好了 女孩は 说. 77 OSVSV1 Procedure1 0 生活は 充满了 快乐を 说 作家は . 快乐を 生活は 充满了 作家は 说. 78 OSVSV1 Procedure1 0 花瓶を 打碎了小猫は 男孩は 说. 花瓶を小猫は 打碎了 男孩は 说. 79 OSVSV1 Procedure1 0 奸细は 泄露了 机密を 连长は 说. 奸细は 机密を 泄露了 连长は 说. 80 OSVSV{1E34348B-7333-4534-B0F4-570E0E4B9722}Procedure1Procedure{1E34348B-7333-4534-B0F4-570E0E4B9722}20820<_VersionPersist dt:dt="int">1psentenceFeedbackDisplay1fankuiyublank11psentenceFeedbackDisplay1fankuiyublank1{78B36BF8-EFE5-4A76-A9B0-ADA244235C62}psentenceTextDisplay{78B36BF8-EFE5-4A76-A9B0-ADA244235C62}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0 CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboard01[answer]1111YesAllYes70000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[sentence] 1 or 0 ?-1{8DA3ED3F-9E36-4F92-A31A-E69C718777C3}FeedbackDisplay1FeedbackDisplay{8DA3ED3F-9E36-4F92-A31A-E69C718777C3}20820<_VersionPersist dt:dt="int">2OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0Correctwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1bluewhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNo NoCorrect!-1Incorrectwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0black51%18%75%10%centercenterleftcenterCourier New18YesNoNoNoIncorrect！-1NoResponsewhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoNo response detected.-1Pendingwhiteopaqueblack0centercenter100%100%centercenterNoYes20000010000001.0Percent1000.0###0.0001000.0###0.0001000.0###0.000psentence{E02A866A-A997-429A-8723-02E661CD51DD}fankuiyuTextDisplay{E02A866A-A997-429A-8723-02E661CD51DD}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag020000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 正确的句子是 [fankui]-1{9172A36C-4714-47D5-88C0-F36911C3139F}blank1Slide{9172A36C-4714-47D5-88C0-F36911C3139F}20820<_VersionPersist dt:dt="int">15OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay< /Name>0RTTime0ACC0RT0RESP0CRESP0Tag0Defaultwhiteopaqueblack0centercenter100%100%centercenterNoYes10000Default010{7496AF7B-97B1-42C5-80DC-4493AA74A99D}goodbyeTextDisplay{7496AF7B-97B1-42C5-80DC-4493AA74A99D}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo The End. Thank you for participating!-1{19F20845-F51B-498E-8493-B3A2E28E0EC0}instruction3TextDisplay{19F20845-F51B-498E-8493-B3A2E28E0EC0}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 请按照同样方式继续答题。 判断下列句子的语法结构是否正确。 如果正确，按下1键。如果错误，按下0键。 按任意键开始答题。-1{0330E795-D062-4978-82F3-19D2B8227937}testlistList{0330E795-D062-4978-82F3-19D2B8227937}20820<_VersionPersist dt:dt="int">1sentence21answer21ID11condition1type1Procedure210000001100Weight117510Nested17511Procedure1Procedure29612sentence20?242188answer20?75188ID10?75188condition0?75188type0?751881 Procedure2 红军は 胜利を 取得了. 1 1 SOV simple1 Procedure2 老师は 笑容を 露出了. 1 2 SOV simple1 Procedure2 男孩は 梦想を 实现了. 1 3 SOV simple1 Procedure2 地震は 城市を 摧毁了. 1 4 SOV simple1 Procedure2 商店は 顾客を 欺骗了. 1 5 SOV simple1 Procedure2 男孩は 花瓶を 摔碎了. 1 6 SOV simple1 Procedure2 秘书は 丢失了 文件を. 0 7 SOV simple1 Procedure2 抢走了 强盗は 黄金を. 0 8 SOV simple1 Procedure2 冠军を 获得了 小明は. 0 9 SOV simple1 Procedure2 厨师は 烧焦了 食物を. 0 10 SOV simple1 Procedure2 观众は 发出了 喝彩を. 0 11 SOV simple1 Procedure2 品尝了 蛋糕を 女孩は. 0 12 SOV simple1 Procedure2 法院は 被告に 申诉权を 剥夺了. 1 13 SIOV simple1 Procedure2 强盗は 商人に 财物を 抢走了. 1 14 SIOV simple1 Procedure2 人们は 纪念碑に 花圈を 献上了. 1 15 SIOV simple1 Procedure2 老板は 员工に 奖状を 颁发了. 1 16 SIOV simple1 Procedure2 金牌を 主席は 冠军に 颁发了. 1 17 SIOV simple1 Procedure2 邮递员は 老人に 喜讯を 带来了. 1 18 SIOV simple1 Procedure2 带来了 孩子は 快乐に 家庭を. 0 19 SIOV simple1 Procedure2 公司は 工资を 拖欠了 员工に. 0 20 SIOV simple1 Procedure2 战争は 带来了 人们に 灾难を. 0 21 SIOV simple1 Procedure2 主席は 礼物を 外宾に 赠送了. 0 22 SIOV simple1 Procedure2 儿子に 爸爸は 惊喜を 送给了. 0 23 SIOV simple1 Procedure2 离异は 孩子に 造成了 创伤を. 0 24 SIOV simple1 Procedure2 商家は 顾客を 欺骗了 律师は 说. 1 25 SOVSV complex1 Procedure2 小偷は 黄金を 偷走了 主人は 说. 1 26 SOVSV complex1 Procedure2 球员は 兴奋剂を 服用了 裁判は 说. 1 27 SOVSV complex1 Procedure2 挑战者は 珠峰を 登上了 记者は 说. 1 28 SOVSV complex1 Procedure2 奶奶は 春联を 贴上了 孩子は 说. 1 29 SOVSV complex1 Procedure2 姚明は 荣誉を 获得了 记者は 说. 1 30 SOVSV complex1 Procedure2 记者は 战士は 生命を 献出了 说. 0 31 SOVSV complex1 Procedure2 病人は 肝炎を 患上了 医生は 说. 0 32 SOVSV complex1 Procedure2 小伙子は 迎娶了 美女を 邻居は 说. 0 33 SOVSV complex1 Procedure2 小红は 获得了 奖学金を 说 老师は. 0 34 SOVSV complex1 Procedure2 农民は 说 丰收を 获得了 小麦は. 0 35 SOVSV complex1 Procedure2 法官は 说 被告は 毒品を 贩卖了. 0 36 SOVSV complex1 Procedure2 毒品を 明星は 吸食了 警察は 说. 1 37 OSVSV complex1 Procedure2 困境を 公司は 陷入了 经理は 说. 1 38 OSVSV complex1 Procedure2 偷袭を 部队は 遭遇了 士兵は 说 1 39 OSVSV complex1 Procedure2 冠军を 金牌は 亲吻了 观众は 说. 1 40 OSVSV complex1 Procedure2 大学を 小王は 考上了 村民は 说. 1 41 OSVSV complex1 Procedure2 胜利を 战士は 庆祝了 连长は 说. 1 42 OSVSV complex1 Procedure2 庄稼を 破坏了 老鼠は 农民 说は. 0 43 OSVSV complex1 Procedure2 冲垮了 堤坝を 洪水は 渔民は 说. 0 44 OSVSV complex1 Procedure2 伙食を 食堂は 学生は 说 改善了. 0 45 OSVSV complex1 Procedure2 妈妈は 唱起了 摇篮曲を 孩子は 说. 0 46 OSVSV complex1 Procedure2 邻居は 说 老王は 收到 了 贺礼を. 0 47 OSVSV complex1 Procedure2 咬伤了 游客を 毒蛇は 导游は 说. 0 48 OSVSV complex{6FC948CC-2FF3-4AED-9158-B8A1979D90BE}Procedure2Procedure{6FC948CC-2FF3-4AED-9158-B8A1979D90BE}20820<_VersionPersist dt:dt="int">1tsentenceblank21tsentenceblank2{58CAC270-2B6C-4845-A1E9-13E18266249B}tsentenceTextDisplay{58CAC270-2B6C-4845-A1E9-13E18266249B}20820<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboard10[answer2]1111YesAll

Yes70000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[sentence2] 1 or 0 ?-1{413D0819-8CE1-4C1D-B903-2EB983D3E12D}blank2Slide{413D0819-8CE1-4C1D-B903-2EB983D3E12D}20820<_VersionPersist dt:dt="int">15OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay< /Name>0RTTime0ACC0RT0RESP0CRESP0Tag0Defaultwhiteopaqueblack0centercenter100%100%centercenterNoYes10000Default010{47D48219-2FF8-4453-8D55-1A02E8FEDCA2}ImageDisplay1ImageDisplay的得到{47D48219-2FF8-4453-8D55-1A02E8FEDCA2}20820<_VersionPersist dt:dt="int">1Ons etDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010NoNoNowhiteopaqueblack0centercenter100%100%centercentercentercenterNoblackNo{116A3707-533D-457D-9287-BEF2C1AEF00D}ImageDisplay2ImageDisplay{116A3707-533D-457D-9287-BEF2C1AEF00D}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010instruction4.bmpNoNoNowhiteopaqueblack0centercenter100%100%centercentercentercenterNoblackNo< DataSection>{C6CD66C3-3DF2-437E-A59D-872D34C6A91A}TextDisplay1TextDisplay{C6CD66C3-3DF2-437E-A59D-872D34C6A91A}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 学习任务结束！-1{CC5EC59B-634F-4643-92DE-42E00F0E8CAD}Instruction1TextDisplay{CC5EC59B-634F-4643-92DE-42E00F0E8CAD}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0Of fsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo欢迎参加本次实验！ 下面，你将学习一种新的语言。 这种语言由汉字构成， 但是，其语法结构与汉语并不相同。 如你准确就绪，请按任意键开始实验。-1{14AF4890-2CEA-4EDB-B3E8-78501EF853C7}Instruction2TextDisplay{14AF4890-2CEA-4EDB-B3E8-78501EF853C7}20820<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo 下面，你将看到一些句子。 请你认真观察，并判断这些句子的语法结构是否正确。正确请按1键，错误请按0键。作答完毕后，你将会得到反馈（‘回答正确！’或‘回答错误！’），然后你将看到正确的句子。 按任意键开始学习。-1