Tektronix TDS5000B Series

Sample Calibration Program
TDS5000B Series Service Manual
5-47
Private Sub cmdPlay_Click()
Dim strResult As String
Dim str20Blanks
turnOffButtons
findDevices
calPassedLastStep = True
calFailed = False
stepNumber = 0
txtSignal.Text = ”Starting Calibration”
txtSignal.Refresh
resetWaveTek
TvcScope.WriteString ”:CALIBRATE:FACTORY ABORT”
If tekScopeOPC = False Then
Debug.Print ”factory calibration abort command did not complete”
turnOnButtons
Exit Sub
End If
strEndOfCal = TvcScope.Query(”CALIBRATE:FACTORY:STEPSTIMULUS?”)
txtSignal.Text = strEndOfCal
lstOutput.AddItem ”Ending string will be ” & strEndOfCal
Debug.Print strEndOfCal
TvcScope.WriteString ”CALIBRATE:FACTORY START”
txtSignal.Text = ”TekScope Reset”
If tekScopeOPC = False Then
Debug.Print ”factory calibration start did not complete”
Exit Sub
End If
Sleep 1000
strResult = TvcScope.Query(”CALIBRATE:FACTORY:STEPSTIMULUS?”)
txtSignal.FontSize = 5
updateSignal (strResult)
Debug.Print strResult
calInitDone = True
While calInitDone = True
cmdNextStep
Wend
txtSignal.FontSize = 8
strResult = TvcScope.Query(”:CALIBRATE:FACTORY:STATUS?”)
’ If strResult = ”PASS” Then
If calFailed = False Then
lstOutput.AddItem ”Calibration of TDS5000B succeeded”
txtSignal.Text = ”Calibration of TDS5000B succeeded”
Else
lstOutput.AddItem ”Calibration of TDS5000B failed”
txtSignal.Text = ”Calibration of TDS5000B failed”
End If