This program demonstrates how to change source and receive ports when measuring noise figure. It assumes that option 029 ("Fully Corrected Noise Figure") is installed.
If only option 028 ("Noise figure measurements using standard receivers") is installed, switching ports is simpler, since only one noise receiver selection is available.
This program can be run as a macro in the PNA. To do this, copy the code into a text editor file such as Notepad and save on the PNA hard drive as NF.vbs. Learn how to setup and run the macro.
Noise Figure Object
Create and Cal a NoiseFigure Measurement
See Other COM Example Programs
' Noise receiver enumerations
dim naStandardReceiver, naNoiseReceiver
' standard PNA receiver
naStandardReceiver = 0
' dedicated noise receiver (option 029 only)
naNoiseReceiver = 1
dim pna, windowNum, channelNum
set pna = CreateObject("Agilentpna835x.application")
windowNum = 1
channelNum = 1
' Create Noise Figure measurement
set noise = pna.CreateCustomMeasurementEx(channelNum, "Noise Figure Cold Source", "NF", windowNum)
set noiseChan = pna.ActiveChannel
' provides access to noise-specific channel properties
set noiseConfig = noiseChan.CustomChannelConfiguration
'To change from the default input/output port settings of
' source port = PNA1, receive port = PNA2,
' you must first change the noise receiver,
' then select the desired ports.
dim srcPort, rcvPort
' set port mapping to source port = PNA3, receive port = PNA4
srcPort = 3
rcvPort = 4
' use PNA receiver for noise measurements
noiseConfig.NoiseReceiver = naStandardReceiver
noiseConfig.SetPortMap srcPort, rcvPort
' To revert back to using the noise receiver, the source
' and receive ports must be set to their default values
' BEFORE switching to the noise receiver.
' Otherwise, a COM exception will be thrown.
' restore defaults: source=PNA1, receiver=PNA2
' use dedicated noise receiver for noise measurements
noiseConfig.NoiseReceiver = naNoiseReceiver