2010252<_VersionPersist dt:dt="int">200{9F52F1D1-499A-4D22-B419-77DD90741252}SessionProcForeignCharactersSample Backup1Psychology Software Tools, Inc.In the InLine object named 'ButtonCombinations', you can see several different things which have to be done in order to input accented characters that require more than one key stroke. First a variable was declared using a Dim statement. That variable turned 'KeyboardResps' into an integer. Then, two more variables were made using similar Dim statements, called both 'KeyPress1' and 'KeyPress2' respectively. These variables were defined as two different instances of input from the keyboard, or 'KeyboardResponseData'. If…Then conditional statements using the previously-defined variables are used to let the program know that it is looking for two keystrokes and to differentiate each response detected from the keyboard by assigining them to their own variable. After each KeyPress variable is assigned its respective response, an Attribute called "Stimulus2" is initialized with the value "Invalid Combination". Slide2 presents "Invalid Combination" unless one of the specified key combinations in the Instructions is typed. Then a nested If...Then structure is used to check for for the specified combination. KeyPress1.RESP is checked to see if it is ";". If so, then another If...Then statement checks to see if KeyPress2.RESP is either "u" or "n". Otherwise, if KeyPress1.RESP is " ' ", then another If...Then statement checks to see if KeyPress2.RESP is either "o" or "e". The characters displayed in the sample are just a few basic examples of how to use this.{10343DBD-55BE-45C7-AA62-A5239F6918AB}011001212020-09-10T16:27:00.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048032white1039201NoYes10%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11001MouseMouse<_VersionPersist dt:dt="int">1-11000SoundSound<_VersionPersist dt:dt="int">1-10DirectSound-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel10101SubjectPlease 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{AD9F6BDA-1113-46B2-A942-BB468389F209}2010254<_VersionPersist dt:dt="int">201IntroductionBlockListGoodbye101222IntroductionTextDisplayBlockListListGoodbyeTextDisplayGoodbyeTextDisplay{474ADD51-197D-4888-952C-F9447BAB90FA}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime010000010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoGoodbye-1000BlockListList{9A510B4B-4A22-4358-8782-AABC7A1871BB}2010258<_VersionPersist dt:dt="int">5BlockProc000000001100Weight117510Nested17511Procedure1BlockProc75121 BlockProcBlockProcProcedure{B1B8D395-22CC-4D86-9319-CE788F7BD055}2010254<_VersionPersist dt:dt="int">201TrialList101222TrialListListTrialListList{E1BC468B-A091-48DB-8AC7-78984CEFD059}2010258<_VersionPersist dt:dt="int">5TrialProc000000001100Weight117510Nested17511Procedure1TrialProc75121 TrialProcTrialProcProcedure{C04A9ADE-8F25-4E11-A20E-33A9E59209A1}2010254<_VersionPersist dt:dt="int">201InstructionsSlide1ButtonCombinationsSlide2101222InstructionsTextDisplaySlide1SlideButtonCombinationsInLineSlide2SlideInstructionsTextDisplay{97F8566B-4BFF-42AD-A24B-A44D3AD466D6}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{SPACE}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoOn the next slide, type one of the following: ";" and "u" to produce a "ú" character ";" and "n" to produce a "ñ" character "'" and "o" to produce a "ó" character or "'" and "e" to produce a "é" character Press Space to continue-1000Slide1Slide{0E428CE3-F416-43A0-8110-460D312E3656}2010273<_VersionPersist dt:dt="int">110OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{ANY}2111YesAllYesDefaultwhiteopaqueblack0centercenter100%100%centercenterNoYes-10Default010000DisplayDeviceButtonCombinationsInLine{68C27A95-3EFC-4295-9F67-CBA297DB3AE0}2010262<_VersionPersist dt:dt="int">1'Declare variable to count responses Dim KeyboardResps As Integer 'Declare variables to identify each response Dim KeyPress1 As KeyboardResponseData Dim KeyPress2 As KeyboardResponseData 'Set KeyboardResps equal to the number of responses made KeyboardResps = Slide1.InputMasks.Responses.Count 'If there was a response If keyboardResps > 0 Then 'Set KeyPress1 equal to the first key that was pressed Set KeyPress1 = CKeyboardResponseData(Slide1.InputMasks.Responses(1)) 'If there was a second response If keyboardResps = 2 Then 'Set KeyPress2 equal to the second key that was pressed Set KeyPress2 = CKeyboardResponseData(Slide1.InputMasks.Responses(2)) End If End If 'Initialize Attribute for feedback. This will be changed if any of the prompted key pairs are typed. c.SetAttrib "Stimulus2", "Invalid Combination" 'Check for specific key cominations 'If first response is ";" If KeyPress1.RESP = "{;}" Then 'If second response is "u" If KeyPress2.RESP = "u" Then 'Make a "ú" on the feedback screen c.SetAttrib "Stimulus2", "ú" 'Otherwise if the second response is "n" ElseIf KeyPress2.RESP = "n" Then 'Make a "ñ" on the feedback screen c.SetAttrib "Stimulus2", "ñ" End If 'If first response is "'" ElseIf KeyPress1.RESP = "{'}" Then 'If second response is "o" If KeyPress2.RESP = "o" Then 'Make a "ó" on the feedback screen c.SetAttrib "Stimulus2", "ó" 'Otherwise if the second response is "e" ElseIf KeyPress2.RESP = "e" Then 'Make a "é" on the feedback screen c.SetAttrib "Stimulus2", "é" End If End IfSlide2Slide{3364EB19-9967-4E5B-A465-E7760297D0E8}2010273<_VersionPersist dt:dt="int">110OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0Defaultwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextText1blackwhiteopaque0blackcentercenter47%25%centercentercentercenterCourier New18YesNoNoNo[Stimulus2]-110000Default010000DisplayDeviceIntroductionTextDisplay{02EFC7F2-7397-4307-9FA2-91D5C2085EA7}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{SPACE}1111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoYou will be asked to write accented characters. Press the Spacebar to continue-1000