Inhaltsverzeichnis
Werbung
G–32
IF j = 3 THEN m% = n%
NEXT j
n% = VAL(MID$(RD$, m% + 1, n% – m% – 1))
LOOP UNTIL n% = anzzln% * anzwdh%
END SUB
SUB ReadRMB1
rmbbef$ = "RMB?" + STR$(anzzln% * anzwdh%) + ",6409;"
CALL WriteLine(rmbbef$, 12)
PRINT " Gerät 1:"
PRINT " Kanal 3
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) / 7680000
PRINT USING "+##.###"; wert!;
PRINT " mV/V ";
ELSEIF l = 2 THEN
wert! = ((CVL(z$) / 256) * 5000) / 7680000
PRINT USING "###.###"; wert!;
PRINT " Ohm
ELSE
wert! = ((CVL(z$) / 256) * 416.7) / 1000000
PRINT USING "##.###"; wert!;
MGCplus Betrieb mit Rechner oder Terminal
Kanal 4
Zeitkanal"
";
'Anzahl Meßwertzeilen * Wiederholungen erreicht?
'Meßwerte von Gerät 1 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 3
'mV/V
'Kanal 4
'Ohm
'Zeitkanal
's (1/2400Hz = 416.7µs)
Programmerstellung
Werbung
Inhaltsverzeichnis
