Rohde & Schwarz R&S FSP Series, Operating Manual

Page: 744 / 796

R&S FSP Remote Control – Programming Examples
More Complex Programming Examples
7.10 Operating Manual 1164.4556.12 - 06
The following example is based on two adjacent signals with a level of –30 dBm at
100 MHz and 110 MHz. The intermodulation products lie at 90 MHz and 120 MHz
according to the above formula. The frequency is set so that the examined mixture
products are displayed in the diagram. Otherwise, the default setting of the
R&S FSP is used for measurements (SetupInstrument).
REM ************************************************************************
Public Sub TOI()
result$ = Space$(100)
'--------- R&S FSP default setting --------------------------
CALL SetupStatusReg
'Set status registers
status = viWrite(analyzer, "*RST", 4, retCnt)
'Reset instrument
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
'Single sweep
status = viWrite(analyzer, "SYST:DISP:UPD ON", 16, retCnt)
'ON: display on
'OFF: off
'--------- Set frequency ------------------------------------
status = viWrite(analyzer, "FREQ:STARt 85MHz;STOP 125 MHz", 29, retCnt)
'Span
'--------- Set level ----------------------------------------
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV -20dBm", 28, retCnt)
'Reference level
status = viWrite(analyzer, "INIT;*WAI", 4, retCnt)
'Perform sweep with sync
'--------- TOI measurement ----------------------------------
status = viWrite(analyzer, "CALC:MARK:PEXC 6DB", 18, retCnt)
'Peak excursion
status = viWrite(analyzer, "CALC:MARK:FUNC:TOI ON", 21, retCnt)
'Switch on TOI measurement
status = viWrite(analyzer, "CALC:MARK:FUNC:TOI:RES?", 23, retCnt)
'and read out results
status = viRead(analyzer, result$, 100, retCnt)
'--------- Read out result ---------------------------------
Print "TOI [dBm]: "; result$
END SUB
REM ************************************************************************