2010252<_VersionPersist dt:dt="int">200{A6566EF4-1489-46D0-B2F1-30CD5DBFB3C8}SessionProcClockBinTestStandardEP2Psychology Software Tools (PST){10343DBD-55BE-45C7-AA62-A5239F6918AB}01508202002018-02-27T20:40:30.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-10102476832white1039201NoYes125%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:0001032767DurationMinutesDuration in minutes0-1-1601600SessionProcProcedure{4702705B-31F1-4DAD-B15F-1D0E855BC87C}2010254<_VersionPersist dt:dt="int">201InitWelcomeWait1000BlockListCheckResultsSessionEndFinishAndJumpClockTroubleshoot101022InitInLineWelcomeTextDisplayWait1000WaitBlockListListCheckResultsInLineSessionEndTextDisplayFinishAndJumpInLineClockTroubleshootTextDisplayWelcomeTextDisplay{0AEB1910-AC32-45C7-BA13-1A568019983E}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardMouseKeyboardKeyboard{ANY}1111YesAllYesMouseMouse{ANY}1111Yes-10-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThis test willl run for [DurationMinutes] minute(s). The screen will not be updated until each trial completes. If the screen does not update within 5 minutes, terminate the test and try running again. No device input is necessary unless instructed. Press any key to begin the test.-1001Wait1000Wait{F6D89753-5D2F-4238-8A4E-0CA6B2829367}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag010000-100001BlockListList{7095E2F5-77E2-4510-9EC6-7F7B8A7A0FCB}2010258<_VersionPersist dt:dt="int">5BlockProc000000001100Weight117510Nested17511Procedure1BlockProc75121 BlockProcBlockProcProcedure{29FF3201-8F79-4737-B874-E16268EEE7AE}2010254<_VersionPersist dt:dt="int">201TrialBeginTrialList101012TrialBeginTextDisplayTrialListListTrialBeginTextDisplay{89B13443-487C-4480-BE03-23133F0391E1}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime1100000-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThe test will begin shortly.-1001TrialListList{58CF9F4C-CA34-4179-B194-0F3328E596D9}2010258<_VersionPersist dt:dt="int">5TrialProc0000000211327670Weight117510Nested17511Procedure1TrialProc100121 TrialProcTrialProcProcedure{3000730A-702B-460B-9D6A-2A0BC8054528}2010254<_VersionPersist dt:dt="int">201WaitBeginBinTestStatusReportCheckForExit101012WaitBeginWaitBinTestInLineStatusReportSlideCheckForExitInLineWaitBeginWait{4B5B0568-95C2-431A-9A45-EEC15E7D558D}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0100000-100001BinTestInLine{092A289D-3304-43A9-BFD5-C4AE41265354}2010262<_VersionPersist dt:dt="int">1

'log first WaitBegin.OnsetTime to track trial times
If c.GetAttrib(c.GetAttrib("Running") & ".Sample") = 1 Then
	StartTime = WaitBegin.OnsetTime
End If

Dim ST As SlideText
Set ST = CSlideText(StatusReport.ActiveObjects("Results"))
Dim GT As SlideText
Set GT = CSlideText(StatusReport.ActiveObjects("GoodTrials"))
Dim RT As SlideText
Set RT = CSlideText(StatusReport.ActiveObjects("ReviewTrials"))

' Run the clock tests

' Declare and initialize counter array
Dim i As Long 
Dim nBinCnt(cMAXBINS) As Long 
For i = 0 To cMAXBINS 
	nBinCnt(i) = 0 
Next i 

Dim nThisTime As Long 
Dim nLastTime As Long 
Dim nEndTime As Long 
Dim nDiff As Long 
Dim nStartMicro As Long
Dim nStopMicro As Long

Dim nAnalysisStartTime As Long
Dim nAnalysisStopTime As Long

Dim nTotalSamples As Long
Dim nBinSumError As Long
Dim nBinSumErrorLarge As Long
Dim nMaxBin As Long
Dim nErrorSamples As Long

' Error Handler
On Error GoTo BinError

' Loop until we get a transition
'  to allow us to start the test
'  as close to transition as possible
nThisTime = Clock.Read
Do While nThisTime = Clock.Read
	' DO NOTHING
Loop
nLastTime = nThisTime + 1
nEndTime  = nLastTime + nTestDuration 

nStartMicro = Clock.ReadMicrosec
Do 
	' Read the clock 
    nThisTime = Clock.Read  

    ' Determine the timing error on this read (if any).
	nDiff = nThisTime - nLastTime 
	
	' Update the count for this bin
	' NOTE: If the diff is < 0 or > cMAXBINS then
	' a runtime error will occur and will be trapped below
	nBinCnt(nDiff) = nBinCnt(nDiff) + 1
                    
	' Updat for next iteration
	nLastTime = nThisTime

Loop While nThisTime < nEndTime 
nStopMicro = Clock.ReadMicrosec

nAnalysisStartTime = Clock.Read

' Log results
For i = 0 To cMAXBINS 
	c.PushNewFrame
	c.SetAttrib "Bin", i
    c.SetAttrib "BinCount", nBinCnt(i)
	c.SetAttrib "BinSumError", IIf(i > 1, nBinCnt(i) * (i - 1), 0)
    c.Log
    c.PopFrame
	
	nTotalSamples = nTotalSamples + nBinCnt(i)
	If i > 1 Then  
		nErrorSamples = nErrorSamples + nBinCnt(i)
		nBinSumError = nBinSumError + (nBinCnt(i) * (i - 1))
		If nBinCnt(i) > 0 Then nMaxBin = i
		If i > 11 Then nBinSumErrorLarge = nBinSumErrorLarge + (nBinCnt(i) * (i - 1))
	End If
	
	
Next i 

c.SetAttrib "StartMicro", nStartMicro
c.SetAttrib "StopMicro", nStopMicro
c.SetAttrib "TotalSamples", nTotalSamples
c.SetAttrib "ValidClock", nBinCnt(1)
c.SetAttrib "ValidClockPercent", Format(CDbl(nBinCnt(1)) / CDbl(nTestDuration), "0.0000%")
c.SetAttrib "ValidSamples", nBinCnt(0) + nBinCnt(1)
c.SetAttrib "ValidSamplesPercent", Format(CDbl(nBinCnt(0) + nBinCnt(1)) / CDbl(nTotalSamples), "0.0000%")
c.SetAttrib "ErrorSamples", nErrorSamples
c.SetAttrib "ErrorSamplesPercent", Format(CDbl(nErrorSamples) / CDbl(nTotalSamples), "0.0000%")
c.SetAttrib "SampleRate", Format(CDbl(nTotalSamples) / CDbl(nTestDuration), "0.0000")
c.SetAttrib "SampleRateVerbose", Format(CDbl(nTotalSamples) / CDbl(nTestDuration), "0.0000")
c.SetAttrib "BinNSumError", nBinSumError
c.SetAttrib "BinNSumErrorPercent", Format(CDbl(nBinSumError) / CDbl(nTestDuration), "0.0000%")
c.SetAttrib "BinNSumErrorLarge", nBinSumErrorLarge
c.SetAttrib "BinNSumErrorLargePercent", Format(CDbl(nBinSumErrorLarge) / CDbl(nTestDuration), "0.0000%")
c.SetAttrib "MaxBin", nMaxBin

'Track BinNSumErrorLarge
BinNSumErrorLargeValue.AddObservation nBinSumErrorLarge


Dim summary As String

summary = "Time Remaining: " & (CLng(c.GetAttrib("DurationMinutes") * 60000) - (Clock.Read - StartTime))/1000 & " seconds\n\n" 'Welcome.RTTime

summary = summary & DelimitText("\n", _
			"StartMicro:" & c.GetAttrib("StartMicro"), _
			"StopMicro:" & c.GetAttrib("StopMicro"), _
			"TotalSamples:" & c.GetAttrib("TotalSamples"), _
			"ValidClock:" & c.GetAttrib("ValidClock"), _
			"ValidClockPercent:" & c.GetAttrib("ValidClockPercent"), _
			"ValidSamples:" & c.GetAttrib("ValidSamples"), _
			"ValidSamplesPercent:" & c.GetAttrib("ValidSamplesPercent"))
			
summary = summary & "\n" & DelimitText("\n", _
			"ErrorSamples:" & c.GetAttrib("ErrorSamples"), _
			"ErrorSamplesPercent:" & c.GetAttrib("ErrorSamplesPercent"), _
			"SampleRate:" & c.GetAttrib("SampleRate"), _
			"BinSumError:" & c.GetAttrib("BinNSumError"), _
			"BinSumErrorPercent:" & c.GetAttrib("BinNSumErrorPercent"), _
			"BinSumErrorLarge:" & c.GetAttrib("BinNSumErrorLarge"), _
			"BinSumErrorLargePercent:" & c.GetAttrib("BinNSumErrorLargePercent"), _
			"MaxBin:" & c.GetAttrib("MaxBin"))
			
nAnalysisStopTime = Clock.Read

Dim bNeedReview As Boolean
bNeedReview = False
If nMaxBin > 10 Then bNeedReview = True
If (CDbl(nBinCnt(1)) / CDbl(nTestDuration)) < 0.99 Then 
	bNeedReview = True
End If
'Log ValidClockPercentage
ValidClockPercentageCheck.AddObservation CDbl(nBinCnt(1)) / CDbl(nTestDuration)

If (CDbl(nBinSumErrorLarge) / CDbl(nTestDuration)) > 0.01 Then 
	bNeedReview = True
	BinNSumErrorLargePercentCheck.AddObservation CDbl(nBinSumErrorLarge) / CDbl(nTestDuration)
End If
If (CDbl(nBinSumError) / CDbl(nTestDuration)) > 0.01 Then 
	bNeedReview = True
	BinNSumErrorPercentCheck.AddObservation CDbl(nBinSumError) / CDbl(nTestDuration)
End If
If (CDbl(nTotalSamples) / CDbl(nTestDuration)) < 4 Then 
	bNeedReview = True
	SamplesCheck.AddObservation CDbl(nTotalSamples) / CDbl(nTestDuration)
End If
c.SetAttrib "ReviewStatus", IIf(bNeedReview, "Needs Review", "OK")

g_nNumTrials = g_nNumTrials + 1
If Not bNeedReview Then 
	g_nNumTrialsOK = g_nNumTrialsOK + 1
	If GTComma = False Then
		GT.Text = GT.Text & c.GetAttrib(c.GetAttrib("Running") & ".Sample")
		GTComma = True
	Else
		GT.Text = GT.Text & ", " & c.GetAttrib(c.GetAttrib("Running") & ".Sample")
	End If
End If
If bNeedReview Then 
	g_nNumTrialsNeedReview = g_nNumTrialsNeedReview + 1
	If RTComma = False Then
		RT.Text = RT.Text & c.GetAttrib(c.GetAttrib("Running") & ".Sample")
		RTComma = True
	Else
		RT.Text = RT.Text & ", " & c.GetAttrib(c.GetAttrib("Running") & ".Sample")
	End If
End If
c.SetAttrib "NumTrials", g_nNumTrials
c.SetAttrib "NumTrialsOK", g_nNumTrialsOK
c.SetAttrib "NumTrialsNeedReview", g_nNumTrialsNeedReview
ST.Text = summary & "\n" & "ReviewStatus: " & c.GetAttrib("ReviewStatus") & "\n" & "NumTrials:" & g_nNumTrials & "\n" & "TrialsOK:" & g_nNumTrials & "\n" & "TrialsNeedReview:" & g_nNumTrialsNeedReview


GoTo BinTestComplete

BinError:

c.SetAttrib "ERROR", "Error happened in bin test and the diff was " & nDiff
ST.Text = c.GetAttrib("ERROR") & "\n" & Err.Description

Resume BinTestComplete


BinTestComplete:

Set ST = Nothing
Set GT = Nothing
Set RT = Nothing

TrialEndTextDisplay{DE428524-7833-4763-A32C-3AFD9F348E2B}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime010000-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New10YesNoNoNo-1001CheckForExitInLine{A7A1615E-B275-4A81-A01D-6CEF01FE2E4C}2010262<_VersionPersist dt:dt="int">1

c.SetAttrib "TrialSeconds", (Clock.Read - WaitBegin.OnsetTime)/1000


If Clock.Read - StartTime > (c.GetAttrib("DurationMinutes") * 60000) Then 
	TrialList.Terminate
	Dim TotalDur As Long
	TotalDur = (Clock.Read - StartTime) / 60000
	c.SetAttrib "ExpDurMinutes", TotalDur
End If

If GetUserBreakState() <> 0 Then TrialList.Terminate

SessionEndTextDisplay{40C6243A-1EF8-4695-9137-3CA0D09E2223}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardMouseKeyboardKeyboard{ANY}1111YesAllYesMouseMouse{ANY}1111Yes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoTest is complete. The machine has [MachinePassFail] this test. SamplesCheck: [SamplesCheck] ValidClockPercentageCheck: [ValidClockPercentageCheck] BinNSumErrorLargePercentCheck: [BinNSumErrorLargePercentCheck] BinNSumErrorPercentCheck: [BinNSumErrorPercentCheck] Press any key to exit.-1001InitInLine{54D9D5A7-6888-4709-87A3-DD1339D59388}2010262<_VersionPersist dt:dt="int">1

'Give some time
Sleep 100

'Set Summation Objects
Set SamplesCheck = New Summation
Set ValidClockPercentageCheck = New Summation
Set BinNSumErrorLargePercentCheck = New Summation
Set BinNSumErrorPercentCheck = New Summation
Set BinNSumErrorLargeValue = New Summation

' This test should be ran normally and NOT in Test Mode
Debug.Assert CLogical("False" = CLogical(c.AttribExists("TestMode")))

'Log Clock Type used to easily see in Data File (as opposed to expanding Clock.Information)
c.SetAttrib "Clock.Description", Clock.Description

StatusReportSlide{685D72E4-42D1-457F-AF7C-8FAF6F365C87}2010273<_VersionPersist dt:dt="int">110OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime1Defaultwhiteopaqueblack0centercenter100%100%centercenterNoYesSlideTextResultsblackwhiteopaque0blackcenter67%100%66%centercentercentercenterCourier New12YesNoNoNo-1SlideTextReviewTrialsblackwhiteopaque0blackcenter26%100%17%centercenterlefttopCourier New12YesNoNoNoReview Trials:-1SlideTextGoodTrialsblackwhiteopaque0blackcenter9%100%17%centercenterlefttopCourier New12YesNoNoNoGood Trials:-110000Default010001DisplayDeviceCheckResultsInLine{48B1CAB6-3069-4673-9EE4-F332660EA7FC}2010262<_VersionPersist dt:dt="int">1

Debug.Print "Clock used was " & Clock.Description

'Check if samples are greater than 4
Debug.Print "Number of poor samples is " & SamplesCheck.N
If SamplesCheck.N > 0 And SamplesCheck.Min < 4 Then
	c.SetAttrib "SamplesCheck", "FAIL: Samples were below 4."
Else
	c.SetAttrib "SamplesCheck", "Pass"
End If

'Check if BinNSumErrorLargePercentCheck > 0
Debug.Print "Number of BinNSumErrorLargePercent is " & BinNSumErrorLargePercentCheck.N
If BinNSumErrorLargePercentCheck.N > 0 And BinNSumErrorLargePercentCheck.Mean > 0 Then
	c.SetAttrib "BinNSumErrorLargePercentCheck", "FAIL: BinNSumErrorLargePercentCheck is greater than 0."
Else
	c.SetAttrib "BinNSumErrorLargePercentCheck", "Pass"
End If

'Check if BinNSumErrorPercentCheck <> 0 occured more than twice
Debug.Print "Number of BinNSumErrorPercentCheck is " & BinNSumErrorPercentCheck.N
If BinNSumErrorPercentCheck.N > 2 Then
	c.SetAttrib "BinNSumErrorPercentCheck", "FAIL: BinNSumErrorPercentCheck occured more than twice."
Else
	c.SetAttrib "BinNSumErrorPercentCheck", "Pass"
End If

'Check if ValidClockPercentage >= 99
'This can pass if lower than 99 if the above two Pass
Debug.Print "ValidClockPercentageCheck.Mean is " & ValidClockPercentageCheck.Mean
If ValidClockPercentageCheck.N > 0 And ValidClockPercentageCheck.Mean < 0.9900 Then
	If c.GetAttrib("BinNSumErrorLargePercentCheck") = "Pass" And c.GetAttrib("BinNSumErrorPercentCheck") = "Pass" Then
		c.SetAttrib "ValidClockPercentageCheck", "Pass"
	Else
		c.SetAttrib "ValidClockPercentageCheck", "FAIL: Clock is less than 99%."
	End If
Else
	c.SetAttrib "ValidClockPercentageCheck", "Pass"
End If

'Create Pass or Fail Attribute
If c.GetAttrib("SamplesCheck") = "Pass" And c.GetAttrib("ValidClockPercentageCheck") = "Pass" And c.GetAttrib("BinNSumErrorLargePercentCheck") = "Pass" And c.GetAttrib("BinNSumErrorPercentCheck") = "Pass" Then
	c.SetAttrib "MachinePassFail", "Passed"
Else
	c.SetAttrib "MachinePassFail", "Failed"
End If

Debug.Print "Machine " & c.GetAttrib("MachinePassFail")

c.SetAttrib "BinNSumErrorLargePercentFinal", Format(BinNSumErrorLargeValue.Mean/100, "##0.######")

FinishAndJumpInLine{98A19390-6B3D-4ACC-91D7-C2F988DF47AD}2010262<_VersionPersist dt:dt="int">1

Set SamplesCheck = Nothing
Set ValidClockPercentageCheck = Nothing
Set BinNSumErrorLargePercentCheck = Nothing
Set BinNSumErrorPercentCheck = Nothing

'Jump over troubleshooting
If c.GetAttrib("MachinePassFail") = "Passed" Then GoTo Procedure_Timeline_Finish

ClockTroubleshootTextDisplay{C14ED942-EB1C-4ED8-8070-DA21D881C517}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{ANY}1111YesAllYes-10-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoClockBinTest Troubleshooting: 1. Does the machine meet the E-Prime 2.0 Requirements? 2. Make sure all other applications are closed. Ideally, use MSCONFIG to disable all unneccessary services (see support KB 17932). 3. A machine faulure does not mean the machine is bad. Windows is not a Real Time Operating System so missed ticks are possible. A missed tick occurs when E-Prime cannot detect a millisecond tick. This does not mean E-Prime will log the clock inaccurately. If you happen to ask for the exact time when the missed tick would occur by chance, the system would be delayed. To compensate for this error, you may run [BinNSumErrorLargePercentFinal]% additional trials over the duration of [DurationMinutes] minutes. 4. You may use the resulting data (.edat2) file for analysis in Excel with the Bin Analysis spreadsheet if you would like to see additional data. 5. For more information, contact PST technical support. Press any key to continue. -1001Const nTestDuration As Long = 10000 Const cMAXBINS As Long = 100 Dim g_nNumTrials As Long Dim g_nNumTrialsOK As Long Dim g_nNumTrialsNeedReview As Long Dim StartTime As Long 'Summation Objects to track stats to display to user Dim SamplesCheck As Summation Dim ValidClockPercentageCheck As Summation Dim BinNSumErrorLargePercentCheck As Summation Dim BinNSumErrorPercentCheck As Summation Dim BinNSumErrorLargeValue As Summation Dim GTComma As Boolean Dim RTComma As Boolean