20890<_VersionPersist dt:dt="int">50SessionProcPsychology Software Tools, Inc. (Amy Eschman & Matt Lenhart)This example illustrates how to run trials for a specific amount of
time. The start time is determined before the TrialList object begins
to run trials, and the end time is set to a defined amount of time
(i.e., 30 seconds after the start time). While the trials are running,
script is used to determine if the block should be terminated. If the
current time >= the end time, the script jumps to the end of the
current trial, and the TrialList is terminated, ending the trials.
Note that TrialList is set to a large number of trials. Only the number
of trials that can be run within the allotted time will take place.2014-02-03T20:23:31.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-164048016white1NoKeyboardKeyboard<_VersionPersist dt:dt="int">1-1101MouseMouse<_VersionPersist dt:dt="int">1-1100SoundSound<_VersionPersist dt:dt="int">1-122205016-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel1010SubjectPlease 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{BF50EE5A-184C-414B-8EDD-F366C82061CD}20887<_VersionPersist dt:dt="int">1- Initialize
- Introduction
- BlockList
- SetGoodbyeText
- Goodbye
1InitializeIntroductionBlockListSetGoodbyeTextGoodbyeGoodbyeTextDisplay{BA757765-E04E-4489-98E4-A6CB3FA0A430}20887<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime1FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag030000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo-1SetGoodbyeTextInLine{D3263B43-EBA2-4320-878F-8BD141C4CD50}20887<_VersionPersist dt:dt="int">1'Set the Text property of the Goodbye object to present
'the block duration to the subject.
Goodbye.Text = "Block Duration: " & lnBlockDuration & _
"\n\nThank you for participating! Goodbye!"BlockListList{3FB0C8AC-3030-4230-82E5-718065A16FB9}20887<_VersionPersist dt:dt="int">1- BlockProc
10101111100Weight17510Nested17511Procedure175121 BlockProc1 BlockProcBlockProcProcedure{030CE423-A563-45E7-8DA6-FEEC85F2D37C}20887<_VersionPersist dt:dt="int">1- TestIntro
- BeginTestTime
- TrialList
1TestIntroBeginTestTimeTrialListTestIntroTextDisplay{2BCD8984-2C24-41A5-8999-E1BFD5E13A1E}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{SPACE}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoYou will be presented with a series of text strings. Press the '1' key if the text string is a word. Press the '2' key if the text string is not a word.
You will have 30 seconds to complete as many trials as possible.
Press the spacebar to begin.-1BeginTestTimeInLine{BB86B141-9530-43CA-ABEC-FF51F80D7B71}20887<_VersionPersist dt:dt="int">1'The start time gets the current Clock.Read value, while the end
'time gets the start time plus the target duration (30 seconds).
lnStartTime = Clock.Read
lnEndTime = lnStartTime + 30000TrialListList{295709E2-3490-4DCB-987B-46FB66E417BB}20887<_VersionPersist dt:dt="int">1Stim1CorrectResponse1- TestProc
10000005100Weight17510Nested17511Procedure17512Stim0?75188CorrectResponse0?751881 TestProc table 11 TestProc window 11 TestProc desk 11 TestProc wall 11 TestProc walk 11 TestProc tower 11 TestProc book 11 TestProc slam 11 TestProc phone 11 TestProc blind 11 TestProc jop 21 TestProc ful 21 TestProc paol 21 TestProc huyt 21 TestProc truve 21 TestProc numt 21 TestProc worul 21 TestProc mirat 21 TestProc stemp 21 TestProc clusp 2TestProcProcedure{987CC6EF-39AE-47FF-B5B4-9A162394E6FF}20887<_VersionPersist dt:dt="int">1- Fixation
- MonitorFixationTime
- Stimulus
- MonitorStimulusTime
- EndLabel
1FixationMonitorFixationTimeStimulusMonitorStimulusTimeEndLabelFixationTextDisplay{F5DB85BA-13B3-4E2D-9D39-CF56955C246B}20887<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo+-1MonitorFixationTimeInLine{FEFF1A8F-F2AE-4093-AE75-91E649BE223E}20887<_VersionPersist dt:dt="int">1'The Fixation object will run for 1000ms, so two additional
'start/end time variables are needed.
Dim lnFixationStartTime As Long
Dim lnFixationEndTime As Long
'The start time gets the current Clock.Read value, while the
'end time gets the start time plus the intended duration (1 second).
lnFixationStartTime = Clock.Read
lnFixationEndTime = lnFixationStartTime + 1000
'This loop will run continuously until the Clock.Read value
'has exceeded the target end time of the Fixation object.
Do While Clock.Read < lnFixationEndTime
'Check if the Clock.Read value has exceeded the overall
'time limit for the block.
If Clock.Read >= lnEndTime Then
'Flag that the target end time has been reached and
'exit the While loop.
boolBlockEnd = True
Exit Do
End If
Loop
If boolBlockEnd = True Then
'Calculate the total duration of the block and log this
'value as an attribute to verify that the block ran correctly.
lnBlockDuration = Clock.Read - lnStartTime
c.SetAttrib "BlockDuration", lnBlockDuration
'Terminate the TrialList so no more trials are run, and
'skip to the end of the trial.
TrialList.Terminate
GoTo EndLabel
End IfStimulusTextDisplay{B2689E16-D54F-42F0-A7BD-D50E40C8B425}20887<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboard1234[CorrectResponse]-11001YesAllYes00010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo[Stim]-1MonitorStimulusTimeInLine{E2F65EBA-6390-4BC0-A4F5-886E805D81C3}20887<_VersionPersist dt:dt="int">1'This loop will run continuously until a response has been
'received by the Stimulus object.
Do While Stimulus.InputMasks.IsPending()
'Check if the Clock.Read value has exceeded the overall
'time limit for the block.
If Clock.Read >= lnEndTime Then
'Flag that the target end time has been reached and
'exit the While loop.
boolBlockEnd = True
Exit Do
End If
Loop
If boolBlockEnd = True Then
'Calculate the total duration of the block and log this
'value as an attribute to verify that the block ran correctly.
lnBlockDuration = Clock.Read - lnStartTime
c.SetAttrib "BlockDuration", lnBlockDuration
'Terminate the TrialList so no more trials are run.
TrialList.Terminate
End IfEndLabelLabel{E4B8F176-554B-4D1F-AD4C-C7E132FD95ED}20887<_VersionPersist dt:dt="int">1IntroductionTextDisplay{F0D7E197-F37F-432E-9B9B-B1239315FA74}20887<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime1OffsetTime1FinishTime1TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{SPACE}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoWelcome to the experiment.
Press the spacebar to continue.-1InitializeInLine{483E8C7D-7C38-4DA1-9E6F-519184E32C9B}20887<_VersionPersist dt:dt="int">1'Initialize global variables.
lnStartTime = 0
lnEndTime = 0
lnBlockDuration = 0
boolBlockEnd = False'These variables will hold the start time and target end
'time of the block.
Dim lnStartTime As Long
Dim lnEndTime As Long
'This variable will be used to hold the actual duration
'of the block.
Dim lnBlockDuration As Long
'This Boolean variable will flag when the target end time
'has been reached or exceeded.
Dim boolBlockEnd As Boolean