2010252<_VersionPersist dt:dt="int">200{0C80FE58-7092-41BB-8B1F-2671F4C8DF96}SessionProc{10343DBD-55BE-45C7-AA62-A5239F6918AB}011001412017-10-19T16:15:26.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048032white1039201NoNo125%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 (0=No Data Logging):0-1-1102147483647SessionPlease 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{B9B12B4C-959A-468F-B188-BCB116860F14}2010254<_VersionPersist dt:dt="int">201RecalculateRefreshRate101022RecalculateRefreshRateInLineRecalculateRefreshRateInLine{7372D0AA-63BD-4759-AE37-D0EA312FFA6C}2010262<_VersionPersist dt:dt="int">1' Constants to avoid "script too large to be compiled" on experiments with numerous objects Const cSessionProc = ebUCase_S & ebLCase_e & ebLCase_s & ebLCase_s & ebLCase_i & ebLCase_o & ebLCase_n & ebUCase_P & ebLCase_r & ebLCase_o & ebLCase_c Const cErrUnableToFindSessionProc = ebUCase_U & ebLCase_n & ebLCase_a & ebLCase_b & ebLCase_l & ebLCase_e & ebSpace & ebLCase_t & ebLCase_o & ebSpace & ebLCase_f & ebLCase_i & ebLCase_n & ebLCase_d & ebSpace & ebLCase_t & ebLCase_o & ebLCase_p & ebSpace & ebUCase_S & ebLCase_e & ebLCase_s & ebLCase_s & ebLCase_i & ebLCase_o & ebLCase_n & ebUCase_P & ebLCase_r & ebLCase_o & ebLCase_c & ebSpace & ebLCase_o & ebLCase_r & ebSpace & ebLCase_s & ebLCase_t & ebLCase_a & ebLCase_r & ebLCase_t & ebLCase_i & ebLCase_n & ebLCase_g & ebSpace & ebUCase_P & ebLCase_r & ebLCase_o & ebLCase_c & ebLCase_e & ebLCase_d & ebLCase_u & ebLCase_r & ebLCase_e & ebSpace & ebLCase_o & ebLCase_b & ebLCase_j & ebLCase_e & ebLCase_c & ebLCase_t Const cRecalculateRefreshRate = ebUCase_R & ebLCase_e & ebLCase_c & ebLCase_a & ebLCase_l & ebLCase_c & ebLCase_u & ebLCase_l & ebLCase_a & ebLCase_t & ebLCase_e & ebUCase_R & ebLCase_e & ebLCase_f & ebLCase_r & ebLCase_e & ebLCase_s & ebLCase_h & ebUCase_R & ebLCase_a & ebLCase_t & ebLCase_e Const cRecalculateRefreshRateNotFirst = ebUCase_P & ebLCase_l & ebLCase_e & ebLCase_a & ebLCase_s & ebLCase_e & ebSpace & ebLCase_v & ebLCase_e & ebLCase_r & ebLCase_i & ebLCase_f & ebLCase_y & ebSpace & ebLCase_t & ebLCase_h & ebLCase_a & ebLCase_t & ebSpace & ebLCase_t & ebLCase_h & ebLCase_e & ebSpace & ebUCase_R & ebLCase_e & ebLCase_c & ebLCase_a & ebLCase_l & ebLCase_c & ebLCase_u & ebLCase_l & ebLCase_a & ebLCase_t & ebLCase_e & ebUCase_R & ebLCase_e & ebLCase_f & ebLCase_r & ebLCase_e & ebLCase_s & ebLCase_h & ebUCase_R & ebLCase_a & ebLCase_t & ebLCase_e & ebUCase_F & ebLCase_i & ebLCase_r & ebLCase_s & ebLCase_t & ebSpace & ebUCase_I & ebLCase_n & ebUCase_L & ebLCase_i & ebLCase_n & ebLCase_e & ebSpace & ebLCase_a & ebLCase_p & ebLCase_p & ebLCase_e & ebLCase_a & ebLCase_r & ebLCase_s & ebSpace & ebLCase_f & ebLCase_i & ebLCase_r & ebLCase_s & ebLCase_t & ebSpace & ebLCase_i & ebLCase_n & ebSpace & ebLCase_t & ebLCase_h & ebLCase_e & ebSpace & ebLCase_e & ebLCase_x & ebLCase_p & ebLCase_e & ebLCase_r & ebLCase_i & ebLCase_m & ebLCase_e & ebLCase_n & ebLCase_t & ebSpace & ebUCase_S & ebLCase_t & ebLCase_r & ebLCase_u & ebLCase_c & ebLCase_t & ebLCase_u & ebLCase_r & ebLCase_e Const cFlippingRequired = ebUCase_D & ebLCase_i & ebLCase_s & ebLCase_p & ebLCase_l & ebLCase_a & ebLCase_y & ebSpace & ebLCase_r & ebLCase_e & "-" & ebLCase_d & ebLCase_e & ebLCase_t & ebLCase_e & ebLCase_c & ebLCase_t & ebSpace & ebLCase_r & ebLCase_e & ebLCase_f & ebLCase_r & ebLCase_e & ebLCase_s & ebLCase_h & ebSpace & ebLCase_r & ebLCase_a & ebLCase_t & ebLCase_e & ebSpace & ebLCase_n & ebLCase_o & ebLCase_t & ebSpace & ebLCase_s & ebLCase_u & ebLCase_p & ebLCase_p & ebLCase_o & ebLCase_r & ebLCase_t & ebLCase_e & ebLCase_d & ebSpace & ebLCase_s & ebLCase_i & ebLCase_n & ebLCase_c & ebLCase_e & ebSpace & ebUCase_D & ebLCase_i & ebLCase_s & ebLCase_p & ebLCase_l & ebLCase_a & ebLCase_y & ebUCase_D & ebLCase_e & ebLCase_v & ebLCase_i & ebLCase_c & ebLCase_e & ebDot & ebUCase_F & ebLCase_l & ebLCase_i & ebLCase_p & ebLCase_p & ebLCase_i & ebLCase_n & ebLCase_g & ebUCase_E & ebLCase_n & ebLCase_a & ebLCase_b & ebLCase_l & ebLCase_e & ebLCase_d & ebSpace & ebLCase_i & ebLCase_s & ebSpace & ebLCase_n & ebLCase_o & ebLCase_t & ebSpace & ebLCase_l & ebLCase_o & ebLCase_g & ebLCase_i & ebLCase_c & ebLCase_a & ebLCase_l & ebSpace & ebLCase_t & ebLCase_r & ebLCase_u & ebLCase_e & ebDot & ebSpace & ebSpace & ebUCase_D & ebLCase_i & ebLCase_s & ebLCase_p & ebLCase_l & ebLCase_a & ebLCase_y & ebUCase_D & ebLCase_e & ebLCase_v & ebLCase_i & ebLCase_c & ebLCase_e & ebDot & ebUCase_N & ebLCase_a & ebLCase_m & ebLCase_e & ebSpace & "=" & ebSpace Const cUnableToRecalculateRefreshRate = ebUCase_U & ebLCase_n & ebLCase_a & ebLCase_b & ebLCase_l & ebLCase_e & ebSpace & ebLCase_t & ebLCase_o & ebSpace & ebLCase_r & ebLCase_e & ebLCase_c & ebLCase_a & ebLCase_l & ebLCase_c & ebLCase_u & ebLCase_l & ebLCase_a & ebLCase_t & ebLCase_e & ebSpace & ebLCase_r & ebLCase_e & ebLCase_f & ebLCase_r & ebLCase_e & ebLCase_s & ebLCase_h & ebSpace & ebLCase_r & ebLCase_a & ebLCase_t & ebLCase_e Const cRefreshRateFormat = ebDigit_0 & ebDot & ebDigit_0 & ebDigit_0 & ebDigit_0 Const cDotRefreshRate = ebDot & ebUCase_R & ebLCase_e & ebLCase_f & ebLCase_r & ebLCase_e & ebLCase_s & ebLCase_h & ebUCase_R & ebLCase_a & ebLCase_t & ebLCase_e Const cDotRefreshRateValidTime = ebDot & ebUCase_R & ebLCase_e & ebLCase_f & ebLCase_r & ebLCase_e & ebLCase_s & ebLCase_h & ebUCase_R & ebLCase_a & ebLCase_t & ebLCase_e & ebDot & ebUCase_V & ebLCase_a & ebLCase_l & ebLCase_i & ebLCase_d & ebUCase_T & ebLCase_i & ebLCase_m & ebLCase_e Const cBasicDriverInUse = ebUCase_T & ebLCase_h & ebLCase_e & ebSpace & ebLCase_c & ebLCase_a & ebLCase_l & ebLCase_c & ebLCase_u & ebLCase_l & ebLCase_a & ebLCase_t & ebLCase_e & ebLCase_d & ebSpace & ebLCase_r & ebLCase_e & ebLCase_f & ebLCase_r & ebLCase_e & ebLCase_s & ebLCase_h & ebSpace & ebLCase_d & ebLCase_u & ebLCase_r & ebLCase_a & ebLCase_t & ebLCase_i & ebLCase_o & ebLCase_n & ebSpace & ebLCase_i & ebLCase_s & ebSpace & ebLCase_a & ebLCase_p & ebLCase_p & ebLCase_r & ebLCase_o & ebLCase_x & ebLCase_i & ebLCase_m & ebLCase_a & ebLCase_t & ebLCase_e & ebLCase_l & ebLCase_y & ebSpace & ebDigit_6 & ebDigit_4 & ebLCase_h & ebLCase_z & ebSpace & ebLCase_w & ebLCase_h & ebLCase_i & ebLCase_c & ebLCase_h & ebSpace & ebLCase_m & ebLCase_a & ebLCase_y & ebSpace & ebLCase_i & ebLCase_n & ebLCase_d & ebLCase_i & ebLCase_c & ebLCase_a & ebLCase_t & ebLCase_e & ebSpace & ebLCase_t & ebLCase_h & ebLCase_e & ebSpace & ebLCase_u & ebLCase_s & ebLCase_a & ebLCase_g & ebLCase_e & ebSpace & ebLCase_o & ebLCase_f & ebSpace & ebUCase_M & ebLCase_i & ebLCase_c & ebLCase_r & ebLCase_o & ebLCase_s & ebLCase_o & ebLCase_f & ebLCase_t & ebSpace & ebUCase_B & ebLCase_a & ebLCase_s & ebLCase_i & ebLCase_c & ebSpace & ebUCase_D & ebLCase_i & ebLCase_s & ebLCase_p & ebLCase_l & ebLCase_a & ebLCase_y & ebSpace & ebUCase_A & ebLCase_d & ebLCase_a & ebLCase_p & ebLCase_t & ebLCase_e & ebLCase_r & ebSpace & ebLCase_w & ebLCase_h & ebLCase_i & ebLCase_c & ebLCase_h & ebSpace & ebLCase_h & ebLCase_a & ebLCase_s & ebSpace & ebLCase_b & ebLCase_e & ebLCase_e & ebLCase_n & ebSpace & ebLCase_s & ebLCase_h & ebLCase_o & ebLCase_w & ebLCase_n & ebSpace & ebLCase_t & ebLCase_o & ebSpace & ebLCase_e & ebLCase_m & ebLCase_u & ebLCase_l & ebLCase_a & ebLCase_t & ebLCase_e & ebSpace & ebLCase_d & ebLCase_i & ebLCase_s & ebLCase_p & ebLCase_l & ebLCase_a & ebLCase_y & ebSpace & ebLCase_o & ebLCase_p & ebLCase_e & ebLCase_r & ebLCase_a & ebLCase_t & ebLCase_i & ebLCase_o & ebLCase_n & ebLCase_s & ebSpace & ebLCase_r & ebLCase_e & ebLCase_s & ebLCase_u & ebLCase_l & ebLCase_t & ebLCase_i & ebLCase_n & ebLCase_g & ebSpace & ebLCase_i & ebLCase_n & ebSpace & ebLCase_p & ebLCase_o & ebLCase_o & ebLCase_r & ebSpace & ebLCase_t & ebLCase_i & ebLCase_m & ebLCase_i & ebLCase_n & ebLCase_g & ebDot & ebSpace & ebSpace & ebUCase_T & ebLCase_o & ebSpace & ebLCase_a & ebLCase_v & ebLCase_o & ebLCase_i & ebLCase_d & ebSpace & ebLCase_t & ebLCase_h & ebLCase_i & ebLCase_s & ebSpace & ebLCase_e & ebLCase_r & ebLCase_r & ebLCase_o & ebLCase_r & "," & ebSpace & ebLCase_i & ebLCase_n & ebLCase_s & ebLCase_t & ebLCase_a & ebLCase_l & ebLCase_l & ebSpace & ebLCase_a & ebSpace & ebLCase_m & ebLCase_a & ebLCase_n & ebLCase_u & ebLCase_f & ebLCase_a & ebLCase_c & ebLCase_t & ebLCase_u & ebLCase_r & ebLCase_e & ebSpace & ebLCase_v & ebLCase_i & ebLCase_d & ebLCase_e & ebLCase_o & ebSpace & ebLCase_d & ebLCase_r & ebLCase_i & ebLCase_v & ebLCase_e & ebLCase_r & ebSpace & ebLCase_f & ebLCase_o & ebLCase_r & ebSpace & ebLCase_y & ebLCase_o & ebLCase_u & ebLCase_r & ebSpace & ebLCase_g & ebLCase_r & ebLCase_a & ebLCase_p & ebLCase_h & ebLCase_i & ebLCase_c & ebLCase_s & ebSpace & ebLCase_a & ebLCase_d & ebLCase_a & ebLCase_p & ebLCase_t & ebLCase_e & ebLCase_r & ebSpace & ebLCase_o & ebLCase_r & ebSpace & ebLCase_r & ebLCase_e & ebLCase_m & ebLCase_o & ebLCase_v & ebLCase_e & ebSpace & ebLCase_t & ebLCase_h & ebLCase_e & ebSpace & ebDigit_6 & ebDigit_4 & ebLCase_h & ebLCase_z & ebSpace & ebLCase_c & ebLCase_h & ebLCase_e & ebLCase_c & ebLCase_k & ebSpace & ebLCase_a & ebLCase_f & ebLCase_t & ebLCase_e & ebLCase_r & ebSpace & ebLCase_u & ebLCase_s & ebLCase_i & ebLCase_n & ebLCase_g & ebSpace & ebLCase_h & ebLCase_a & ebLCase_r & ebLCase_d & ebLCase_w & ebLCase_a & ebLCase_r & ebLCase_e & ebSpace & ebLCase_t & ebLCase_o & ebSpace & ebLCase_v & ebLCase_e & ebLCase_r & ebLCase_i & ebLCase_f & ebLCase_y & ebSpace & ebLCase_y & ebLCase_o & ebLCase_u & ebLCase_r & ebSpace & ebLCase_g & ebLCase_r & ebLCase_a & ebLCase_p & ebLCase_h & ebLCase_i & ebLCase_c & ebSpace & ebLCase_a & ebLCase_d & ebLCase_a & ebLCase_p & ebLCase_t & ebLCase_e & ebLCase_r & ebSpace & ebLCase_p & ebLCase_e & ebLCase_r & ebLCase_f & ebLCase_o & ebLCase_r & ebLCase_m & ebLCase_a & ebLCase_n & ebLCase_c & ebLCase_e & ebDot Dim theProcedure As Procedure Set theProcedure = CProcedure(Rte.GetObject(cSessionProc)) ' In the event this error fires the main procedure is not SessionProc then the experiment author ' can update the value Of cSessionProc To the name Of the first Procedure In your Structure If theProcedure Is Nothing Then Rte.AbortExperiment -999, cErrUnableToFindSessionProc ' Determine if the RecalculateRefreshRate is the first item to run in the experiment Structure Dim bRecalculateRefreshRateFirst As Boolean If theProcedure.ChildObjectCount > 0 Then If theProcedure.GetChildObjectName(1) = cRecalculateRefreshRate Then bRecalculateRefreshRateFirst = True End If If Not bRecalculateRefreshRateFirst Then Rte.AbortExperiment -999, cRecalculateRefreshRateNotFirst ' Enumerate through open display devices and determine if the refresh rate needs recalculated Dim nDevice As Long For nDevice = 1 To Rte.DeviceManager.GetDeviceCount Dim theDisplayDevice As DisplayDevice Set theDisplayDevice = CDisplayDevice(Rte.DeviceManager.GetDevice(nDevice)) If Not theDisplayDevice Is Nothing Then If theDisplayDevice.GetState() = ebStateOpen Then ' The recalculation workaround is only supported when flipping If Not theDisplayDevice.FlippingEnabled Then Rte.AbortExperiment -999, cFlippingRequired & theDisplayDevice.Name ' Do we need to recalculate the refresh rate? If theDisplayDevice.CalculatedRefreshRate < 50 Then ' Force the screen to paint something (must be done twice) theDisplayDevice.Canvas.SetPixel 0, 0, theDisplayDevice.Canvas.GetPixel(0, 0) theDisplayDevice.Canvas.SetPixel 0, 0, theDisplayDevice.Canvas.GetPixel(0, 0) ' Recalculate the refresh rate theDisplayDevice.CalculateRefreshRate 1000 End If ' Validate that we have a valid refresh rate before proceeding If theDisplayDevice.CalculatedRefreshRate < 50 Then Rte.AbortExperiment -999, cUnableToRecalculateRefreshRate ' Attempt to detect Microsoft Basic Display Adapter which typically emulates display operations at 64hz If theDisplayDevice.CalculatedRefreshRate >= 63 And theDisplayDevice.CalculatedRefreshRate <= 65 Then Rte.AbortExperiment -999, cBasicDriverInUse ' Log the recalculated refresh rate and when so that data prior to the time can be thrown out c.SetAttrib theDisplayDevice.Name & cDotRefreshRate, Format(theDisplayDevice.CalculatedRefreshRate, cRefreshRateFormat) c.SetAttrib theDisplayDevice.Name & cDotRefreshRateValidTime, Clock.Read End If End If Next