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 Next If guidedCal.IterationCountForStep(i) <> minIterations Then MsgBox “Unexpected error!”, vbOKOnly, step guidedCal.ResetStep i End If Next ' Conclude the calibration guidedCal.GenerateErrorTerms |
Last modified:
|
4-Dec-2012 |
New topic |