2010252<_VersionPersist dt:dt="int">200{C6CF41AF-9601-42A6-9B49-5CC0650DE0D8}SessionProcDifferentiateShiftAltPsychology Software Tools, Inc. (Brandon S. Cernicky & Michael Hout)This experiment demonstrates using the .DATA property of the ResponseData object to differentiate between left and right SHIFT/ALT key presses. The .RESP property of a ResponseData object will return bracket notation of the response if a special character key was pressed. For example, pressing the left SHIFT key will result in a .RESP value of {SHIFT}. However, the ResponseData object also has a .DATA property that returns the device specific entry for the response. That is, a unique integer value of the key that was pressed. For example, the left SHIFT key will return a .DATA value of 42, and the right SHIFT key will return a .DATA value of 54. Since the left or right SHIFT/ALT keys cannot be specified within the E-Studio GUI, InLine script following the Stimulus object must use the .DATA property to determine which key was pressed. In the first block of trials, this is used to simply set the appropriate Stimulus.ACC value. In the second block of trials, a Goto command is used to loop back to the Stimulus until the subject presses the correct key.{10343DBD-55BE-45C7-AA62-A5239F6918AB}01100512013-08-19T14:26:55.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048032white1039201NoYes10%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11001MouseMouse<_VersionPersist dt:dt="int">1-11000SoundSound<_VersionPersist dt:dt="int">1-10DirectSound-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel10101SubjectPlease enter the Subject Number (1-32767, 0=No Data Logging):0-1-11032767SessionPlease enter the Session Number (1-32767):0-1-11132767GroupPlease enter Subject's Group (0-32767):0001032767NamePlease enter Subject's Name:100255AgePlease enter Subject's Age (0-150):00000150SexPlease enter Subject's Sex:200malemalefemaleHandednessEnter Subject's Handedness:200leftleftrightResearcherIDPlease enter Researcher's ID:0001032767SessionProcProcedure{B0AA5163-E28D-447B-A2B3-955079C2D680}2010254<_VersionPersist dt:dt="int">201HelloStickyKeysStartTestingTestingListStartAllowableAllowableListGoodbye101222HelloTextDisplayStickyKeysTextDisplayStartTestingTextDisplayTestingListListStartAllowableTextDisplayAllowableListListGoodbyeTextDisplayGoodbyeTextDisplay{5878C572-8B66-4DFC-9551-429CED8A7816}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThank you and Goodbye!-1000AllowableListList{8A7FF83E-4644-4270-859E-2FA9F0FCEB81}2010258<_VersionPersist dt:dt="int">5Stimulus1AllowableKeyNum1AllowableProc000000001100Weight17510Nested17511Procedure17512Stimulus0?75188AllowableKeyNum0?1201881 AllowableProc RIGHT SHIFT 541 AllowableProc LEFT SHIFT 421 AllowableProc RIGHT ALT 1841 AllowableProc LEFT ALT 56AllowableProcProcedure{49322C11-C931-4B28-84EB-A106FA0512B1}2010254<_VersionPersist dt:dt="int">201SetTimerRespondAgainStimulusAllowSelectKeyCalculateRTFeedbackDisplay2101222SetTimerInLineRespondAgainLabelStimulusTextDisplayAllowSelectKeyInLineCalculateRTInLineFeedbackDisplay2FeedbackDisplaySetTimerInLine{2014C2A6-5833-4B4E-AA70-4FEFC98EC00C}2010262<_VersionPersist dt:dt="int">1'Declare a variable of type long to accomodate a clock.read command Dim StartTime As Long 'Set variable equal to current clock time StartTime = Clock.ReadRespondAgainLabelFor this block of trials, the AllowSelectKey InLine object will loop back to this label until the subject presses the appropriate key.{E2B19C14-F76D-4630-B75E-7332B97CB138}2010263<_VersionPersist dt:dt="int">1StimulusTextDisplayThe Correct field is left blank. Since the left or right SHIFT/ALT keys cannot be specified in the E-Studio GUI, an InLine script following this object will determine if a correct response was made.{C66F8FAF-2A43-4B8B-8E54-E6A588A5E66E}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0OnsetToOnsetTime1KeyboardKeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoPress the [STIMULUS]-1000AllowSelectKeyInLine{BEA4E4ED-5B8E-4301-AD5C-2337CE4A300A}2010262<_VersionPersist dt:dt="int">1 'Set the text of your object here Dim theResponseObject As RteRunnableInputObject Set theResponseObject = CRteRunnableInputObject(Rte.GetObject("Stimulus")) 'If this assert fires, then the object ' named above does not exist in your experiment Debug.Assert Not theResponseObject Is Nothing 'Was a response made? If theResponseObject.InputMasks.Responses.Count > 0 Then Dim theResponseData As ResponseData Set theResponseData = theResponseObject.InputMasks.Responses(1) 'Set the properties theResponseObject.RT = theResponseData.RT 'Prints the .DATA value in the Debug window for verification Debug.Print theResponseData.Data 'Assess the .DATA value; if not correct, jump back to RespondAgain label object If theResponseData.Data <> c.GetAttrib ("AllowableKeyNum") Then GoTo RespondAgain End If 'Accuracy If theResponseData.Data = c.GetAttrib("AllowableKeyNum") Then theResponseObject.Acc = 1 Else theResponseObject.Acc = 0 End If End If CalculateRTInLine{D5B4272B-4E01-495E-9F42-A939F27B8054}2010262<_VersionPersist dt:dt="int">1 'Set the RT manually; equal to the RTTime - StartTime Stimulus.RT = Stimulus.RTTime - StartTimeFeedbackDisplay2FeedbackDisplay{54AB681F-E1AD-471B-B733-0A4F486BAF1B}2010273<_VersionPersist dt:dt="int">110OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0Correctwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1bluewhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoCorrect!-1SlideTextText2bluewhitetransparent0blackcenter35%75%10%centercenterleftcenterCourier New18YesNoNoNo@RT Seconds Response Time-1SlideTextText3bluewhitetransparent0blackcenter45%75%10%centercenterleftcenterCourier New18YesNoNoNo@ACC.MEAN Average Percent Correct-1Incorrectwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoIncorrect-1SlideTextText2redwhitetransparent0blackcenter35%75%10%centercenterleftcenterCourier New18YesNoNoNo@RT Seconds Response Time-1SlideTextText3redwhitetransparent0blackcenter45%75%10%centercenterleftcenterCourier New18YesNoNoNo@ACC.MEAN Average Percent Correct-1NoResponsewhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoNo response detected.-1Pendingwhiteopaqueblack0centercenter100%100%centercenterNoYes150000100011111.0Percent1000.0###0.0001000.0###0.0001000.0###0.000Stimulus00StartAllowableTextDisplay{E1636778-6CCB-4F8C-8ECD-6E3E2AD73590}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoYou are now beginning the "allowable" phase. Only pressing the designated key will terminate a trial. Press any key to continue...-1000TestingListList{E10DE3EA-06BF-4EA0-8733-95CB68CBCE4C}2010258<_VersionPersist dt:dt="int">5Stimulus1CorrectAnswer1ShiftProcAltProc000000001100Weight17510Nested17511Procedure17512Stimulus0?75188CorrectAnswer0?911882 ShiftProc RIGHT SHIFT 542 ShiftProc LEFT SHIFT 422 AltProc RIGHT ALT 1842 AltProc LEFT ALT 56ShiftProcProcedure{987B4B34-BF27-44D3-B9DB-1970D80B3495}2010254<_VersionPersist dt:dt="int">201StimulusShiftProcessFeedback101222StimulusTextDisplayShiftProcessInLineFeedbackFeedbackDisplayShiftProcessInLine{3F61EFE5-5558-4E0C-AE9B-680155C6EF6A}2010262<_VersionPersist dt:dt="int">1 'Set the text of your object here Dim theResponseObject As RteRunnableInputObject Set theResponseObject = CRteRunnableInputObject(Rte.GetObject("Stimulus")) 'If this assert fires, then the object ' named above does not exist in your experiment Debug.Assert Not theResponseObject Is Nothing 'Was a response made? If theResponseObject.InputMasks.Responses.Count > 0 Then Dim theResponseData As ResponseData Set theResponseData = theResponseObject.InputMasks.Responses(1) 'Set the properties theResponseObject.RT = theResponseData.RT 'Prints the .Data value in the Debug window for verification Debug.Print theResponseData.Data 'Change the .RESP if SHIFT so you can differentiate in the data file If theResponseData.Data = 42 Then theResponseObject.RESP = "LEFT SHIFT" ElseIf theResponseData.Data = 54 Then theResponseObject.RESP = "RIGHT SHIFT" End If 'Accuracy If theResponseData.Data = c.GetAttrib("CorrectAnswer") Then theResponseObject.Acc = 1 Else theResponseObject.Acc = 0 End If End If FeedbackFeedbackDisplay{B83BD126-1D5A-4E2B-8B3A-7E291B0DD95A}2010273<_VersionPersist dt:dt="int">110OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0Correctwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1bluewhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoCorrect!-1SlideTextText2bluewhitetransparent0blackcenter35%75%10%centercenterleftcenterCourier New18YesNoNoNo@RT Seconds Response Time-1SlideTextText3bluewhitetransparent0blackcenter45%75%10%centercenterleftcenterCourier New18YesNoNoNo@ACC.MEAN Average Percent Correct-1Incorrectwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoIncorrect-1SlideTextText2redwhitetransparent0blackcenter35%75%10%centercenterleftcenterCourier New18YesNoNoNo@RT Seconds Response Time-1SlideTextText3redwhitetransparent0blackcenter45%75%10%centercenterleftcenterCourier New18YesNoNoNo@ACC.MEAN Average Percent Correct-1NoResponsewhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoNo response detected.-1Pendingwhiteopaqueblack0centercenter100%100%centercenterNoYes150000100011111.0Percent1000.0###0.0001000.0###0.0001000.0###0.000Stimulus00AltProcProcedure{521BD7FC-1147-46FD-BABE-314B42AE40EC}2010254<_VersionPersist dt:dt="int">201StimulusAltProcessFeedback101222StimulusTextDisplayAltProcessInLineFeedbackFeedbackDisplayAltProcessInLine{56A39FE6-FFE1-4425-9603-01AB501956D3}2010262<_VersionPersist dt:dt="int">1 'Set the text of your object here Dim theResponseObject As RteRunnableInputObject Set theResponseObject = CRteRunnableInputObject(Rte.GetObject("Stimulus")) 'If this assert fires, then the object ' named above does not exist in your experiment Debug.Assert Not theResponseObject Is Nothing 'Was a response made? If theResponseObject.InputMasks.Responses.Count > 0 Then Dim theResponseData As ResponseData Set theResponseData = theResponseObject.InputMasks.Responses(1) 'Set the properties theResponseObject.RT = theResponseData.RT 'Prints the .Data value in the Debug window for verification Debug.Print theResponseData.Data 'Change the .RESP if ALT so that you can differentiate in the data file If theResponseData.Data = 56 Then theResponseObject.RESP = "LEFT ALT" ElseIf theResponseData.Data = 184 Then theResponseObject.RESP = "RIGHT ALT" End If 'Accuracy If theResponseData.Data = c.GetAttrib("CorrectAnswer") Then theResponseObject.Acc = 1 Else theResponseObject.Acc = 0 End If End If StartTestingTextDisplay{3FCAA597-B48C-49DD-ACEF-0A0E18876651}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoYou are now beginning the "testing" phase. You can press any key to terminate a trial. Press any key to continue...-1000StickyKeysTextDisplay{D390D823-298C-4084-A2F6-FBBCC3671CBD}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{SPACE}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoPlease note that pressing the Shift key five times in a row will cause Windows to activate Sticky Keys and interrupt the experiment. If this occurs, you can click "Settings" in the Sticky Keys window and follow the prompts to prevent Sticky Keys from activating automatically. Press the spacebar to continue.-1000HelloTextDisplay{4DC54F08-E2E3-4562-B117-69574C62E0A8}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoHello and welcome to the experiment. This experiment will demonstrate how to differentiate between the left and right SHIFT and ALT keys. Please press any key to continue.-1000