Rohde & Schwarz R&S FSP Series, Operating Manual

Page: 740 / 796

R&S FSP Remote Control – Programming Examples
Basic Programming Steps for the VISA Interface
7.6 Operating Manual 1164.4556.12 - 06
7.2.1.5 Evaluation of SCPI Status Registers
REM ------ Subroutine for evaluating Questionable Status Register ---------
Public SUB Questionablestatus()
Ques$ = SPACE$(20)
'Preallocate blanks to text variable
status = viWrite(analyzer, "STATus:QUEStionable:EVENt?", 26, retCnt)
status = viRead(analyzer, Ques$, 20, retCnt)
PRINT "Questionable Status: "; Ques$
END SUB
REM ***********************************************************************
REM ------ Subroutine for evaluating Operation Status Register ------------
Public SUB Operationstatus()
Oper$ = SPACE$(20)
'Preallocate blanks to text variable
status = viWrite(analyzer, "STATus:OPERation:EVENt?", 23, retCnt)
status = viRead(analyzer, Oper$, 20, retCnt)
PRINT "Operation Status: "; Oper$
END SUB
REM ***********************************************************************
7.2.1.6 Evaluation of Event Status Register
REM ------ Subroutine for evaluating the Event Status Register ------------
Public SUB Esrread()
Esr$ = SPACE$(20)
'Preallocate blanks to text variable
status = viWrite(analyzer, "*ESR?", 5, retCnt)
'Read ESR
status = viRead(analyzer, Esr$, 20, retCnt)
IF (VAL(Esr$) AND 1) > 0 THEN PRINT "Operation complete"
IF (VAL(Esr$) AND 2) > 0 THEN PRINT "Request Control"
IF (VAL(Esr$) AND 4) > 0 THEN PRINT "Query Error"
IF (VAL(Esr$) AND 8) > 0 THEN PRINT "Device dependent error"
IF (VAL(Esr$) AND 16) > 0 THEN
PRINT "Execution Error; Program aborted"
'Output error message
STOP
'Stop software
END IF
IF (VAL(Esr$) AND 32) > 0 THEN
PRINT "Command Error; Program aborted"
'Output error message
STOP
'Stop software
END IF
IF (VAL(Esr$) AND 64) > 0 THEN PRINT "User request"
IF (VAL(Esr$) AND 128) > 0 THEN PRINT "Power on"
END SUB
REM **********************************************************************