Operating instructions

R&S ESCI More Complex Programming Examples
1166.6004.12 7.23 E-1
Measuring the AM Modulation Depth
The example below is based on an AM-modulated signal at 100 MHz with the following characteristics:
• Carrier signal level: –30 dBm
• AF frequency: 100 kHz
• Modulation depth: 50 %
The default setting of the receiver for measurements can be used for the measurements described
below (SetupInstrument).
REM ************************************************************************
Public Sub AMMod()
result$ = Space$(100)
CALL SetupInstrument 'Default setting
'--------- Peak search -----------------------------------------------------
CALL IBWRT(receiver%,"INIT:CONT OFF") 'Single sweep
CALL IBWRT(receiver%,"INIT;*WAI") 'Perform sweep with sync
CALL IBWRT(receiver%,"CALC:MARK:PEXC 6DB") 'Peak excursion
CALL IBWRT(receiver%,"CALC:MARK:STAT ON") 'Marker 1 on
CALL IBWRT(receiver%,"CALC:MARK:TRAC 1") 'Assign marker1 to trace1
'--------- Measure modulation depth-----------------------------------------
CALL IBWRT(receiver%,"CALC:MARK:MAX;FUNC:MDEP ON") 'Marker to Peak;
CALL IBWRT(receiver%,"CALC:MARK:FUNC:MDEP:RES?") 'Measure mod. depth
CALL IBRD(receiver%, result$) 'Read out result
'--------- Read out result -------------------------------------------------
Print "AM Mod Depth [%]: ";result$
END SUB
REM
************************************************************************