
TempScan / MultiScan, Appendix C 879696 Program Examples in Quick Basic C-27
Acquiring HLL Data in Binary Format
TempScan/1100
Example 15o. BIN_HLL.BAS Program
(1) …… 15-CLS : PRINT “The TempScan/1100 is resetting...”
…… 15-PRINT #1, “OUTPUT 07;*RX”
(3) …… 15-SLEEP 10
(4) …… 15-S% = 0
…… 15-WHILE (S% AND 4) = 0
…… 15-PRINT #1, “SPOLL 07"
…… 15-INPUT #2, S%
(8) …… 15-WEND
(9) …… 15-PRINT #1, “OUTPUT 07;C1-32,1X”
(10) …… 15-PRINT #1, “OUTPUT 07;C33-48,14X”
(11-29) …… 15-(For sample acquisition program lines, refer to the previous TempScan/1100 program example.)
(30) …… 15-PRINT #1, “OUTPUT 07;F0,1X”
(31) …… 15-CONST CHANNELS% = 48, 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”
(38) …… 15-PRINT “High, Low and Last readings of all 48 channels :”
(39) …… 15-FOR i = 1 TO BYTES STEP 20
…… 15- …… 15-HIGH$ = STR$(CVI(MID$(READS, i, 2)))
(41) …… 15- …… 15-HOURh$ = STR$(ASC(MID$(READS, i + 2, 1)))
…… 15- …… 15-MINh$ = STR$(ASC(MID$(READS, i + 3, 1)))
…… 15- …… 15-SECh$ = STR$(ASC(MID$(READS, i + 4, 1)))
…… 15- …… 15-TENTHh$ = STR$(ASC(MID$(READS, i + 5, 1)))
…… 15- …… 15-MONh$ = STR$(ASC(MID$(READS, i + 6, 1)))
…… 15- …… 15-DAYh$ = STR$(ASC(MID$(READS, i + 7, 1)))
…… 15- …… 15-YEARh$ = STR$(ASC(MID$(READS, i + 8, 1)))
(48) …… 15- …… 15-LOW$ = STR$(CVI(MID$(READS, i + 9, 2)))
(49) …… 15- …… 15-HOURl$ = STR$(ASC(MID$(READS, i + 11, 1)))
…… 15- …… 15-MINl$ = STR$(ASC(MID$(READS, i + 12, 1)))
…… 15- …… 15-SECl$ = STR$(ASC(MID$(READS, i + 13, 1)))
…… 15- …… 15-TENTHl$ = STR$(ASC(MID$(READS, i + 14, 1)))
…… 15- …… 15-MONl$ = STR$(ASC(MID$(READS, i + 15, 1)))
…… 15- …… 15-DAYl$ = STR$(ASC(MID$(READS, i + 16, 1)))
…… 15- …… 15-YEARl$ = STR$(ASC(MID$(READS, i + 17, 1)))
(56) …… 15- …… 15-LAST$ = STR$(CVI(MID$(READS, i + 18, 2)))
…… 15- …… 15-PRINT HIGH$+HOURh$+MINh$+SECh$+TENTHh$+MONh$+DAYh$+YEARh$
…… 15- …… 15-PRINT LOW$+HOURl$+MINl$+SECl$+TENTHl$+MONl$+DAYl$+YEARl$
(59) …… 15-NEXT i
(60) …… 15-BINARY DATA%/10 = °C
(61) …… 15-BINARY DATA%/3276.7 = V (±10 V DC)
Kommentare zu diesen Handbüchern