[WARNING] WARNING: DO NOT EDIT THIS FILE DIRECTLY! Use only E-Studio to edit this file. Editing of this file from any other means is not supported and may corrupt the experiment design specification. Technical support will not be able to address any issue in regards to this file format. [Experiment] VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=75 _VersionPersist=6 Root="SessionProc" Author="Susan Campbell (CMU Psychology)" Abstract="" Notes="" Creation=1011125912 [Device0] _VersionPersist=1 OpenDevice=1 Width=640 Height=480 Bpp=32 Name="Display" Class="Display" [Device1] _VersionPersist=1 OpenDevice=0 Channels=2 Samples=22050 Bps=16 Name="Sound" Class="Sound" [Device2] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" CapsLock=0 NumLock=1 Name="Keyboard" Class="Keyboard" [Device3] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" OpenMode=0 ShowCursor=0 Name="Mouse" Class="Mouse" [DataFile] WarnBeforeOverwrite=1 WarnIfConvertFailed=1 RemoveERecoveryFile=0 ReceiveFeedbackDuringDataFileConversion=1 LogLevel(2).Name="Block" LogLevel(3).Name="Trial" LogLevel(4).Name="SubTrial" LogLevel(5).Name="LogLevel5" LogLevel(6).Name="LogLevel6" LogLevel(7).Name="LogLevel7" LogLevel(8).Name="LogLevel8" LogLevel(9).Name="LogLevel9" LogLevel(10).Name="LogLevel10" [StartupInfo] DisplaySummary=1 UseDefaults=0 [StartupInfo1] Name="Subject" Prompt="Please enter the Subject Number (1-32767, 0=No Data Logging):" DataType=0 Enabled=1 PromptEnabled=1 Default="1" Min=0 Max=32767 PrivateFlags=268435477 PrivateInfo=1 [StartupInfo2] Name="Session" Prompt="Please enter the Session Number (0-32767):" DataType=0 Enabled=1 PromptEnabled=1 Default="1" Min=0 Max=32767 PrivateFlags=268435477 PrivateInfo=1 [StartupInfo3] Name="Group" Prompt="Please enter Subject's Group (0-32767):" DataType=0 Enabled=0 PromptEnabled=0 Default="1" Min=0 Max=32767 [StartupInfo4] Name="Name" Prompt="Please enter Subject's Name:" DataType=1 Enabled=0 PromptEnabled=0 Default="" MaxLength=255 [StartupInfo5] Name="Age" Prompt="Please enter Subject's Age (0-150):" DataType=0 Enabled=0 PromptEnabled=0 Default="0" Min=0 Max=150 [StartupInfo6] Name="Sex" Prompt="Please enter Subject's Sex:" DataType=2 Enabled=0 PromptEnabled=0 Default="male" Choice(1).Value="male" Choice(2).Value="female" [StartupInfo7] Name="Handedness" Prompt="Enter Subject's Handedness:" DataType=2 Enabled=0 PromptEnabled=0 Default="left" Choice(1).Value="left" Choice(2).Value="right" [StartupInfo8] Name="ResearcherID" Prompt="Please enter Researcher's ID:" DataType=0 Enabled=0 PromptEnabled=0 Default="1" Min=0 Max=32767 [Object0] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 _ItemList="InLine1;List1;InLine3" _VersionPersist=1 FlowLines(0).Count=3 FlowLines(0).FlowItem(0).Name="InLine1" FlowLines(0).FlowItem(1).Name="List1" FlowLines(0).FlowItem(2).Name="InLine3" LogData=1 Name="SessionProc" TypeName="Procedure" Tag="" Notes="" [Object1] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 Logging("OnsetDelay").Log=0 Logging("OnsetTime").Log=0 Logging("DurationError").Log=0 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=-1 Logging("ACC").Log=0 Logging("RT").Log=-1 Logging("RESP").Log=-1 Logging("CRESP").Log=0 Logging("Tag").Log=0 Input(0)=!Data0 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 Text="[TextToDisplay]" ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="Yes" Duration="3500" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="TextDisplay1" TypeName="TextDisplay" Tag="" Notes="" [Data0] DeviceName="Keyboard" DeviceClass="Keyboard" AllowableInput="{ANY}" CorrectInput="" TimeLimit="" MaxCount="500" InputAction=0 SyncOwnerDuration=1 Enabled=1 FlushInputBuffer="No" TerminationInput="" UserTag="" ResponseMode="All" ProcessBackspace="Yes" [Object2] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 _VersionPersist=1 Code="'This snippet retrieves the Response collection associated\n'with the keyboard InputMask and writes it to a supplemental \n'data file.\n\nDim i as Integer 'generic counter variable\nDim nClicks As Integer 'number of responses\nDim kbdMask As InputMask\nDim kbdRespColl As ResponseDataCollection\nDim OutputString as String\n\n'figure out where we are in List1\ni=c.GetAttrib(\"List1.Sample\")\nOutputString = \"Trial Number \" + CStr(i)\n'write the trial number to file\nWrite #1,OutputString\n\n'The next line determines the number of kbd responses. \n'InputMasks(1) gets the information from the first input\n'mask listed in the \"Devices\" portion of the \"Duration/Input\"\n'tab on the TextDisplay. InputMasks(2) would get the second,\n'which is usually the mouse. I assume InputMasks(3) would\n'get the button box, but checking that would be a good idea.\n'If you wanted to call your TextDisplay object something\n'other than TextDisplay1, you would have to replace all\n'instances of TextDisplay1 manually with whatever you \n'wanted to call it.\nnClicks = TextDisplay1.InputMasks(1).Responses.Count\n\n'write the number of responses to file\nWrite #1,nClicks,\" responses this trial\"\n\n'examine the RTs for each kbd response by working with\n'the kbdResponseData collection returned by the InputMask\nIf nClicks > 0 Then\n\n\t'get the InputMask associated with the keyboard response\n\tSet kbdRespColl = TextDisplay1.InputMasks(1).Responses\n\n\t'display RTs for each keyboard response (from start of trial)\n\tFor i = 1 to nClicks\n\t\tOutputString = kbdRespColl(i).RT\n\t\tDisplay.Canvas.Text 10, 20* i, \"Response \" & i & \": RT = \" & OutputString\n\t\tWrite #1,i,CInt(OutputString)\n\tNext i\n\t\n\t'display inter-response RTs\n\tOutputString = \"Between-response times\"\n\tWrite #1,OutputString\n\tIf nClicks > 1 Then\n\t\tFor i=2 to nClicks\n\t\t\tOutputString= CStr(kbdRespColl(i).RTTime - kbdRespColl(i-1).RTTime)\n\t\t\tDisplay.Canvas.Text 10, 60, \"Inter-event RT = \" & OutputString\n\t\t\tWrite #1,i,CInt(OutputString)\n\t\tNext i\n\n\tEnd If\nElse\n\tDisplay.Canvas.Text 0, 0, \"No keyboard responses on this trial\"\n\tWrite #1,\"No keyboard responses on this trial\"\nEnd If\n\nSleep 2000" Name="InLine2" TypeName="InLine" Tag="" Notes="" [Object3] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 _VersionPersist=1 Code="dim OutputFileName as String\n\n'Sets the name of the output file to be different for each subject and session\nOutputFileName = \"SuppData\" + c.GetAttrib(\"Subject\") + c.GetAttrib(\"Session\") + \".txt\"\n\n'Opens the file so we can write to it later\nOpen OutputFileName For Output Access Write As #1\n\n" Name="InLine1" TypeName="InLine" Tag="" Notes="" [Object4] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 Logging("TextToDisplay").Log=-1 _ItemList="TrialProc" _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 Order=0 OrderBy=0 ResetEveryRun=0 HideLevelsWithZeroWeight=0 CycleDef=0 CycleValueSamples=0 CycleValueCondition="" ExitDef=0 ExitValueCycles=1 ExitValueSamples=1 ExitValueSeconds=0 ExitValueCondition="" LoadMethod=0 Filename="" UserAttributes=1 Attributes("Weight").DefaultValue="1" Attributes("Weight").Visible=1 Attributes("Weight").Width=75 Attributes("Weight").OrderIndex=0 Attributes("Nested").DefaultValue="" Attributes("Nested").Visible=1 Attributes("Nested").Width=75 Attributes("Nested").OrderIndex=1 Attributes("Procedure").DefaultValue="" Attributes("Procedure").Visible=1 Attributes("Procedure").Width=75 Attributes("Procedure").OrderIndex=2 Attributes(1).Name="TextToDisplay" Attributes(1).DefaultValue="?" Attributes(1).VarType=8 Attributes(1).VarTypeInternal=8 Attributes(1).Visible=1 Attributes(1).Width=75 Levels=2 Levels(1).ValueString="1\t\tTrialProc\ttype \"J\" as fast as you can\t" Levels(2).ValueString="1\t\tTrialProc\ttype \"F\" as fast as you can\t" Name="List1" TypeName="List" Tag="" Notes="" [Object5] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 _ItemList="TextDisplay1;InLine2" _VersionPersist=1 FlowLines(0).Count=2 FlowLines(0).FlowItem(0).Name="TextDisplay1" FlowLines(0).FlowItem(1).Name="InLine2" LogData=1 Name="TrialProc" TypeName="Procedure" Tag="" Notes="" [Object6] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=52 _VersionPersist=1 Code="'closes the output file\nClose\n" Name="InLine3" TypeName="InLine" Tag="" Notes="" [UserScript] 'this is where the user script goes: aardvark