R&S 1129.7246.03, Operating Manual

Page: 801 / 855

R&S ESU Remote Control – Programming Examples
More Complex Programming Examples
7.12 Operating Manual 1302.6163.12 - 03
7.3.1.4 Measuring the AM Modulation Depth
The example below is based on an AM-modulated signal at 100 MHz with the fol-
lowing characteristics:
• Carrier signal level: –30 dBm
• AF frequency: 100 kHz
• Modulation depth: 50%
The default setting of the R&S ESU can be used for the measurements described
below (SetupInstrument).
REM ************************************************************************
Public Sub AMMod()
result$ = Space$(100)
CALL SetupInstrument
'Default setting
'--------- Peak search --------------------------------------
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
'Single sweep
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
status = viWrite(analyzer, "CALC:MARK:PEXC 6DB", 18, retCnt)
'Peak excursion
status = viWrite(analyzer, "CALC:MARK:STAT ON", 17, retCnt)
'Marker 1 on
status = viWrite(analyzer, "CALC:MARK:TRAC 1", 16, retCnt)
'Assign marker1 to trace1
'--------- Measure modulation depth--------------------------
status = viWrite(analyzer, "CALC:MARK:MAX;FUNC:MDEP ON", 26, retCnt)
'Marker to Peak;
status = viWrite(analyzer, "CALC:MARK:FUNC:MDEP:RES?", 24, retCnt)
'Measure mod. depth
status = viRead(analyzer, result$, 100, retCnt)
'Read out result
'--------- Read out result ----------------------------------
Print "AM Mod Depth [%]: "; result$
END SUB
REM ************************************************************************