Download User`s Guide

Kapitel 6 Anwendungsprogramme
Anwendung der “Low-Level”-Befehle
. . . continued
Info1$ = "INIT"
' Das Trigger-Subsystem initialisieren
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "*TRG"
' Nach Ablauf der Verzögerungszeit werden die
Ausgangsänderungen wirksam
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "INST:COUP:TRIG NONE"
' Die Ausgänge entkoppeln
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
END
(QGHYRQ3URJUDPP
6