Xylem STORM 3 Basic Programming manual Instrukcja Użytkownika Pobierz pdf (Strona 44)

EXAMPLE PROGRAMS

REM Prints out the last line of the log ﬁle to the RS-232 Com port

REM When set up to run with the sensors, prints out their values every scan

LogFile$ = “SiteID.csv”

OPEN LogFile$ FOR READING AS #1

SEEK #1, 0, “END”

leSize = TELL(#1)

ﬁlePosition = TELL(#1)

ﬁleError = 0

foundEnd = 0

IF (ﬁlePosition < 150) THEN

REM The ﬁrst search should begin at the start

SEEK #1, 0, “BEGINNING”

ELSE

REM Note that this is presuming that each log line is less than 150 characters long

SEEK #1, -150, “END”

END IF

WHILE (foundEnd == 0 and ﬁleError == 0)

LINE INPUT #1, LastLogLine$

ﬁlePosition = TELL(#1)

IF (lePosition == leSize) THEN

foundEnd = 1

END IF

WEND

CLOSE #1

SETPORT 9600, 8, none, 1, none, 50, 0

OPEN “RS-232 Com” AS #2

PRINT #2 LastLogLine$, “\r\n”

CLOSE #2

AutoPrint.bas

The following programs are provided for reference when creating and using the Basic interpreter.

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

Brak uwag

Xylem STORM 3 Basic Programming manual Instrukcja Użytkownika Strona 44