Table of Contents
Advertisement
IX.
SAMPLE PROGRAM:
' ASSUMING :
' BAUD RATE = 9600
' PARITY
= ODD
' DATA BIT
= 7
' STOP BIT
= 1
' COMM PORT = 1
' ADDRESS
= 01
' RECOG. CHAR = *
' SERIAL PORT = COM1
' FOR COMM PORT = 2 ->
' THIS PROGRAM WILL GET READING AND DISPLAY IT EVERY 1 SECOND
ON ERROR GOTO ER
ON TIMER(1) GOSUB RDG
CLS
CLOSE #1
COLOR 1, 7
LOCATE 22, 30
PRINT "PRESS <ESC> TO END"
OPEN "COM1:" + "9600,O,7,1,CS,DS" FOR RANDOM AS #1
LOCATE 10, 30
PRINT "READING = "
TIMER ON
DO: LOOP UNTIL INKEY$ = CHR$(27)
COLOR 7, 0
CLS
END
RDG:
PRINT #1, "*01X01"
DAT1$ = ""
DAT$ = ""
T$ = TIME$
T1$ = MID$(T$, LEN(T$) - 1, 2)
T1 = VAL(T1$)
DO
IF LOC(1) > 0 THEN
CNT = 0
DAT1$ = INPUT$(LOC(1), #1)
DAT$ = DAT$ + DAT1$
ELSE
T$ = TIME$
T2$ = MID$(T$, LEN(T$) - 1, 2)
T2 = VAL(T2$)
IF T2 < T1 THEN T2 = T2 + 60
IF T2 - T1 >= 2 THEN CNT = 1
END IF
CHANGE "COM1:"
Page 18
TO
"COM2:"
Advertisement
Table of Contents
