R&S ESU Series Operating Manual page 803

R&S ESU
'--------- Definition of data points and threshold ----------
xlimit$ = "CALC:LIM5:CONT 120MHZ,126MHZ,127MHZ,128MHZ,129MHZ,130MHz,136MHz"
status = viWrite(analyzer, xlimit$, 63, retCnt)
status = viWrite(analyzer, "CALC:LIM5:UPP -70,-40,-40,-20,-40,-40,-70", 41,
retCnt)
'Set values for y-axis
status = viWrite(analyzer, "CALC:LIM5:UPP:THR -75DBM", 24, retCnt)
'Set y threshold (only possible for relative y-axis)
'A margin or an x /y offset can be defined here.
'--------- Activate and evaluate the limit line in screen A --
status = viWrite(analyzer, "CALC1:LIM5:UPP:STAT ON", 22, retCnt)
'Activate line 5 in screen A
status = viWrite(analyzer, "CALC1:LIM5:STAT ON", 18, retCnt)
'Activate limit check in screen A
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
status = viWrite(analyzer, "CALC1:LIM5:FAIL?", 16, retCnt)
'Query result of limit check
status = viRead(analyzer, result$, 100, retCnt)
'Result: 1 (= FAIL)
'--------- Read out result ---------------------------------
Print "Limit Result Line 5: "; result$
'- Evaluate limit line in screen A by means of status register -
status = viWrite(analyzer, "*CLS", 4, retCnt)
'Reset status register
'--------- Measure ------------------------------------------
status = viWrite(analyzer, "INIT;*OPC?", 4, retCnt)
'Perform sweep with sync
status = viRead(analyzer, result$, 100, retCnt)
'Wait for service request
status = Val(result$)
'--------- Read out result ----------------------------------
IF (status% = 1) THEN
status = viWrite(analyzer, "STAT:QUES:LIM1:COND?", 20, retCnt)
'Read out STAT:QUES:LIMit register
status = viRead(analyzer, result$, 100, retCnt)
'Read out result
IF ((Val(result$) And 16) <> 0) THEN
Print "Limit5 failed"
ELSE
Print "Limit5 passed"
END IF
END IF
END SUB
REM ************************************************************************
7.14
Remote Control – Programming Examples
More Complex Programming Examples
'Set values for x-axis
Operating Manual 1302.6163.12 - 03