Perform a Guided Cal with Sliding Load

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

      guidedCal.AcquireStep i


   If guidedCal.IterationCountForStep(i) <> minIterations Then

      MsgBox “Unexpected error!”, vbOKOnly, step

      guidedCal.ResetStep i

   End If


' Conclude the calibration


Last modified:


New topic