2010252<_VersionPersist dt:dt="int">200{E6A4D946-B93B-4D38-B48B-C28109348B3A}SessionProc{10343DBD-55BE-45C7-AA62-A5239F6918AB}011001312017-08-29T13:04:03.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048032white1039201NoYes125%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11001MouseMouse<_VersionPersist dt:dt="int">1-11000SoundSound<_VersionPersist dt:dt="int">1-10DirectSoundChronosChronos<_VersionPersist dt:dt="int">101-13000[DataFile.BaseName]-@Device-@LogLevel-@Increment.wav-1@Auto@Device.Filename10%10%500auto0250immediatenormal1161120-200%0%0%0%33100white0white0white0white0white010.951100002012012012012010101010101010100002012011850000110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename00110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename00110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename40000110000010.80.4@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename000100000000@Auto[DataFile.BaseName]-@Device-Aggregate-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename1000000.50.5-111000000.50.5-111000000.50.5-111000000.50.5-11-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel10101SubjectPlease enter the Subject Number (0=No Data Logging):0-1-1102147483647SessionPlease 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{2E1C615E-CCCA-466F-9588-AC623405AABD}2010254<_VersionPersist dt:dt="int">201InstructionsSetThresholdsBlockListGoodbye101022InstructionsTextDisplaySetThresholdsInLineBlockListListGoodbyeTextDisplayInstructionsTextDisplay{9D1BE95A-73CE-475D-9DA8-85243882BF96}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardMouseKeyboardKeyboard{ANY}1111YesAllYesMouseMouse{ANY}1111Yes-10-110blackwhiteopaqueblack0centercenter75%75%centercentercentercenterNoCourier New18YesNoNoNoWelcome to your experiment! Type a key to continue...-1001SetThresholdsInLine{C72C1A25-4AD0-47A0-8ABD-53E5D0491809}2010262<_VersionPersist dt:dt="int">1' Set Thresholds of AnalogIn 1 Chronos.AnalogIn(1).OnsetThreshold = 0.1 Chronos.AnalogIn(1).OffsetThreshold = 0.05 ' This can be done in the GUI as wellBlockListList{11DCCD18-CA1E-4CEB-896F-69F10B894EE6}2010258<_VersionPersist dt:dt="int">5BlockProc000000001100Weight117510Nested17511Procedure1BlockProc75121 BlockProcBlockProcProcedure{190BC20B-A818-4469-BFD3-861CE6F3CC69}2010254<_VersionPersist dt:dt="int">201TrialList101012TrialListListTrialListList{90DD8A81-9D5D-4A04-AE28-86C9497A3177}2010258<_VersionPersist dt:dt="int">5TrialProc000000001100Weight117510Nested17511Procedure1TrialProc75124 TrialProcTrialProcProcedure{976C8AB4-CD35-4C49-9492-9A19698BFC8D}2010254<_VersionPersist dt:dt="int">201GetReadyFixationStimulusLogTextDisplayProcessResponses101012GetReadyInLineFixationTextDisplayStimulusTextDisplayLogTextDisplayTextDisplayProcessResponsesInLineGetReadyInLine{CFDD1DEE-DA75-4C1E-B704-144DD2022916}2010262<_VersionPersist dt:dt="int">1' We will record the raw data as well as mark the highest value per trial Chronos.AnalogIn(1).History.RemoveAll Chronos.History.RemoveAll Sleep 10 Chronos.AnalogIn(1).Record Dim x As Long ' Variables used to record Highest Value, ValueFloat, and ValueInteger ' User sees ValueFloat in the text recording/data log Dim nHighestValue As Double Dim nValueFloat As Double Dim nValueInteger As Double ' Initialize as 0 to be safe nHighestValue = 0 nValueFloat = 0 nValueInteger = 0FixationTextDisplay{799BBD2B-B240-459E-BF20-59BF79B7E10C}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime110000-110blackwhiteopaqueblack0centercenter75%75%centercentercentercenterNoCourier New18YesNoNoNo#-1001StimulusTextDisplay{D95AEF8A-415D-4F8C-94F9-7C63C2AAF6FB}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0OnsetToOnsetTime1ChronosChronosChronos9{-9}1111Yes100000010blackwhiteopaqueblack0centercenter75%75%centercentercentercenterNoCourier New18YesNoNoNoPress and Release-1001LogTextDisplayTextDisplay{E1ED7E8D-7DEB-4606-883A-8F2B32432BC4}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime000-110blackwhiteopaqueblack0centercenter75%75%centercentercentercenterNoCourier New18YesNoNoNoLogging Data Please Wait-1001ProcessResponsesInLine{482246CB-5BFA-4102-B9B7-F18F5306F89B}2010262<_VersionPersist dt:dt="int">1Dim theResponseObject As RteRunnableInputObject Set theResponseObject = CRteRunnableInputObject(Rte.GetObject("Stimulus")) ' If the assert below fires, then the object named in the line above does not exist Debug.Assert Not theResponseObject Is Nothing ' Counter variable for the number of responses made Dim nPressCount As Long ' Counter variable Dim nIndex As Integer ' Enumerate through the response collection ' If any of the responses were made by the keyboard, display ' the statistics to the user. For nIndex = 1 To theResponseObject.InputMasks.Responses.Count ' Set theKeyboardResponseData equal to the current keyboard response Dim theKeyboardResponseData As KeyboardResponseData Set theKeyboardResponseData = CKeyboardResponseData(theResponseObject.InputMasks.Responses(nIndex)) If Not theKeyboardResponseData Is Nothing Then ' Increment the press count nPressCount = nPressCount + 1 ' Log reaction time and response for each key press. c.SetAttrib "KeyPress" & nIndex & "RT", theKeyboardResponseData.RT c.SetAttrib "KeyPress" & nIndex & "RESP", theKeyboardResponseData.RESP ' Get the Press duration If nPressCount = 2 Then c.SetAttrib "KeyPressDuration", CLng(c.GetAttrib("KeyPress2RT") - c.GetAttrib("KeyPress1RT")) End If End If Next 'nIndex ' Stop Recording Chronos.AnalogIn(1).Stop Debug.Print "History Count is " & Chronos.AnalogIn(1).History.Count ' Find the higest Value, ValueFloat, and ValueInteger For x = 1 To Chronos.AnalogIn(1).History.Count If nHighestValue < Chronos.AnalogIn(1).History(x).Value Then nHighestValue = Chronos.AnalogIn(1).History(x).Value 'Debug.Print nHighestValue If nValueFloat < Chronos.AnalogIn(1).History(x).ValueFloat Then nValueFloat = Chronos.AnalogIn(1).History(x).ValueFloat 'Debug.Print nValueFloat If nValueInteger < Chronos.AnalogIn(1).History(x).ValueInteger Then nValueInteger = Chronos.AnalogIn(1).History(x).ValueInteger 'Debug.Print ValueInteger Next 'x ' Log the data as a Value, ValueFloat, and ValueInteger ' You can compare theis data in the .edat2 file to see what you want to use c.SetAttrib "MaxPressValue", nHighestValue c.SetAttrib "MaxPressValueFloat", nValueFloat c.SetAttrib "MaxPressValueInteger", nValueIntegerGoodbyeTextDisplay{5D5FC8A6-5F01-4768-A6EA-7FDC3F845395}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime010000010blackwhiteopaqueblack0centercenter75%75%centercentercentercenterNoCourier New18YesNoNoNoThe End-1001