Inhaltsverzeichnis
Werbung
Programmerstellung
SUB Load STATIC
RD$ = SPACE$(80)
st% = ILRD(dev%(i), RD$, 80)
IF st% AND &H8000 THEN
PRINT : PRINT "GPIB-Error Gerät: "; i
IF st% AND &H4000 THEN
PRINT "Time out!"
STOP
END IF
END IF
END SUB
SUB ReadESR STATIC
st% = ILWRT(dev%(i), "*ESR?;", 6)
RD$ = SPACE$(10)
st% = ILRD(dev%(i), RD$, 10)
END SUB
SUB ReadOMP
PRINT "Warten auf Trigger!"
PRINT
i = 1
DO
CALL WriteLine("OMP?;", 5)
n% = 0
FOR j = 1 TO 4
n% = INSTR(n% + 1, RD$, ",")
'Lese-Routine
'String löschen
'String einlesen
'GPIB-Error aufgetreten ?
'Time out-Error aufgetreten ?
'Programm anhalten
'Fehler-Routine
'Befehl ausgeben
'String löschen
'String einlesen
'Messung beendet ?
'Status Lesezeiger ?
'Anzahl Meßwertzeilen extrahieren
MGCplus Betrieb mit Rechner oder Terminal
G–31
Werbung
Inhaltsverzeichnis
