20890<_VersionPersist dt:dt="int">50SessionProc2014-02-13T21:39:07.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{D767E6B5-E034-4675-9223-7280DB88D98C}20887<_VersionPersist dt:dt="int">1- InitializeVariables
- Instructions
- BlockList
- SetTotalPointsAttrib
- DisplayTotalWinnings
- Goodbye
1InitializeVariablesInstructionsBlockListSetTotalPointsAttribDisplayTotalWinningsGoodbyeInitializeVariablesInLine{F295A0DC-EE9D-4675-8EFD-9F735782F469}20887<_VersionPersist dt:dt="int">1'Initializes the variable Winnings as zero.
Winnings = 0
InstructionsTextDisplayThis object presents the instructions to the user.{3A565AF1-A47B-4F1D-A57D-152EFB9B2A02}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes100000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoWelcome to the experiment.
You will see a fixation followed by either an 'X' or a 'Y'.
Press '1' for an 'X' or '2' for a 'Y'.
You will win 10 dollars for each correct response, and lose a third of your winnings for each incorrect response.
Press any key to continue.-1BlockListListThis List object runs the BlockProc once.{4A4EE5E7-B067-4890-A9D1-4E05E1CC98E2}20887<_VersionPersist dt:dt="int">1PracticeMode1- BlockProc
00000001100Weight17510Procedure17511Nested17512PracticeMode0?861881 BlockProc NoBlockProcProcedure{DAD7B5B7-BA9F-4113-AD5D-3B3386422324}20887<_VersionPersist dt:dt="int">1- TrialList
1TrialListTrialListListThis List object runs the TrialProc 4 times by manipulating the Weight attribute.
The Stimulus attribute is used to present the letter X or Y to the user. The
CorrectAnswer attribute is used in conjunction with the Correct property of object
Stimulus, to determine if the user's response was correct or incorrect.
The final attribute, TempPoints is used in conjunction with the InLine object
AwardPoints. AwardPoints uses the c.SetAttrib command to assign a value
to TempPoints. This value is the user's running score.{8F882500-28ED-4467-94E4-C806A9098EBB}20887<_VersionPersist dt:dt="int">1Stimulus1CorrectAnswer1TempWinnings1- TrialProc
10000001100Weight17510Procedure17511Nested17512Stimulus0?75188CorrectAnswer0?110188TempWinnings0?1431882 TrialProc X 1 ?2 TrialProc Y 2 ?TrialProcProcedure{09DB5D08-F625-4FB2-8E42-25B453692EF9}20887<_VersionPersist dt:dt="int">1- Fixation
- Stimulus
- CalculateReward
- Feedback
1FixationStimulusCalculateRewardFeedbackFixationTextDisplayShort presentaion of a fixation cross prior to stimulus presentation.{1212D056-8927-4298-9015-4A06FAC7BF0A}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo
+
Press '1' for X
Press '2' for Y-1StimulusTextDisplayThe attribute Stimulus is used to present varying stimuli to the user each trial. It
is presented for up to 5 seconds, during which the user can respond.
The user can respond with a 1 or a 2 keypress, and the CorrectAnswer attribute is
referenced in the property Correct to determine the accuracy of the user's response.{2F1B6DCE-62F2-4547-B3A2-DBF6DCC5F11F}20887<_VersionPersist dt:dt="int">1OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboard12[CorrectAnswer]1111YesAllYes50000010blackwhiteopaqueblack0centercenter25%25%centercentercentercenterNoCourier New18YesNoNoNo[Stimulus]-1CalculateRewardInLine{2092F961-BEEA-48AE-83B4-9B23377EB912}20887<_VersionPersist dt:dt="int">1'Add or subtract winnings/money based on accuracy.
If Stimulus.ACC = 1 Then
Winnings = Winnings + 10
Else
Winnings = Winnings - (Winnings / 3)
End If
'Set the attribute TempWinnings to Winnings for the presentation
'of a running score in Feedback
c.SetAttrib "TempWinnings", Format(Winnings, "$###.00")
'Print debug values to the Output window to show how Format works
Debug.Print "Trial winnings before formatting: " & Winnings
Debug.Print "Trial winnings after formatting: " & Format(Winnings, "$###.00")
Debug.Print ""
FeedbackFeedbackDisplayDisplays the users accuracy per trial; their reaction time; and their running score.
The user's running score is presented by referencing the attribute TempPoints.{8B4C15A6-778B-4DD3-A018-490C0DBA5FFB}201025<_VersionPersist dt:dt="int">15OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0Correctwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1bluewhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoCorrect!-1SlideTextText2bluewhitetransparent0blackcenter35%75%10%centercenterleftcenterCourier New18YesNoNoNo@RT Seconds Response Time-1SlideTextText3blackwhiteopaque0blackcenter55%75%10%centercenterleftcenterCourier New18YesNoNoNoYou have won [TempWinnings] so far.-1Incorrectwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter21%75%10%centercenterleftcenterCourier New18YesNoNoNoIncorrect-1SlideTextText2redwhitetransparent0blackcenter35%75%10%centercenterleftcenterCourier New18YesNoNoNo@RT Seconds Response Time-1SlideTextText3blackwhiteopaque0blackcenter55%75%10%centercenterleftcenterCourier New18YesNoNoNoYou have won [TempWinnings] so far.-1NoResponsewhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1redwhitetransparent0blackcenter20%75%10%centercenterleftcenterCourier New18YesNoNoNoNo response detected.-1Pendingwhiteopaqueblack0centercenter100%100%centercenterNoYes20000010011111.0Percent1000.0###0.0001000.0###0.0001000.0###0.000StimulusSetTotalPointsAttribInLine{7AD31963-CFD1-4B6D-BA10-940C5A4A7E75}20887<_VersionPersist dt:dt="int">1'Assigns the value of Winnings to the Block level attribute TotalWinnings.
C.SetAttrib "TotalWinnings", Format(Winnings,"$###.00")
'Print debug values to the Output window to show how Format works
Debug.Print "Total winnings before formatting: " & Winnings
Debug.Print "Total winnings after formatting: " & Format(Winnings, "$###.00")
DisplayTotalWinningsTextDisplayDisplays the user's total points using the attribute TotalPoints.{2A48C742-41BF-4E9C-A470-E5ADE315D417}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag020000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoYour total amount won = [TotalWinnings]-1GoodbyeTextDisplayLets the user know the experiment is over.{BB5B7F13-22A2-4C5E-AF56-915ACCEC8E23}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag050000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThank you for participating.
Please view the Debug tab of the Output window (Alt+3) for examples of how the Format function works.
Goodbye!-1'Create the Winnings variable
Dim Winnings As Double