20890<_VersionPersist dt:dt="int">50SessionProcPsychology Software Tools, Inc. (Michael Hout)This experiment demonstrates two different methods for
implementing a Score Bar. The first method uses multiple
SlideText sub-objects arranged to create an incremental Score Bar.
The second method uses the Canvas object to color a certain area
of the Score Bar red, according to the score of the subject.
The first method uses multiple SlideText sub-objects arranged
horizontally. After a subject responds, the appropriate sub-object is
accessed using a SlideText variable in InLine script. The BackColor
property of the SlideText is then set to red or white as appropriate.
This part of the experiment ends after 20 trials, or when the Score
Bar is full.
The second method uses a Canvas object to draw a red rectangle
across the bottom of the screen. The width of this rectangle
increases by 100 pixels for each correct answer, and decreases by
100 pixels for each incorrect answer. This part of the experiment
ends after 20 trials, or when the Score Bar is full.
Though the methods employed in this sample are such that the
Score Bar increases only with correct answers, the methods could
easily be generalized. For instance, it would be possible to
implement a bar to increase with the amount of trials that have
elapsed, or to increase the bar every time a certain key is pressed.2014-02-03T20:01:04.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1102476816white1NoKeyboardKeyboard<_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{E7EBC4C3-38A4-45E6-9F5D-3EC46D05462B}20887<_VersionPersist dt:dt="int">1- Intro
- BlockList
- Goodbye
1IntroBlockListGoodbyeGoodbyeTextDisplay{7D2E01F8-D622-44F0-AAE0-B86798185432}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThank you and goodbye.-1BlockListList{FF9EA622-43A9-4008-8A5E-6C349F04B56B}20887<_VersionPersist dt:dt="int">1- SlideProc
- CanvasProc
00000001100Weight17510Nested17511Procedure175121 SlideProc1 CanvasProcSlideProcProcedure{DA3B864F-8FFF-47D5-A32A-9A9A502558A4}20887<_VersionPersist dt:dt="int">1- SlideIntro
- Initialize
- TrialList1
1SlideIntroInitializeTrialList1SlideIntroTextDisplay{BE092A4A-D18D-49C3-96CB-889A18BF60B5}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThis is the first method, which uses
multiple SlideText sub-objects.
On each trial, the instructions will explain what key
to press for a correct answer. The score will increase
if you respond correctly, and will decrease otherwise.
Please press any key to continue.-1InitializeInLine{1FCF7EC4-D0C4-4744-BF0F-272C6A797382}20887<_VersionPersist dt:dt="int">1'Initialize the nCurrent variable to zero
nCurrent = 0
TrialList1List{A69AF1A0-A724-4C72-968D-5AA5DF19CDE1}20887<_VersionPersist dt:dt="int">1CorrectAnswer1- TrialProc1
00000002100Weight17510Nested17511Procedure17512CorrectAnswer0?1021881 TrialProc1 11 TrialProc1 21 TrialProc1 31 TrialProc1 41 TrialProc1 51 TrialProc1 61 TrialProc1 71 TrialProc1 81 TrialProc1 91 TrialProc1 0TrialProc1Procedure{B6920633-63C8-4ECD-9EFF-7B9A84AFED26}20887<_VersionPersist dt:dt="int">1- Stimulus
- CheckACC
- SetColor
1StimulusCheckACCSetColorStimulusSlide{12EAC73C-07B3-4C8E-AE84-901772B0D332}201025<_VersionPersist dt:dt="int">15OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboard{ANY}[CorrectAnswer]1111YesAllYesDefaultwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1blackwhiteopaque2black28%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText2blackwhiteopaque2black33%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText3blackwhiteopaque2black38%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText4blackwhiteopaque2black43%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText5blackwhiteopaque2black48%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText6blackwhiteopaque2black53%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText7blackwhiteopaque2black58%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText8blackwhiteopaque2black63%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText9blackwhiteopaque2black68%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText10blackwhiteopaque2black73%75%5%5%centercentercentercenterCourier New18YesNoNoNo-1SlideTextText11blackwhiteopaque0blackcenter25%75%25%centercentercentercenterCourier New18YesNoNoNoPress [CorrectAnswer] for a correct answer.-1-10Default010CheckACCInLine{43EF838C-EC3D-46BF-A1CA-7C8F8DD636BD}20887<_VersionPersist dt:dt="int">1'Check Accuracy and score accordingly.
If Stimulus.ACC = 1 Then
nPrevious = nCurrent
nCurrent = nCurrent + 1
ElseIf Stimulus.ACC = 0 Then
nPrevious = nCurrent
nCurrent = nCurrent - 1
'Error checking so nCurrent does not drop below 0.
If nCurrent <= 0 Then
nCurrent = 0
End If
End IfSetColorInLine{4C51235F-5117-4CF6-BCCE-F40EDE8E62F8}20887<_VersionPersist dt:dt="int">1'This script will determine if a SlideText must be changed to red or white,
'gains access to the correct SlideText using a SlideText variable, and changes
'the BackColor property appropriately.
Dim strName As String
Dim theSlideText As SlideText
'If the subject answered correctly...
If nCurrent > nPrevious Then
'Gain access the SlideText that must be changed.
strName = "Text" & nCurrent
Set theSlideText = CSlideText(Stimulus.States.Item("Default").Objects(strName))
'Change the SlideText BackColor to red.
theSlideText.BackColor = CColor("red")
'The subject answered incorrectly.
Else
'Gain access to the SlideText that must be changed.
strName = "Text" & (nCurrent + 1)
Set theSlideText = CSlideText(Stimulus.States.Item("Default").Objects(strName))
'Change the SlideText BackColor to white.
theSlideText.BackColor = CColor("white")
End If
'If the score bar is completely filled...
If nCurrent = 10 Then
'Draw the Stimulus object to show changes.
Stimulus.Draw
Sleep 500
'Terminate the TrialList1 so no further trials are run (since the score
'bar is full).
TrialList1.Terminate
End IfCanvasProcProcedure{17CC0D93-E8AD-4E23-BAED-D3BF111C84C4}20887<_VersionPersist dt:dt="int">1- CanvasIntro
- Initialize
- TrialList2
1CanvasIntroInitializeTrialList2CanvasIntroTextDisplay{50D58E14-9390-4555-A414-8415CE6FF1C9}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterYesCourier New18YesNoNoNoThis is the second method, which uses the Canvas object.
On each trial, the instructions will explain what key
to press for a correct answer. The score will increase
if you respond correctly, and will decrease otherwise.
Please press any key to continue.-1TrialList2List{FC2BD464-84B3-4402-9463-9A40E49C9BC9}20887<_VersionPersist dt:dt="int">1CorrectAnswer1- TrialProc2
00000002100Weight17510Nested17511Procedure17512CorrectAnswer0?751881 TrialProc2 11 TrialProc2 21 TrialProc2 31 TrialProc2 41 TrialProc2 51 TrialProc2 61 TrialProc2 71 TrialProc2 81 TrialProc2 91 TrialProc2 0TrialProc2Procedure{213BC428-AAC2-4143-A025-8FDCC821EBB4}20887<_VersionPersist dt:dt="int">1- DrawOnCanvas
- Stimulus2
- CheckACC2
- EndCanvas
1DrawOnCanvasStimulus2CheckACC2EndCanvasDrawOnCanvasInLine{CE7D5881-4EAB-4FCB-81B0-B700F64A00F0}20887<_VersionPersist dt:dt="int">1'Declare the canvas offscreen
Dim cnvs As Canvas
Set cnvs = Display.CreateCanvas
'Declare variables for X and Y location of rectangle (top left corner)
Dim xLoc As Long
Dim yLoc As Long
'Declare contants for height and width of rectangle
Const cHeight As Integer = 50
Const cWidth As Integer = 1002
'Declare variable for width of bar in pixels (calculated from nCurrent counter)
Dim pixelsCurrent As Integer
'Set top left coordinates of the rectangle
xLoc = 12
yLoc = Display.YRes * .75
yLoc = CInt(yLoc)
'Draw an empty Rectangle for the border
cnvs.PenColor = CColor("black")
cnvs.FillColor = CColor("white")
cnvs.Rectangle xLoc, yLoc, cWidth, cHeight
'Error checking in case counter goes above 10 or into negatives
If nCurrent <= 0 Then
nCurrent = 0
End If
If nCurrent >= 10 Then
nCurrent = 10
End If
'Convert nCurrent into pixels
pixelsCurrent = nCurrent * 100
'Draw status bar
cnvs.PenColor = CColor("red")
cnvs.FillColor = CColor("red")
cnvs.Rectangle xLoc + 1, yLoc + 1, pixelsCurrent, cHeight - 2
'Ready the offscreen canvas for copy
Dim rc As Rect
rc.Left = xLoc
rc.Top = yLoc
rc.Right = rc.Left + cWidth
rc.Bottom = rc.Top + cHeight
'Copy the offscreen canvas to the display
Display.Canvas.Copy cnvs, rc, rc
'Release references
Set cnvs = Nothing
'Terminate the TrialList2 object when Score Bar is full.
'Skip to the end of the trial so additional responses are not collected.
If nCurrent >= 10 Then
TrialList2.Terminate
Sleep 500
GoTo EndCanvas
End IfStimulus2Slide{694452F3-9B61-4DBC-A8E4-5DE4FA256B42}201025<_VersionPersist dt:dt="int">15OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0KeyboardKeyboard{ANY}[CorrectAnswer]1111YesAllYesDefaultwhitetransparentblack0centercenter100%100%centercenterYesYesSlideTextText1blackwhiteopaque0blackcenter25%75%25%centercentercentercenterCourier New18YesNoNoNoPress [CorrectAnswer] for a correct answer.-1-10Default010CheckACC2InLine{E5926C72-1E10-4825-8C5F-13BF598AC24C}20887<_VersionPersist dt:dt="int">1
'Check Accuracy and score accordingly
If Stimulus2.ACC = 1 Then
nCurrent = nCurrent + 1
ElseIf Stimulus2.ACC = 0 Then
nCurrent = nCurrent - 1
End If
EndCanvasLabel{28418B8A-7B96-4916-AFFA-161606D88046}20887<_VersionPersist dt:dt="int">1IntroTextDisplay{FE9240D7-614F-4212-8FF2-167AB6CC8A7E}20887<_VersionPersist dt:dt="int">1OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0KeyboardKeyboard{ANY}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThis experiment will demonstrate two different methods
of how to create a Score Bar.
The first method uses multiple SlideText
sub-objects, and sets the BackColor properties of the objects
according the number correct.
The second method uses the Canvas object, and
colors a certain amount of a given rectangle
based on the number of correct responses.
Please press any key to continue.-1'This counter will act as an internal score to keep track of how many SlideText
'objects must be displayed in red or how wide the Canvas rectangle must be.
Dim nCurrent As Long
Dim nPrevious As Long
Dim Terminate As Boolean