Rohde & Schwarz NRT Betriebshandbuch Seite 96

Beschreibung der Befehle
Beispielprogramm
zur externen Triggerung über die AUX TTL-Buchse:
'****************************************************************************
'Initialisierung des SRQ
'****************************************************************************
CALL IBWRT(sensor%, "*CLS")
CALL IBWRT(sensor%, "*SRE 128")
CALL IBWRT(sensor%, "*ESE 61")
CALL IBWRT(sensor%, "STAT:OPER:ENAB 16")
CALL IBWRT(sensor%, "STAT:OPER:NTR 16")
'****************************************************************************
'SRQ am Steuerrechner aktivieren
'****************************************************************************
ON PEN GOSUB Srq
PEN ON
'****************************************************************************
'Hauptprogramm
'****************************************************************************
'Anwendungsspezifische Befehle, Beispiel für das Abholen der Meßergebnisse
flag% = 0
lp = TRUE
WHILE lp = TRUE
IF flag% = 1 THEN
CALL IBWRT(sensor%, "SENS<n>:DATA?")
CALL IBRD(sensor%, Meßwert)
PRINT "aktueller Meßwert: " ;Meßwert
flag% = 0
PEN ON
END IF
WEND
STOP
'****************************************************************************
Srq:
'****************************************************************************
CALL IBRSP(sensor%, STB%)
IF (STB% AND 128) > 0 THEN GOSUB Operationstatus
ON PEN GOSUB Srq
PEN ON
RETURN
'****************************************************************************
Operationstatus:
'****************************************************************************
Oper$ = SPACE$(20)
CALL IBWRT(sensor%, "STAT:OPER:EVEN?")
CALL IBRD(sensor%, Oper$)
IF (VAL(Oper$) AND 16) > 0 THEN flag% = 1
RETURN
1080.9506.02
'Unterprogramm zur Behandlung des OPER-Registers
'Status Reporting zurücksetzen
'SRQ für STAT:OPER ermöglichen
'SRQ am NRT mit Event-Enable-Bit
'scharfmachen.
'MEASuring-Operation-Enable-Bit
'aktivieren
'SRQ auslösen, wenn das NRT
'die Messung beendet hat.
'Einlesen der Daten in einer
'Schleife
'getriggerte Messung beendet
'Daten abholen
'und ausgeben
'SRQ erneut aktivieren
'Programmende
'Service Request Routine
'Serial Poll, Status Byte lesen
'Ende der Service Request Routine
'Ende des Unterprogramms
3.16
NRT
D-6