Multiscan/1200 – Measurement Computing TempScan/1100 User Manual
Page 299
TempScan / MultiScan, Appendix C
879696
Program Examples in Quick Basic C-29
MultiScan/1200
Example 15p. BIN_HLL.BAS Program
(1)
…… 15-CLS : PRINT “The MultiScan/1200 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;M#0X”
(10)
…… 15-PRINT #1, “OUTPUT 07;W#32X”
(11)
…… 15-PRINT #1, “OUTPUT 07;C1-24,1X”
(12)
…… 15-PRINT #1, “OUTPUT 07;C25-36,14X”
(13-31) …… 15-(For sample acquisition program lines, refer to the previous MultiScan/1200 program example.)
(32)
…… 15-PRINT #1, “OUTPUT 07;F0,1X”
(33)
…… 15-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)
…… 15-PRINT “High, Low and Last readings of all 36 channels :”
(41)
…… 15-FOR i = 1 TO BYTES STEP 20
…… 15- …… 15-HIGH$ = STR$(CVI(MID$(READS, i, 2)))
(43)
…… 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)))
(50)
…… 15- …… 15-LOW$ = STR$(CVI(MID$(READS, i + 9, 2)))
(51)
…… 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)))
(58)
…… 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$
(61)
…… 15-NEXT i
(62)
…… 15-BINARY DATA%/10 = °C
(63)
…… 15-BINARY DATA%/3276.7 = V (±10 V DC)