Inhaltsverzeichnis
Werbung
Programmerstellung
PRINT " s";
END IF
x = x + 4
NEXT l
PRINT
NEXT k
PRINT
NEXT j
END SUB
SUB ReadRMB2
rmbbef$ = "RMB?" + STR$(anzzln% * anzwdh%) + ",6409;"
CALL WriteLine(rmbbef$, 12)
PRINT " Gerät 2:"
PRINT " Kanal 2
x = 4
FOR j = 1 TO anzwdh%
FOR k = 1 TO anzzln%
FOR l = 1 TO anzsig%
z$ = CHR$(0) + MID$(RD$, x, 3)
IF l = 1 THEN
wert! = ((CVL(z$) / 256) * 2 / 2 * 4000) / 7680000
PRINT USING "+####.#"; wert!;
PRINT " µm/m ";
ELSEIF l = 2 THEN
wert! = ((CVL(z$) / 256) * 2) / 7680000
PRINT USING "+##.#"; wert!;
Kanal 3
Zeitkanal"
'Meßwerte von Gerät 2 einlesen
'Meßwerte (Meßwertzeilen * Wiederholungen) auslesen
'Überschrift
'Überschrift
'Anzahl der Wiederholungen
'Anzahl der Meßwertzeilen
'Summe der Signale aller Kanäle
'Meßwert einlesen
'Kanal 2
'µm/m (2/2 = 2/k-Faktor)
'Kanal 3
'mV/V
MGCplus Betrieb mit Rechner oder Terminal
G–33
Werbung
Inhaltsverzeichnis
