Inhaltsverzeichnis
Werbung
Programmerstellung
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
Erläuterungen:
a) Die Anweisung
OUT &H3FB, &H1B
Even Parity.
b) Mit den Befehlen WriteLine () wird jeweils ein Einstellbefehl am MGCplus gesendet und die Antwort
auf den Befehl eingelesen. Bei einer Fehlermeldung – siehe *ESR?-Befehl – wird diese ausgegeben
und das Programm angehalten.
c) Mit den Befehlen WriteLine ("PCS3") bis WriteLine("CAL") werden die Kanäle 3 und 4 parametriert
und mit Befehl WriteLine ("CAL") kalibriert.
d) Mit den Befehlen WriteLine ("MCS3,4,17") bis WriteLine ("TRD6500,151") wird die eigentliche Mes-
sung vorbereitet und mit WriteLine ("TSV3,1,4") gestartet.
e) Die gestartete und auf das Triggerereignis wartende Messung ist am eingeblendeten Meßgerätesym-
bol im AB22A erkennbar. Im Programm erscheint die Meldung: Warten auf Trigger!
'Schreibroutine
'Befehl ausgeben
'Antwort incl.CR einlesen
'LF einlesen
'Fehler ?
'Fehler-Routine aufrufen
'Programm beenden
im Initialisierungs-Block dient zur Einstellung der Schnittstelle auf
MGCplus Betrieb mit Rechner oder Terminal
G–9
Werbung
Inhaltsverzeichnis
