Werbung
Sensyflow VT 2
5.5.1
Beispielprogramm
Das folgende Basic Programm liest Integrator und Messwert 10 mal mit 5 sec Abstand aus.
REM -------------------------------------------------------------------------
REM Demo-Programm zum zyklischen Auslesen des Integrators und des Messwertes
REM Funktion zum Auslesen des Datenbuffers
DECLARE FUNCTION lesesag$ (b$)
REM Variablen definieren
b$ = ""
PRINT "Oeffnen eines COM-Kanals"
OPEN "com1:9600,N,8,2,cs,ds,cd" FOR RANDOM AS #1 LEN = 1024
PRINT Echofunktion; ausschalten
PRINT "eoff"
PRINT #1, "eoff" + CHR$(13)
PRINT "Start Integrator"
PRINT #1, "starti" + CHR$(13)
b$ = lesesag$(b$)
SLEEP 1
i = 0
DO WHILE i < 10
PRINT "--------------------Next loop----------------------"
i = i + 1
PRINT "Loop", i
REM Sende Befehl zum Integrator auslesen
PRINT #1, "INT" + CHR$(13)
b$ = lesesag$(b$)
PRINT b$
REM
REM Sende Befehl zum Messwert auslesen
PRINT #1, "ew" + CHR$(13)
b$ = lesesag$(b$)
PRINT "Messwert", b$
SLEEP 5
LOOP
REM COM Schliessen
CLOSE #1
FUNCTION lesesag$ (b$)
b$ = ""
a$ = ""
DO
LOOP WHILE a$ <> CHR$(4)
lesesag$ = b$
END FUNCTION
Inbetriebnahme
a$ = INPUT$(1, 1)
IF a$ <> CHR$(4) THEN
b$ = b$ + a$
END IF
Seite 21
Werbung
