Xylem STORM 3 Basic Programming manual Bedienungsanleitung PDF herunterladen (Seite 46)

REM Respond to simple commands on the RS-232 Com port as a Listener program

OPEN “LISTENER” AS #3

PRINT #3 “Enter Command > “

REM Ten seconds of inactivity causes the program to exit

INPUT #3 “\n” 10000, reply$

IF (reply$ == “”) THEN

END

ELSE

REM Trim trailing carriage return or line feed

last_char$ = RIGHT$(reply$, 1)

IF (last_char$ == “\n”) OR (last_char$ == “\r”) THEN

reply$ = LEFT$(reply$, LEN(reply$) - 1)

ELSE

BREAK

END IF

LOOP

ENDIF

REM remove case sensitivity from command

reply$ = UPPER$(reply$)

SWITCH reply$

CASE “BATTERY?”:

GETVALUE SYSBATT, var

PRINT #3 “Battery = “, var USING “##.#”, “\r\n”

BREAK

CASE “LASTSTAGE?”:

GETVALUE SENSOR “Stage”, var

PRINT #3 “Stage = “, var, “\r\n”

BREAK

CASE “ANALOG1?”:

GETVALUE ANALOG1, var

PRINT #3 “Analog 1 = “, var USING “##.###”, “\r\n”

BREAK

DEFAULT:

PRINT #3 “Unknown command \””, reply$,”\” \r\n”

BREAK

END SWITCH

GOTO 50

Listener.bas

EXAMPLE PROGRAMS

1 2 ... 41 42 43 44 45 46 47 48

Keine Kommentare

Xylem STORM 3 Basic Programming manual Bedienungsanleitung Seite 46