R&S 1129.7246.03, Operating Manual

Page: 807 / 855

R&S ESU Remote Control – Programming Examples
More Complex Programming Examples
7.18 Operating Manual 1302.6163.12 - 03
'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
status = viRead(analyzer, result$, 100, retCnt)
Print result$
END SUB
REM ************************************************************************
7.3.5 Time Domain Power Measurement
In the following example, the mean carrier power of a signal with 300 kHz bandwidth
at 100 MHz is to be determined. In addition, the peak power, the rms value and the
standard deviation are measured. To do this, the time-domain-power measurement
functions are used.
REM ************************************************************************
Public Sub TimeDomainPower()
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 time domain power measurement ---
status = viWrite(analyzer, "FREQ:CENT 100MHz;SPAN 0Hz", 25, retCnt)
'Set frequency
status = viWrite(analyzer, "BAND:RES 300kHz", 15, retCnt)
'Resolution bandwidth
status = viWrite(analyzer, "SWE:TIME 200US", 14, retCnt)
'Sweep time
status = viWrite(analyzer, "CALC:MARK:FUNC:SUMM:PPE ON", 26, retCnt)
'Peak measurement on
status = viWrite(analyzer, "CALC:MARK:FUNC:SUMM:MEAN ON", 27, retCnt)
'Mean measurement on
status = viWrite(analyzer, "CALC:MARK:FUNC:SUMM:RMS ON", 26, retCnt)
'RMS measurement on
status = viWrite(analyzer, "CALC:MARK:FUNC:SUMM:SDEV ON", 27, retCnt)
'Standard deviation on