Perform Unguided THRU Response Cal
This example program performs Thru Response cals in both the forward and reverse directions. It does this by selecting the appropriate measurement right before acquiring the standard. The cal infers the direction from the measurement.
This program also demonstrates the use of the SENSe:CORR:PREF:CSET:SAVE command. The details are in the comments.
The SCPI commands in this example are sent over a COM interface using the SCPIStringParser object. You do NOT need a GPIB connection to run this example.
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 Unguided.vbs. Learn how to setup and run the macro.
Dim App
Set App = CreateObject("AgilentPNA835x.Application")
Dim Parser
Set Parser = App.SCPIStringParser
'Preset and delete measurement
Parser.Parse "SYSTem:FPReset"
'The following commands determine how the cal set is saved.
'Pick one of the following preferences, comment the other
'Save cals to separate new USER CalSets
'Parser.Parse "SENS:CORR:PREF:CSET:SAVE USER"
'Save both cals to a single cal register
'Parser.Parse "SENS:CORR:PREF:CSET:SAVE CALR"
'Save both cals to a single currently selected CalSet or register
Parser.Parse "SENS:CORR:PREF:CSET:SAVE REUSE"
'
'Create a new S21 Measurement
Parser.Parse "CALCulate:PARameter:DEFine:EXT 'MyS21Meas',S21"
Parser.Parse "DISPlay:WINDow1 ON"
Parser.Parse "DISPlay:WINDow1:TRACe1:FEED 'MyS21Meas'"
'Create a new S12 Measurement
Parser.Parse "CALCulate:PARameter:DEFine:EXT 'MyS12Meas',S12"
Parser.Parse "DISPlay:WINDow1:TRACe2:FEED 'MyS12Meas'"
'Turn off continuous sweep
Parser.Parse "INITiate:CONTinuous OFF"
'Begin cals
'Select a cal kit
Parser.Parse "SENSe:CORRection:COLLect:CKIT:SELect 1"
'Perform a forward thru response cal
'Select the S21 Meas
Parser.Parse "CALCulate1:PARameter:SELect 'MyS21Meas'"
'Set the calibration method to Thru Response
Parser.Parse "SENSe1:CORRection:COLLect:METHod TRAN1"
MsgBox("Connect Thru between ports Then press OK")
Parser.Parse "SENSe1:CORRection:COLLect:ACQuire STAN4"
Parser.Parse "SENSe1:CORRection:COLLect:SAVE"
'Then perform a reverse thru response cal
'Change measurement to S12
Parser.Parse "CALCulate1:PARameter:SELect 'MyS12Meas'"
'Set the calibration method to Thru Response
Parser.Parse "SENSe1:CORRection:COLLect:METHod TRAN1"
'Ensure the thru connection is still in place
'Acquire Thru std in reverse direction
Parser.Parse "SENSe1:CORRection:COLLect:ACQuire STAN4"
'All standards have been measured.
Parser.Parse "SENSe1:CORRection:COLLect:SAVE"
'Turn ON continuous sweep
Parser.Parse "INITiate:CONTinuous ON"
MsgBox("The calibration has been completed")