TDS5000B Series Service Manual
5-37
Sample Calibration Program
This section includes a listing of a sample calibration program. It is written in
Microsoft Visual Basic 6.
Tektronix provides this listing as is with no warranties of any kind, specifically
excluding warranties of merchantability and fitness for a particular purpose.
Tektronix, Inc. assumes no liability of any kind for your use of this software.
Overview
Find and initialize TDS5000B instrument
Find and initialize CALIBRATOR instrument
Wait required warmup time
Setup SRQ TDS5000B: OPC
Sent TDS5000B: CALibrate:FACtory:STARt
While ( CalibratorArgs = Query TDS5000B: :CALibrate:FACtory:STEPSTIMulus? .ne.
”0.0,0,0,0,END” )
Do
{
Program Calibrator(CAlibratorArgs)
Send TDS5000B: :CALibrate:FACtory Continue
Wait SRQ TDS5000B
if ( (No SRQ) .or. (Query TDS5000B: :CALibrate:FACtory:STEPSTAtus? .ne. PASS) )
{
Send TDS5000B: CALibrate:FACtory ABOrt
Abort Calibration Procedure
}
}
if (Query TDS5000B: :CALibrate:FACtory:STATus? .ne. PASS)
{
Notify operator of FAILURE
}
else
{
Notify operator of SUCCESS
}