R&S ESU Series, Operating Manual

Page: 806 / 855

Operating Manual 1302.6163.12 - 03 7.17
R&S ESU Remote Control – Programming Examples
More Complex Programming Examples
'--------- Start measurement and query result -----------------------------
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
status = viWrite(analyzer, "CALC:LIM:ACP:ACH:RES?", 21, retCnt)
'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 ESU default setting -----------------------------------------
CALL SetupStatusReg
'Set status register
status = viWrite(analyzer, "*RST", 4, retCnt)
'Reset instrument
status = viWrite(analyzer, "INST:SEL SAN", 12, retCnt)
'Change into analyzer mode
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 ESU 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 bandw. 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