2010252<_VersionPersist dt:dt="int">200{A570FCFE-A711-405A-9A67-0E7005D5536F}SessionProcChronosSliderEP2Andrew Sobotka (PST){10343DBD-55BE-45C7-AA62-A5239F6918AB}011001512017-08-29T12:41:51.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-101680105032white1039201YesYes125%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11001MouseMouse<_VersionPersist dt:dt="int">1-11000SoundSound<_VersionPersist dt:dt="int">1-10DirectSoundChronosChronos<_VersionPersist dt:dt="int">101-11000[DataFile.BaseName]-@Device-@LogLevel-@Increment.wav-1@Auto@Device.Filename10%10%500auto0250immediatenormal1161120-200%0%0%0%33100white0white0white0white0white010.951100002012012012012010101010101010100002012011800110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename00110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename00110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename40000110000010.80.4@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename000100000000@Auto[DataFile.BaseName]-@Device-Aggregate-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename1000000.50.5-111000000.50.5-111000000.50.5-111000000.50.5-11-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{5E491511-898E-4A85-AACD-6F2E402EBB83}2010254<_VersionPersist dt:dt="int">201ValueDisplayStartLoop101022ValueDisplayTextDisplayStartLoopInLineValueDisplayTextDisplay{563F25BC-F1A3-4FE5-9ED1-AF75EE78E9FE}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{ANY}-11101YesAllYes00-110blackwhiteopaqueblack0centercenter100%75%centercenterlefttopNoCourier New18YesNoNoNoThis text will change based off the StartLoop script.-1001StartLoopInLine{F707F2F0-D287-47F4-A3F6-3A6DA61166CB}2010262<_VersionPersist dt:dt="int">1'This experiment uses the Chronos Slider found here: http://www.psychology-software-tools.mybigcommerce.com/chronos-slide-potentiometer-slider/ ' Which channel are we sampling? Const ADChan As Long = 1 ' Because AD1 is accessible via Auxiliary IO, and Aux only provides a 5V source, ' there is a diode which protects the hardware in the event of an accidental connection to 5V ' The protection diode does have two side effects ' The most significant is that, in order to provide full protection to 3.3V, ' it will begin conducting around 3V; values under 3V are unaffected ' The second effect is a marginal increase in noise, but the value is always within 0.5% ' If noise or values above 3V are a concern, use AD2 or AD3 ' The ScaledMax can be set to 1.1 so that 3V will map to 1.0 ' The Filter property of a ChronosAnalogInChannel (e.g. Chronos.AnalogIn(1)) is a Double ' Filter is implemented in hardware as a weighted moving average filter where the Double describes the alpha/weight ' This filter will smooth out noise, at the expense of reacting more slowly to a step change in the input ' Higher values of alpha are smoother/slower ' Lower values of alpha are sharper/faster ' 0.7 is a good "fast" value, 0.9 is a good medium value, 0.98 is a good "slow" value, a practical limit is 0.999 ' For "speed" consider a rule of thumb where it takes 1/(1-a) samples for a step change to take full effect ' So 0.9 would be 1/(1-0.9)=10 samples, 0.98 would take 50 samples, etc ' This can be compensated for by increasing the sampling rate of the channel ' So if the SampleRate was 1000, and you set Filter to 0.9, you can increase SampleRate to 10000 to limit the impact of the filter ' Very large steps can take longer to settle, up to 3x longer than this rule of thumb ' For "smooth" consider a rule of thumb where noise is reduced by a factor of (1-a) ' So if the there is peak-to-peak noise of 20 in the ValueInteger and alpha is 0.9, the noise will be reduced to about 2 ' Most noise will be reduced by more than this ' These rules of thumb are meant to be guidelines ' A full explanation of the transfer function for this filter is beyond the scope of this document ' The general formula for the filter is ' y(n) = a*x(n-1) + (1-a)*x(n) ' where ' y(n) is the filtered value ' x(n) is the current sample ' x(n-1) is the previous sample ' a is the alpha/weight of the filter ' Even if using GetCurrentSampleValue, as below, the Analog Input should still be sampling in the background ' If not Recording, this background sampling remains constrained to the hardware, having no impact on software performance Chronos.AnalogIn(ADChan).SampleRate = 50000 Chronos.AnalogIn(ADChan).Filter = 0.98 ' If calling Record after increasing the sampling rate in this manner, ' the extra samples from the higher sampling rate can be discarded by using the SubSamplingRate property ' Only 1 of every SubSamplingRate samples will be streamed to the Recording ' So if SampleRate was 1000 the Recording would have one sample every millisecond ' If SampleRate was increased to 10000 after setting Filter to 0.9, SubSamplingRate 10 will again provide one sample every millisecond ' If using GetCurrentSample as below, there is no need for SubSamplingRate ' Chronos.AnalogIn(ADChan).SubSamplingRate = 50 ' Chronos.AnalogIn(ADChan).Record ' =============================================================== ' Set a min and max scale for the input Chronos.AnalogIn(ADChan).ScaledMin = 1 Chronos.AnalogIn(ADChan).ScaledMax = 10 ' Set output voltage to max 3.3V Chronos.AnalogOut(1).WriteValue 1.0 Do ' Show current slider value in scaled form (default) and raw form (2) ValueDisplay.Text = "Scaled: " & Chronos.AnalogIn(ADChan).GetCurrentSampleValue() & ebTab & "(Raw: " & Chronos.AnalogIn(ADChan).GetCurrentSampleValue(2) & ")" ValueDisplay.Draw ' If conditional exit or the Input Mask has terminated, exit ' NOTE: Input Mask has infinite time limit so that it lives beyond the lifetime of ValueDisplay If GetConditionalExitState() <> 0 Or Not ValueDisplay.InputMasks(1).IsPending() Then Exit Do End If Loop