2010252<_VersionPersist dt:dt="int">200{C9A43B59-DE69-4799-9F48-0DA43617998B}SessionProcProcessResponsesTemplatePsychology Software Tools, Inc.The IsPending() method of a response object will return TRUE as long as all of the object’s input masks are pending. That is, as long as a) the time limit for a response has not expired, b) the maximum number of expected responses have not been received, and c) the termination response has not been received, IsPending() will return TRUE. Thus, a Do…While loop can be used to run script until the input masks are no longer pending.
For this to work, the response object’s Duration property must be set to 0 so that the script will begin executing immediately after the object appears on screen. To set the length of time that the object will remain on screen, you can specify a value in each input mask’s Time Limit property (i.e. 1000, 2000, infinite). Each input mask must also have their End Action property set to “(none)”.
To allow for more than one response and/or specify a termination response, select an input mask on the Duration/Input tab of the response object. Click the “Advanced” button to modify the Max Count and Termination Response properties.
If you are planning to copy the script from this sample into another experiment, you will also need to copy the script from the User tab of the Script window and paste it into the same place in your experiment. If you open the sample in E-Studio, go to 'View', and click on 'Script', your Script window will open.{10343DBD-55BE-45C7-AA62-A5239F6918AB}01201035602021-12-08T21:43:34.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048032white1039201NoYes10%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11000MouseMouse<_VersionPersist dt:dt="int">1-11000SoundSound<_VersionPersist dt:dt="int">100DirectSound-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel10101SubjectPlease enter the Subject Number (0-32767):0-1-11032767SessionPlease enter the Session Number (0-32767):0-1-11032767GroupPlease 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:0001032767StimulusSlide{B3B2BADA-9573-4766-8DDE-A3189A9AF19B}2010273<_VersionPersist dt:dt="int">110OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime1KeyboardKeyboardKeyboard{ANY}-1100001Yes{ESCAPE}AllYesDefaultwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextStimulusTextblackwhiteopaque2blackcenter25%100%30%centercentercentercenterCourier New48YesNoNoNoResponses: 0-1SlideTextInstructionTextblackwhiteopaque0black50%75%90%50%centercentercentercenterCourier New18YesNoNoNoPRESS ONE OF THE OPTIONS BELOW:
Change Text Color:
b = blue g = green r = red
Change Background Color:
c = cyan s = silver y = yellow
Press Escape to continue.-100Default010001DisplayDeviceBlockListList{AF780A45-8A6B-46D0-80BD-2B7E0B54CE14}2010258<_VersionPersist dt:dt="int">5PracticeMode1- BlockProc
000000001100Weight17510Nested17511Procedure17512PracticeMode0?861881 BlockProc NoTrialListList{DFF2944B-67AB-4194-83C7-A25A04494060}2010258<_VersionPersist dt:dt="int">5- TrialProc
000000001100Weight17510Nested17511Procedure175122 TrialProcSessionProcProcedure{2C76DCBA-4599-4FB6-BA3E-0315833DC580}2010254<_VersionPersist dt:dt="int">201- Introduction
- BlockList
- Goodbye
101222IntroductionTextDisplayBlockListListGoodbyeTextDisplayBlockProcProcedure{05F381FE-EAAE-46D7-BDF1-6312AD78BEDA}2010254<_VersionPersist dt:dt="int">201- TrialList
101222TrialListListTrialProcProcedure{05A5F9DF-A222-4825-9063-5D19C177FDAC}2010254<_VersionPersist dt:dt="int">201- Fixation
- Stimulus
- ProcessResponses
101222FixationTextDisplayStimulusSlideProcessResponsesInLineProcessResponsesInLine{BB31D6D7-CD99-4C84-845B-809FFC8FDA76}2010262<_VersionPersist dt:dt="int">1'Declare a variable that can be assigned to the Stimulus object.
'When copying this script to another experiment, the name of the input
'object will only need to be changed here instead of in multiple places.
Dim theResponseObject As RteRunnableInputObject
Set theResponseObject = CRteRunnableInputObject(Rte.GetObject("Stimulus"))
'NOTE: If this assert fires, the object named above is not in your experiment.
Debug.Assert Not theResponseObject Is Nothing
'Set theSlide variable to Stimulus
Set theSlide = CSlide(Rte.GetObject("Stimulus"))
'Set theState variable to Stimulus' Default SlideState
Set theState = theSlide.States.Item("Default")
'Set theSlideText variable to the SlideText called StimulusText
Set theSlideText = CSlideText(theState.Objects("StimulusText"))
'If the Duration time - the PreRelease time is not zero, then this script
'may not be processing properly.
If (theResponseObject.Duration - theResponseObject.PreRelease) <> 0 Then
Debug.Print "WARNING: " & theResponseObject.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 theResponseObject.InputMasks.Count
Dim theInputMask As InputMask
Set theInputMask = theResponseObject.InputMasks(nMask)
If Not theInputMask Is Nothing Then
If theInputMask.EndResponseAction <> ebEndResponseActionNone Then
Debug.Print "WARNING: " & theResponseObject.Name & strEndActionNone
End If
If theInputMask.MaxCount = 1 Then
Debug.Print "WARNING: " & theResponseObject.Name & strMaxCountOne
End If
If theInputMask.TimeLimit = 0 Then
Debug.Print "WARNING: " & theResponseObject.Name & strZeroTimeLimit
End If
End If
Next
'Declare variables for holding the current response count and current
'response data.
Dim nResponseCount As Long
Dim theResponseData As ResponseData
'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 theResponseObject.InputMasks.IsPending()
'If the counts do not match, there are responses to process.
If nResponseCount <> theResponseObject.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 = theResponseObject.InputMasks.Responses(nResponseCount)
If Not theResponseData Is Nothing Then
'''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
' Insert custom action here. '
' This part will be unique to your experiment. '
' For the sample, the text and background color '
' of the Slide object will be changed based on '
' the subjects response. '
'''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
'Log the response to the context
c.SetAttrib theResponseObject.Name & ".RESP_" & nResponseCount, theResponseData.RESP
c.SetAttrib theResponseObject.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 "r"
theSlideText.ForeColor = CColor("red")
theSlideText.Text = "Responses: " & nResponseCount
theSlide.Draw
Case "b"
theSlideText.ForeColor = CColor("blue")
theSlideText.Text = "Responses: " & nResponseCount
theSlide.Draw
Case "g"
theSlideText.ForeColor = CColor("green")
theSlideText.Text = "Responses: " & nResponseCount
theSlide.Draw
Case "c"
theSlideText.BackColor = CColor("cyan")
theSlideText.Text = "Responses: " & nResponseCount
theSlide.Draw
Case "y"
theSlideText.BackColor = CColor("yellow")
theSlideText.Text = "Responses: " & nResponseCount
theSlide.Draw
Case "s"
theSlideText.BackColor = CColor("silver")
theSlideText.Text = "Responses: " & nResponseCount
theSlide.Draw
Case Else
theSlideText.Text = "Responses: " & nResponseCount
theSlide.Draw
End Select
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 theResponseObject.InputMasks.Responses.Count
'Reset properties back to their original state.
'Note that changing Object properties in script is like changing them
'by using the Properties pages in E-Studio. Properties do not revert
'back to their previous values at the start Of a new trial.
theSlideText.ForeColor = CColor("black")
theSlideText.BackColor = CColor("white")
theSlideText.Text = "Responses: 0"
'Release references
Set theSlideText = Nothing
Set theState = Nothing
Set theResponseObject = NothingGoodbyeTextDisplay{2380C84F-1264-421B-8D03-EF1D07C119C5}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime020000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThank you for participating.
Goodbye!-1001FixationTextDisplay{EEAB61AC-CDDD-4376-A9F4-7EBA9722F465}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New48YesNoNoNo+-1001IntroductionTextDisplay{CB733193-B5B8-4314-A84A-E948560026BB}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{SPACE}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoWelcome to the experiment.
Please press the spacebar to continue.-1001'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!"
'Declare a variable that can be assigned to the Stimulus object.
Dim theSlide As Slide
'Declare a variable that can be assigned to the default SlideState.
Dim theState As SlideState
'Declare a variable that can be assigned to the SlideText sub-object
'that will be altered based on subject responses.
Dim theSlideText As SlideText