Inhaltsverzeichnis
Werbung
G–18
SUB ReadRMB2
rmbbef$ = "RMB?" + STR$(anzzln% * anzwdh%) + ",6409"
PRINT #1, rmbbef$
z$ = INPUT$(1, #1)
IF z$ = "?" THEN
z$ = INPUT$(2, #1)
ReadESR
PRINT : PRINT "Error: "; rd$, "RMB?-Befehl"
STOP
END IF
z$ = INPUT$(1, #1)
PRINT " Gerät 2:"
PRINT " Kanal 2 Kanal 3 Zeitkanal"
FOR i = 1 TO anzwdh%
FOR j = 1 TO anzzln%
FOR k = 1 TO anzsig%
z$ = INPUT$(1, #1) + CHR$(0)
p% = CVI(z$)
rd$ = CHR$(0) + INPUT$(3, #1)
IF k = 1 THEN
wert! = ((CVL(rd$) / 256) * 2 / 2 * 4000) / 7680000
PRINT USING "+####.#"; wert!;
MGCplus Betrieb mit Rechner oder Terminal
'Meßwerte von Gerät 2 einlesen
'Meßwerte (Meßwertzeilen * Wiederholungen) auslesen
'# oder ? einlesen
'Fehler ?
'CR und LF einlesen
'Fehler-Routine aufrufen
'Programm beenden
'0 einlesen
'Überschrift
'Anzahl der Wiederholungen
'Anzahl der Meßwertzeilen
'Summe der Signale aller Kanäle
'Meßwert-Status einlesen
'Meßwert einlesen
'Kanal 2
'µm/m (2/2 = 2/k-Faktor)
Programmerstellung
Werbung
Inhaltsverzeichnis
