Inhaltsverzeichnis
Werbung
G–16
PRINT : PRINT "Error: "; rd$, "OMP?-Befehl"
STOP
END IF
n% = 0
FOR i = 1 TO 4
n% = INSTR(n% + 1, rd$, ",")
IF i = 3 THEN m% = n%
NEXT i
n% = VAL(MID$(rd$, m% + 1, n% – m% – 1))
LOOP UNTIL n% = anzzln% * anzwdh%
END SUB
SUB ReadRMB1
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)
MGCplus Betrieb mit Rechner oder Terminal
'Programm beenden
'Anzahl Meßwertzeilen extrahieren
'Anzahl Meßwertzeilen * Wiederholungen erreicht?
'Meßwerte von Gerät 1 einlesen
'Meßwerte (Meßwertzeilen * Wiederholungen) auslesen
'# oder ? einlesen
'Fehler ?
'CR und LF einlesen
'Fehler-Routine aufrufen
'Programm beenden
'0 einlesen
Programmerstellung
Werbung
Inhaltsverzeichnis
