This example sets Phase Reference Cal properties, then performs a Phase Reference calibration.
It is NOT necessary to create an SMC measurement before performing a remote Phase Reference Cal. It is necessary when performed from the user interface.
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 it on the PNA hard drive as PMAR.vbs. Learn how to setup and run the macro.
Learn about SMC+ Phase
See other COM Example Programs
Example Program: performs a phase reference calibration between 1Ghz to 10Ghz on Ports 1, 2, and 4.
Set app = CreateObject("agilentpna835x.application")
Set PhaseReferenceCal = app.GetCalManager().PhaseReferenceCalibration
' always call reset at the beginning of your cal
PhaseReferenceCal.StartFrequency = 1e9
PhaseReferenceCal.StopFrequency = 10e9
' Read serial numbers of connected phase references
' Into variant array
refs = PhaseReferenceCal.GetConnectedPhaseReferences
'Change the following to your own phase reference name
PhaseReferenceCal.PhaseReference = "MYPILOT44"
PhaseReferenceCal.SourceAttenuator = 10
PhaseReferenceCal.Calset = "Remote Phase Reference"
PhaseReferenceCal.ConnectorType = "APC 3.5 female"
PhaseReferenceCal.CalKitType = "85052D"
' Perform the calibration on Port 4 (Port 1 and Port 2 are always included)
PhaseReferenceCal.IncludePort(4) = true
' Uncomment the following line to use an unknown mixer
' to extend the phase reference cal down to 10 Mhz
' If an unknown mixer is used, then the start frequency is always 10 Mhz
' PhaseReferenceCal.IncludeUnknownMixer = true
Set guidedCal = PhaseReferenceCal.GuidedCalibration
Steps = guidedCal.GenerateSteps
for i = 1 to steps
Updated for A.09.90
MX New topic