This example sets a the sliding load behavior, then performs a Guided Cal using a sliding load.
This VBScript (*.vbs) program can be run as a macro in the PNA. To do this, copy the following code into a text editor file such as Notepad and save on the PNA hard drive as Calibrate.vbs. Learn how to setup and run the macro.
See the GuidedCalibration Object
See Other COM Example Programs
Set app = CreateObject("AgilentPNA835x.Application")
Set calMgr = app.GetCalManager
Set guidedCal = calMgr.GuidedCalibration
Set chan = app.ActiveChannel
chanNum = chan.ChannelNumber
guidedCal.Initialize chanNum, True
' Specify that any sliding loads should be measured using the
' remote iterative method rather than launching sliding load dialog.
' 0 = naShowDialog, 1 = naMeasureSlidePosition
guidedCal.SlidingLoadAcquisitionBehavior = 1
guidedCal.ConnectorType(1) = "APC 3.5 female"
guidedCal.ConnectorType(2) = "APC 3.5 male"
‘ 85052B cal kit uses sliding loads
guidedCal.CalKitType(1) = "85052B"
guidedCal.CalKitType(2) = "85052B"
numSteps = guidedCal.GenerateSteps
' Measure the standards
For i = 1 To numSteps
step = "Step " + CStr(i) + " of " + CStr(numSteps)
strPrompt = guidedCal.GetStepDescription(i)
MsgBox strPrompt, vbOKOnly, step
minIterations = guidedCal.MinimumIterationsForStep(i)
For j = 1 To minIterations
If minIterations > 1 Then MsgBox “Adjust/position the standard for measurement “ + CStr(j) + “ of “ + CStr(minIterations), vbOKOnly
If guidedCal.IterationCountForStep(i) <> minIterations Then
MsgBox “Unexpected error!”, vbOKOnly, step
' Conclude the calibration