2010252<_VersionPersist dt:dt="int">200{E8043DEA-F987-4B93-9864-43E70C9EDED9}SessionProcManually choose individual trialsPsychology Software Tools, Inc.SamplesList contains all available trials and independent variables. SamplesList is run but not presented to the participant. This is to establish a specific order of trials whether they are sequential or random. SamplesList is currently set to Random Selection. The order of samples is tracked in a Global array, defined in User Script. TrackSamples logs the row number of SamplesList in the order selected to slots in the array (Slot 0 is unused).
SelectTrial allows the participant to use the right and left arrow keys on the keyboard to increment or reduce a number value on the screen representing which trial they want to run. Note this value does not neccessarily reflect the row number of SamplesList. The number selected represents the row that was sampled when SamplesList ran. For example, if SamplesList randomly selected row number 2 on the first iteration of SamplesProc, and the number 1 was selected on SelectTrial, then the trial selected would be trial number 1, which would run sample number 2.
Inline script is adapted from our Process Responses sample (<kb>30039</kb>) to handle the responses made on SelectTrial. The SetupTrial Inline recalls the information from SamplesList and applies them to TrialList based on which trial was selected. This happens per trial that is selected. The experiment logs which trial was selected and runs the trial. After each trial, the experiment Jumps back to SelectTrial where participants can choose another trial to run or Jump to the end of the experiment by pressing the Escape key.
{10343DBD-55BE-45C7-AA62-A5239F6918AB}01201035602021-07-16T18:31:42.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048032white1039201NoYes125%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11001MouseMouse<_VersionPersist dt:dt="int">1-11000SoundSound<_VersionPersist dt:dt="int">100CoreAudio-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{3DA6EBDD-4F3B-49F9-B1E8-0CEC88D27C29}2010254<_VersionPersist dt:dt="int">201- Welcome
- SamplesList
- DebugArrayOptional
- Label1
- SelectTrial
- ProcessResponses
- SetupTrial
- TrialInstructions
- TrialList
- SelectAgain
- GoodbyeLabel
- Goodbye
101022WelcomeTextDisplaySamplesListListDebugArrayOptionalInLineLabel1LabelSelectTrialSlideProcessResponsesInLineSetupTrialInLineTrialInstructionsTextDisplayTrialListListSelectAgainInLineGoodbyeLabelLabelGoodbyeTextDisplaySamplesListList{E1D6C645-DE7E-4724-98FE-6EEDCC8940BF}2010258<_VersionPersist dt:dt="int">5Text1CorrectAnswer1- SamplesProc
101000001100Weight117510Nested17511Procedure17512Text0?75188CorrectAnswer0?751881 SamplesProc Cat 11 SamplesProc Dog 11 SamplesProc Jop 21 SamplesProc Bat 1SamplesProcProcedure{EEE21416-6A22-4EFE-992E-88A1FCADE797}2010254<_VersionPersist dt:dt="int">201- TrackSamples
101012TrackSamplesInLineTrackSamplesInLine{97A2A35E-59BA-4B9B-916D-7ADC3A463285}2010262<_VersionPersist dt:dt="int">1'Create variable for current running sample
Dim CurrentSample As Integer
CurrentSample = c.GetAttrib(c.GetAttrib("Running") & ".Sample")
'Create a variable representing the row number from SamplesList
Dim SampleRowID As Integer
SampleRowID = c.GetAttrib ("SamplesList")
'Fill the array with SamplesList row number that was selected per trial.
TrialArray(CurrentSample) = SampleRowIDDebugArrayOptionalInLine{2050DC6F-055C-4F4F-9E16-626036DDD600}2010262<_VersionPersist dt:dt="int">1'Counter for For...Next Loop
Dim i As Integer
'Loop through array and print which row from
'SamplesList is being used per trial
For i = 1 To UBound(TrialArray)
Debug.Print "Sample # " & i & " selected row " & TrialArray(i) & " from SamplesList"
NextSelectTrialSlide{D44CB439-7322-4E30-A943-EB02E949508B}2010273<_VersionPersist dt:dt="int">110OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{LEFTARROW}{RIGHTARROW}{ENTER}{ESCAPE}-11000001Yes{ENTER}AllYesDefaultwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1blackwhiteopaque0black50%34%100%67%centercentercentercenterCourier New18YesNoNoNoSelect which trial you wish to run. Use the left and right arrow keys and press Enter to confirm the selection.
To exit the experiment, press Escape.-1SlideTextText2blackwhiteopaque0blackcenter83%70%18%centercentercentercenterCourier New18YesNoNoNo-100Default010001DisplayDeviceProcessResponsesInLine{4B6F09E4-CF25-47E2-BC85-22453F967C90}2010262<_VersionPersist dt:dt="int">1'Declare a variable that can be assigned to the Stimulus object.
Dim theSlide As Slide
Set theSlide = CSlide(Rte.GetObject("SelectTrial"))
'Declare a variable that can be assigned to the SlideText sub-object
'that will be altered based on subject responses.
Dim theSlideText As SlideText
Set theSlideText = CSlideText(theSlide.ActiveObjects("Text2"))
'NOTE: If this assert fires, the object named above is not in your experiment.
Debug.Assert Not theSlide Is Nothing
'If the Duration time - the PreRelease time is not zero, then this script
'may not be processing properly.
If (theSlide.Duration - theSlide.PreRelease) <> 0 Then
Debug.Print "WARNING: " & theSlide.Name & strDurationNotZero
End If
'If the end response action on any of the input masks is anything but (none),
'the script may not behave properly since terminate would cause the next
'object after this script to terminate.
Dim nMask As Long
For nMask = 1 To theSlide.InputMasks.Count
Dim theInputMask As InputMask
Set theInputMask = theSlide.InputMasks(nMask)
If Not theInputMask Is Nothing Then
If theInputMask.EndResponseAction <> ebEndResponseActionNone Then
Debug.Print "WARNING: " & theSlide.Name & strEndActionNone
End If
If theInputMask.MaxCount = 1 Then
Debug.Print "WARNING: " & theSlide.Name & strMaxCountOne
End If
If theInputMask.TimeLimit = 0 Then
Debug.Print "WARNING: " & theSlide.Name & strZeroTimeLimit
End If
End If
Next
'Declare variables for holding the current response count and current
'response data.
Dim nResponseCount As Long
nResponseCount = 0
Dim theResponseData As ResponseData
'Default counter value
SampleSelection = 1
'Show which sample is selected
theSlideText.Text = "Run Trial # " & SampleSelection
theSlideText.Draw
'Loop while there are input masks pending. This will return TRUE so long
'as the time limit has not elapsed, the max count on the input mask(s) has
'not been reached or the termination response has not been accepted.
Do While theSlide.InputMasks.IsPending()
'If the counts do not match, there are responses to process.
If nResponseCount <> theSlide.InputMasks.Responses.Count Then
'Increment response count.
nResponseCount = nResponseCount + 1
'Access the current response information so that it can be used
'later in the script for logging and determining which action to take.
Set theResponseData = theSlide.InputMasks.Responses(nResponseCount)
If Not theResponseData Is Nothing Then
'Log the response to the context
c.SetAttrib theSlide.Name & ".RESP_" & nResponseCount, theResponseData.RESP
c.SetAttrib theSlide.Name & ".RT_" & nResponseCount, theResponseData.RT
'Assess the subject's response, change the text/background color as
'appropriate, and change the text itself to display the new response
'count. Redraw the Slide so the changes appear to the subject.
Select Case theResponseData.RESP
Case "{LEFTARROW}"
SampleSelection = SampleSelection - 1
If SampleSelection < 1 Then
SampleSelection = 1
End If
Case "{RIGHTARROW}"
SampleSelection = SampleSelection + 1
If SampleSelection > SamplesList.Levels.Count Then
SampleSelection = SamplesList.Levels.Count
End If
Case "{ESCAPE}"
GoTo GoodbyeLabel
Case Else
Debug.Print "Unexpected Response"
End Select
theSlideText.Text = "Run Trial # " & SampleSelection
theSlideText.Draw
End If
End If
'Give some time back (required)
Sleep 10
DoEvents
Loop
'Print the total number of subject responses to the Output window.
Debug.Print "Total presses on SelectTrial " & theSlide.InputMasks.Responses.Count
'Release references
Set theSlide = Nothing
Set theSlideText = Nothing
TrialListList{CB6669C4-5B78-4F40-9F74-199D8FAAB93A}2010258<_VersionPersist dt:dt="int">5Text1CorrectAnswer1- TrialProc
000000001100Weight117510Nested17511Procedure1TrialProc7512Text0?75188CorrectAnswer0?941881 TrialProc SetupTrialInLine{30B6CEC2-FC6D-4B02-9693-DAC817152AF3}2010262<_VersionPersist dt:dt="int">1'Get Attribute values for the specific trial selected and assign them to strings.
Dim TextValue As String
TextValue = SamplesList.GetAttrib(TrialArray(SampleSelection), "Text")
Dim CorrectAnswerValue As String
CorrectAnswerValue = SamplesList.GetAttrib(TrialArray(SampleSelection), "CorrectAnswer")
'Set the Attribute values from the trial selected to the TrialList.
TrialList.SetAttrib 1, "Text", TextValue
TrialList.SetAttrib 1, "CorrectAnswer", CorrectAnswerValue
'Apply changes
TrialList.ResetTrialProcProcedure{721E6FA1-342B-4D3E-8C24-0F9913C75DEB}2010254<_VersionPersist dt:dt="int">201- LogSampleSelection
- Fixation
- Stimulus
- Feedback
101012LogSampleSelectionInLineFixationTextDisplayStimulusTextDisplayFeedbackFeedbackDisplayLabel1Label{9ECDF6F5-18F4-45E5-AA2A-58C109C339BD}2010263<_VersionPersist dt:dt="int">1FixationTextDisplay{BF46251A-4948-45EB-9CE3-BC7356436EA6}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime110000-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo+-1001StimulusTextDisplay{980603FB-8F2F-48B2-AF3F-7A3C8AA14F55}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0OnsetToOnsetTime1KeyboardKeyboardKeyboard12[CorrectAnswer]-31101YesAllYes-10-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[Text]-1001FeedbackFeedbackDisplay{1ADE986B-939D-433E-936C-86794CFA26D5}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%centercenterNoYes150000100111111.0Percent1000.0###0.0001000.0###0.0001000.0###0.000Stimulus00SelectAgainInLine{CADDE738-0AAF-4A44-825E-2FF6E69FA0F5}2010262<_VersionPersist dt:dt="int">1GoTo Label1WelcomeTextDisplay{AD9DEA1F-DB3A-4C7E-80FE-6F27B7E508E6}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime1KeyboardKeyboardKeyboard{SPACE}1111YesAllYes-10-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoWelcome to the experiment.
This sample will allow you to choose which trial you want to run. The trials are identified with a numeric value.
Using the LEFT ARROW and RIGHT ARROW keys on your keyboard, you can decrease or increase the value representing which trial you want to run. To confirm the selection, press ENTER.
To finish choosing trials to run and exit the sample, press ESCAPE when prompted to select a trial.
Press SPACE to continue.-1001TrialInstructionsTextDisplay{FE95E9FA-06AC-43D8-8C63-CFCEE7EB3A5D}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime1KeyboardKeyboardKeyboard{SPACE}1111YesAllYes-10-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoYou will be shown a word or a non-word.
If you see a word, press 1 on the keyboard.
If you see a non-word, press 2 on the keyboard.
Press SPACE to begin.-1001GoodbyeLabelLabel{68ACC509-740E-4016-AA9C-80D8353433E2}2010263<_VersionPersist dt:dt="int">1GoodbyeTextDisplay{120A9DD2-B204-4EA5-941C-12B6C127A49E}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime130000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThank you for running this sample.
Goodbye.-1001LogSampleSelectionInLine{D8323B8D-80FC-4C5F-A522-ED88EBF969CF}2010262<_VersionPersist dt:dt="int">1'Log sample number selected
c.SetAttrib "SampleSelected", SampleSelection
Debug.Print "SampleSelected: " & SampleSelection'Global array to store Sample order; Slot 0 is unused
Dim TrialArray(4) As String
'Counter for which sample is chosen
Dim SampleSelection As Integer
'Constants for displaying warning messages
Const strDurationNotZero As String = ".Duration is not zero. The ProcessResponses " &_
"InLine may not function properly!"
Const strEndActionNone As String = " has an input mask with an end response " &_
"action that is not (none). The object after ProcessResponses InLine may " &_
"not be terminated as expected!"
Const strMaxCountOne As String = " has an input mask that has a MaxCount=1. " &_
"The ProcessResponses InLine won't handle multiple responses."
Const strZeroTimeLimit As String = " has an input mask with a zero duration " &_
"time limit and will be effectively ignored!"