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">1InitializeVariablesInstructionsBlockListSetTotalPointsAttribDisplayTotalWinningsGoodbye1InitializeVariablesInstructionsBlockListSetTotalPointsAttribDisplayTotalWinningsGoodbyeInitializeVariablesInLine{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">1PracticeMode1BlockProc00000001100Weight17510Procedure17511Nested17512PracticeMode0?861881 BlockProc NoBlockProcProcedure{DAD7B5B7-BA9F-4113-AD5D-3B3386422324}20887<_VersionPersist dt:dt="int">1TrialList1TrialListTrialListListThis 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">1Stimulus1CorrectAnswer1TempWinnings1TrialProc10000001100Weight17510Procedure17511Nested17512Stimulus0?75188CorrectAnswer0?110188TempWinnings0?1431882 TrialProc X 1 ?2 TrialProc Y 2 ?TrialProcProcedure{09DB5D08-F625-4FB2-8E42-25B453692EF9}20887<_VersionPersist dt:dt="int">1FixationStimulusCalculateRewardFeedback1FixationStimulusCalculateRewardFeedbackFixationTextDisplayShort 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