Operating instructions

R&S ESCI More Complex Programming Examples

1166.6004.12 7.25 E-1

CALL IBWRT(receiver%,"CALC1:LIM5:FAIL?") 'Query result of limit

'check

CALL IBRD(receiver%, result$) 'Result: 1 (= FAIL)

'--------- Read out result -------------------------------------------------

Print "Limit Result Line 5: ";result$

'------ Evaluate limit line in screen A by means of status register -------

CALL IBWRT(receiver%,"*CLS") 'Reset status register

'--------- Measure ---------------------------------------------------------

CALL IBWRT(receiver%,"INIT;*OPC") 'Perform sweep with sync

CALL WaitSRQ(boardID%,status%) 'Wait for service request

'--------- Read out result -------------------------------------------------

IF (status% = 1) THEN

CALL IBWRT(receiver%,"STAT:QUES:LIM1:COND?") 'Read out STAT:QUES:LIMit

CALL IBRD(receiver%, result$) 'register

IF ((Val(result$) And 16) <> 0) THEN

Print "Limit5 failed"

ELSE

Print "Limit5 passed"

END IF

END SUB

REM

************************************************************************