R&S ESR Series

Remote Control
R&S
®
ESR
1010User Manual 1175.7068.02 ─ 12
'----------- Activate and evaluate the limit line -------------
CALL InstrWrite (analyzer, "CALC:LIM5:UPP:STAT ON")
'Activate line 5
CALL InstrWrite (analyzer, "CALC:LIM5:STAT ON")
'Activate limit check
CALL InstrWrite (analyzer, "INIT;*WAI") 'Perform sweep with sync
CALL InstrWrite (analyzer, "CALC:LIM5:FAIL?")
'Query result of limit check
CALL InstrRead(analyzer, result$) 'Result: 1 (= FAIL)
'--------- Read out result -------------------------------------------------
Print "Limit Result Line 5: ";result$
'------ Evaluate limit line by means of status register -------
CALL InstrWrite (analyzer, "*CLS") 'Reset status register
'--------- Measure ---------------------------------------------------------
CALL InstrWrite (analyzer, "INIT;*OPC") 'Perform sweep with sync
CALL viEnableEvent(analyzer, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
Status = viWaitOnEvent(analyzer, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, VI_NULL, VI_NULL)
IF (status = VI_SUCCESS) THEN CALL Srq 'If SRQ is recognized =>
'subroutine for evaluation
'--------- Read out result -------------------------------------------------
IF (status% = 1) THEN
CALL InstrWrite (analyzer, "STAT:QUES:LIM1:COND?")
'Read out STAT:QUES:LIMit
'register
CALL InstrRead(analyzer, result$)
IF ((Val(result$) And 16) <> 0) THEN
Print "Limit5 failed"ELSE
Print "Limit5 passed"END IF
END IF
END SUB
REM ************************************************************************
11.17.4 Measuring the Channel and Adjacent Channel Power
In the following example, the channel and adjacent channel power is first measured on
a signal with a level of 0 dBm at 800 MHz to IS95. Then the channel and adjacent
channel power is measured on a GSM signal at 935.2 MHz with fast ACP measure-
ment (FAST ACP).
In addition, the limit test is activated.
REM ************************************************************************
Public Sub ACP()
result$ = Space$(100)
'--------- R&S FSV default setting ----------------------------------------
CALL SetupStatusReg 'Set status register
CALL InstrWrite (analyzer, "*RST") 'Reset instrument
CALL InstrWrite (analyzer, "INIT:CONT OFF") 'Single sweep
CALL InstrWrite (analyzer, "SYST:DISP:UPD ON")
'ON: display on
Remote Control – Programming Examples