Rohde & Schwarz R&S FSP Series, Operating Manual

Page: 750 / 796

R&S FSP Remote Control – Programming Examples
More Complex Programming Examples
7.16 Operating Manual 1164.4556.12 - 06
'Query result of
status = viRead(analyzer, result$, 100, retCnt)
'limit check
'--------- Read out result ---------------------------------
Print "Result Limit Check: "; result$
END SUB
REM ************************************************************************
7.3.4 Occupied Bandwidth Measurement
In the following example, the bandwidth is to be found in which 95% of the power of
a GSM signal is contained. Signal frequency is 935,2 MHz; channel bandwidth is
200 kHz.
REM ************************************************************************
Public Sub OBW()
result$ = Space$(100)
'--------- R&S FSP default setting --------------------------
CALL SetupStatusReg
'Set status register
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
'--------- Configure R&S FSP for OBW for GSM ---------------
status = viWrite(analyzer, "FREQ:CENT 935.2MHz", 18, retCnt)
'Set frequency
status = viWrite(analyzer, "CALC:MARK:FUNC:POW:SEL OBW", 26, retCnt)
'OBW measurement on
status = viWrite(analyzer, "SENS:POW:ACH:BAND 200KHZ", 24, retCnt)
'Channel bandwidth 200 kHz
status = viWrite(analyzer, "SENS:POW:BWID 95PCT", 19, retCnt)
'Percentage of power
status = viWrite(analyzer, "SENS:POW:ACH:PRES OBW", 21, retCnt)
'Set frequency and
status = viWrite(analyzer, "SENS:POW:ACH:PRES:RLEV;*WAI", 27, retCnt)
'Optimize reference level
status = viWrite(analyzer, "SENS:POW:NCOR OFF", 17, retCnt)
'Noise correction
'OFF: switch off
'ON: switch on
'--------- Perform measurement and query results ------------
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
status = viWrite(analyzer, "CALC:MARK:FUNC:POW:RES? OBW", 27, retCnt)
'Query result