Inhaltsverzeichnis
Werbung
Programmerstellung
Testprogramm: (Quick-BASIC 4.5)
Schwellwert-Triggerung einer Messung mit 3 Meßwertzeilen, eine Meßwertzeile Vorlauf und insgesamt 2
Messungen. Gemessen und skaliert wird das Bruttosignal der Kanäle 3 und 4 von Gerät 1 (Master), das Netto-
signal der Kanäle 2 und 3 von Gerät 2 (Slave) sowie die Zeitkanäle.
$INCLUDE: 'c:\at–gpib\qbasic\qbdecl4.bas'
DECLARE SUB IFinit ()
DECLARE SUB WriteLine (WR$, n%)
DECLARE SUB Load ()
DECLARE SUB ReadOMP ()
DECLARE SUB ReadRMB1 ()
DECLARE SUB ReadRMB2 ()
DECLARE SUB ReadESR ()
DIM SHARED i, j, BD%, dev%(2), n%, st%, anzsig%, anzzln%, anzwdh%
DIM SHARED RD$, WR$
einheit1$ = "EUN" + CHR$(34) + "% " + CHR$(34) + ";"
einheit2$ = "EUN" + CHR$(34) + "um/m" + CHR$(34) + ";"
einheit3$ = "IUN" + CHR$(34) + "um/m" + CHR$(34) + ";"
einheit4$ = "IUN" + CHR$(34) + "mV/V" + CHR$(34) + ";"
DATA DEV4,DEV5
CLS
init:
CALL IFinit
IF j >= 0 THEN
FOR i = 1 TO 2
st% = ILWRT(dev%(i), "STP;", 4)
CALL WriteLine("SRB1;", 5)
NEXT i
'physik.Einheit %
'physik.Einheit µm/m
'Anzeige-Einheit µm/m
'Anzeige-Einheit mV/V
'Bildschirm löschen
'evtl.laufende Messung abbrechen
'Quittierung einschalten
MGCplus Betrieb mit Rechner oder Terminal
G–25
Werbung
Inhaltsverzeichnis
