Werbung
R&S FSQ
7.2.1.6
Behandlung des Event Status Registers
REM --- Unterprogramm zur Auswertung Event-Status-Register
Public SUB Esrread()
Esr$ = SPACE$(20)
'Textvariable mit Leerzeichen vorbelegen
status = viWrite(analyzer, "*ESR?", 5, retCnt)
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"
'Fehlermeldung ausgeben
STOP
'Software anhalten
END IF
IF (VAL(Esr$) AND 32) > 0 THEN
PRINT "Command Error; Program aborted"
'Fehlermeldung ausgeben
STOP
'Software anhalten
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 ******************************************************************
Operating Manual 1313.9681.11 - 02
Fernsteuerung – Programmbeispiele
Grundlegende Programmierung über die VISA-Schnittstelle
'ESR lesen
7.7
Werbung
Kapitel
