Inhaltsverzeichnis
Werbung
Programmerstellung
PRINT " um/m ";
ELSEIF k = 2 THEN
wert! = ((CVL(rd$) / 256) * 2) / 7680000
PRINT USING "+##.#"; wert!;
PRINT " mV/V ";
ELSE
wert! = ((CVL(rd$) / 256) * 416.7) / 1000000
PRINT USING "##.###"; wert!;
PRINT " s";
END IF
NEXT k
PRINT
NEXT j
PRINT
NEXT i
GET #1, , p%
END SUB
SUB WriteLine (w$)
PRINT #1, w$
LINE INPUT #1, rd$
z$ = INPUT$(1, #1)
IF rd$ <> "0" THEN
ReadESR
PRINT : PRINT "Error: "; rd$, w$; "–Befehl"
STOP
END IF
END SUB
'Kanal 3
'mV/V
'Zeitkanal
's (1/2400Hz = 416.7µs)
'2 Byte (CRLF) einlesen
'Schreibroutine
'Befehl ausgeben
'Antwort incl.CR einlesen
'LF einlesen
'Fehler ?
'Fehler-Routine aufrufen
'Programm beenden
MGCplus Betrieb mit Rechner oder Terminal
G–19
Werbung
Inhaltsverzeichnis
