Inhaltsverzeichnis
Werbung
G–30
ReadOMP
ReadRMB1
i = 2
ReadRMB2
ende:
FOR i = 1 TO 2
st% = ILWRT(dev%(i), "SRB0;", 5)
st% = ILWRT(dev%(i), "DCL;", 4)
NEXT i
END IF
END
SUB IFinit
BD% = ILFIND("GPIB0")
IF BD% < 0 THEN
PRINT : PRINT "Board 'GPIB0' nicht gefunden, bitte mit IBCONF überprüfen"
PRINT "und Rechner-Warmstart durchführen."
j = –1
ELSE
FOR i = 1 TO 2
READ dev$
dev%(i) = ILFIND(dev$)
IF dev%(i) < 0 THEN
PRINT : PRINT "Board '" + dev$ + "' nicht gefunden, bitte mit IBCONF überprüfen"
PRINT "und Rechner-Warmstart durchführen."
j = –1
END IF
NEXT i
END IF
END SUB
MGCplus Betrieb mit Rechner oder Terminal
'Messung beendet ?
'Meßwerte von Gerät 1 einlesen
'Gerät 2 auswählen
'Meßwerte von Gerät 2 einlesen
'Quittierung ausschalten
'HBM-Interpreter verlassen
'IEEE-Interface initialisieren
'Board-Adresse
'2 Geräte
'Geräte-Namen
'Geräte-Adresse
Programmerstellung
Werbung
Inhaltsverzeichnis
