Setup PNOP and PSAT Marker Search

This example program does the following:

See PNOP and PSAT SCPI commands.

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 SearchMkr.vbs.  Learn how to setup and run the macro.

See Other SCPI Example Programs

Dim app

Set app = CreateObject("AgilentPNA835X.Application")

Dim scpi

set scpi = app.ScpiStringParser

scpi.Execute ("SYST:FPReset")

' View Power Out vs Power In

' Create and turn on window/channel 1

scpi.Execute ("DISPlay:WINDow1:STATE ON")

'Define a measurement name, parameter

scpi.Execute ("CALCulate1:PARameter:DEFine:EXT 'MyMeas',B")

'Associate ("FEED") the measurement name ('MyMeas') to WINDow (1)

scpi.Execute ("DISPlay:WINDow1:TRACe1:FEED 'MyMeas'")

scpi.Execute ("CALCulate1:PARameter:SELect 'MyMeas'")

'perform power sweep

scpi.Execute ("SENSe1:SWEep:TYPE POWer")

scpi.Execute ("SOURce1:POWer:STARt -5")

scpi.Execute ("SOURce1:POWer:STOP 0")

'--------------------

'Choose marker search

resp=Msgbox ("PNOP (yes) or PSAT (no)" , 4, "PNA Marker Search Demo")

if resp=6 then

  PNOP1()

Else

  PSAT1()

End If

'--------------------

'PSAT marker search

Sub PSAT1()

scpi.Execute ("CALCulate1:MARKer:PSATuration:BACKoff 2")

'Read PSAT Parameter

dim answer

answer=scpi.Execute ("CALCulate1:MARKer:PSATuration:GAIN?")

wscript.echo("Gain Sat: "& answer)

End Sub

'--------------------

'PNOP marker search

Sub PNOP1()

scpi.Execute ("CALCulate1:MARKer:PNOP:BACKoff 2")

scpi.Execute ("CALCulate1:MARKer:PNOP:POFFset 1")

'Read PNOP Parameter

dim answer

answer=scpi.Execute ("CALCulate1:MARKer:PNOP:GAIN?")

wscript.echo("PNOP Gain: "& answer)

End Sub