IOtech MultiScan 1200, User Manual

Page: 276 / 364

266 Chapter 15: Program Examples TempScan / MultiScan User's Manual
MultiScan/1200
Example 15p. BIN_HLL.BAS Program
(1)
CLS : PRINT “The MultiScan/1200 is resetting...”
PRINT #1, “OUTPUT 07;*RX”
(3)
SLEEP 10
(4)
S% = 0
WHILE (S% AND 4) = 0
PRINT #1, “SPOLL 07"
INPUT #2, S%
(8)
WEND
(9)
PRINT #1, “OUTPUT 07;M#0X”
(10)
PRINT #1, “OUTPUT 07;W#32X”
(11)
PRINT #1, “OUTPUT 07;C1-24,1X”
(12)
PRINT #1, “OUTPUT 07;C25-36,14X”
(13-31) (For sample acquisition program lines, refer to the previous MultiScan/1200 program example.)
(32)
PRINT #1, “OUTPUT 07;F0,1X”
(33)
CONST CHANNELS% = 36, BYTES = CHANNELS% * 20
DIM READS AS STRING * BYTES
S% = VARSEG(READS)
O% = VARPTR(READS)
WHILE INKEY$ = “”
PRINT #1, “OUTPUT 07;U4X”
PRINT #1, “ENTER 07 #”; CHANNELS%*20; “BUFFER ”;S%; “:”;O%; “ DMA”
(40)
PRINT “High, Low and Last readings of all 36 channels :”
(41)
FOR i = 1 TO BYTES STEP 20
HIGH$ = STR$(CVI(MID$(READS, i, 2)))
(43)
HOURh$ = STR$(ASC(MID$(READS, i + 2, 1)))
MINh$ = STR$(ASC(MID$(READS, i + 3, 1)))
SECh$ = STR$(ASC(MID$(READS, i + 4, 1)))
TENTHh$ = STR$(ASC(MID$(READS, i + 5, 1)))
MONh$ = STR$(ASC(MID$(READS, i + 6, 1)))
DAYh$ = STR$(ASC(MID$(READS, i + 7, 1)))
YEARh$ = STR$(ASC(MID$(READS, i + 8, 1)))
(50)
LOW$ = STR$(CVI(MID$(READS, i + 9, 2)))
(51)
HOURl$ = STR$(ASC(MID$(READS, i + 11, 1)))
MINl$ = STR$(ASC(MID$(READS, i + 12, 1)))
SECl$ = STR$(ASC(MID$(READS, i + 13, 1)))
TENTHl$ = STR$(ASC(MID$(READS, i + 14, 1)))
MONl$ = STR$(ASC(MID$(READS, i + 15, 1)))
DAYl$ = STR$(ASC(MID$(READS, i + 16, 1)))
YEARl$ = STR$(ASC(MID$(READS, i + 17, 1)))
(58)
LAST$ = STR$(CVI(MID$(READS, i + 18, 2)))
PRINT HIGH$+HOURh$+MINh$+SECh$+MONh$+DAYh$+YEARh$
PRINT LOW$+HOURl$+MINl$+SECl$+MONl$+DAYl$+YEARl$
(61)
NEXT i
(62)
BINARY DATA%/10 = °C
(63)
BINARY DATA%/3276.7 = V (
±±±±
10 V DC)