Operating instructions

More Complex Programming Examples R&S ESCI
1166.6004.12 7.14 E-1
Default Setting for Measurements
REM ************************************************************************
Public Sub SetupInstrument()
'-------------------- R&S ESCI default setting -----------------------------
-----
CALL SetupStatusReg 'Set status registers
CALL IBWRT(receiver%,"*RST") 'Reset instrument
CALL IBWRT(receiver%,"SYST:DISP:UPD ON") 'ON: display on
'OFF: off(improved
' performance)
CALL IBWRT(receiver%,"DISP:FORM SINGle") 'Full screen
CALL IBWRT(receiver%,"DISP:WIND1:SEL") 'Active screen A
CALL IBWRT(receiver%,"INIT:CONT OFF") 'Single sweep
'--------- Set frequency --------------------------------------------------
CALL IBWRT(receiver%,"FREQUENCY:CENTER 100MHz") 'Center frequency
CALL IBWRT(receiver%,"FREQ:SPAN 1 MHz") 'Span
'--------- Set level ------------------------------------------------------
CALL IBWRT(receiver%,"DISP:WIND:TRAC:Y:RLEV –20dBm") 'Reference level
CALL IBWRT(receiver%,"INP:ATT 10dB") 'Input attenuation (*)
'--------- Scale y axis ----------------------------------------------------
CALL IBWRT(receiver%,"DISP:WIND:TRAC:Y:SPAC LOG") 'Log level axis
CALL IBWRT(receiver%,"DISP:WIND:TRAC:Y:SCAL 100dB") 'Level range
CALL IBWRT(receiver%,"DISP:WIND:TRAC:Y:SCAL:MODE ABS") 'Absolute scaling
CALL IBWRT(receiver%,"CALC:UNIT:POW DBM") 'Unit of y axis
'--------- Trace and detector settings -------------------------------------
CALL IBWRT(receiver%,"DISP:WIND:TRAC1:MODE AVER") 'Trace1 average
CALL IBWRT(receiver%,"AVER:TYPE VID") 'Average mode video;
'"LIN" for linear
CALL IBWRT(receiver%,"SWE:COUN 10") 'Sweep count
CALL IBWRT(receiver%,"DISP:WIND:TRAC2:STAT OFF") 'Trace2 blank
CALL IBWRT(receiver%,"DISP:WIND:TRAC3:STAT OFF") 'Trace3 blank
CALL IBWRT(receiver%,"CALC:MATH:STAT OFF") 'Trace mathematics off
CALL IBWRT(receiver%,"DETECTOR1 RMS") 'Detector Trace1 (*)
CALL IBWRT(receiver%,"DET2:AUTO ON") 'Detector Trace2 (*)
CALL IBWRT(receiver%,"DET3:AUTO ON") 'Detector Trace3 (*)
'--------- Band width and sweep time ---------------------------------------
CALL IBWRT(receiver%,"BAND:RES 100KHz") 'Resolution BW (*)
CALL IBWRT(receiver%,"BAND:VID 1MHz") 'Video bandwidth (*)
CALL IBWRT(receiver%,"SWE:TIM 100ms") 'Sweep time (*)
END SUB
REM
************************************************************************