![Omega iDRX-ACC Скачать руководство пользователя страница 22](http://html1.mh-extra.com/html/omega/idrx-acc/idrx-acc_user-manual_3915078022.webp)
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 -> CHANGE "COM1:" TO "COM2:"
' 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
Page 18