Inhaltsverzeichnis
Werbung
Programmerstellung
WriteLine ("TSV3,1,2")
anzsig% = 3
anzzln% = 3
anzwdh% = 2
ReadOMP
ReadRMB1
PRINT #1, "S02"
ReadRMB2
ende:
PRINT #1, "S98"
PRINT #1, "DCL"
END
SUB ReadESR
PRINT #1, "*ESR?"
LINE INPUT #1, rd$
z$ = INPUT$(1, #1)
END SUB
SUB ReadOMP
PRINT "Warten auf Trigger!"
PRINT
DO
PRINT #1, "OMP?"
LINE INPUT #1, rd$
z$ = INPUT$(1, #1)
IF rd$ = "?" THEN
ReadESR
'Messung starten (3 Meßwertzeilen,1 Meßwertzeile Vorlauf,
2 Messungen insgesamt)
'3 Signale Kanal X, Kanal Y, Zeitkanal)
'3 Meßwertzeilen (p1 vom TSV-Befehl)
'2 Wiederholungen (p3 vom TSV-Befehl)
'Messung beendet ?
'Meßwerte von Gerät 1 einlesen
'Gerät 2 auswählen
'Meßwerte von Gerät 2 einlesen
'nachfolgender Befehl geht an beide Geräte, kein Gerät antwortet
'HBM-Interpreter verlassen
'Fehler-Routine
'Fehlerstatus-Register auslesen
'String incl.CR einlesen
'LF einlesen
'Status Lesezeiger ?
'String incl.CR einlesen
'LF einlesen
'Fehler ?
'Fehler-Routine aufrufen
MGCplus Betrieb mit Rechner oder Terminal
G–15
Werbung
Inhaltsverzeichnis
