IOtech MultiScan 1200, Руководство пользователя

Страница: 272 / 364

262 Chapter 15: Program Examples TempScan / MultiScan User's Manual
MultiScan/1200
Example 15n. BIN_ACQ.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-12,3X”
(12)
PRINT #1, “OUTPUT 07;C25-36,14X”
(13)
PRINT #1, “OUTPUT 07;Y400,100,200X”
(14)
PRINT #1, “OUTPUT 07;I00:00:00.0,00:00:00.0X”
(15)
PRINT #1, “OUTPUT 07;T1,8,0,0X"
(16)
PRINT “The MultiScan/1200 is collecting Pre-Trigger data and has not
been triggered...”
PRINT “Hit a key to trigger the start of acquisition...”
WHILE INKEY$ = “”: WEND
PRINT #1, “OUTPUT 07;@X”
(20)
WHILE (S% AND 2) <> 2
PRINT #1,“SPOLL 07”
INPUT #2, S%
WEND
PRINT “The Trigger has been detected...”
(25)
PRINT “Waiting for the acquisition to complete, including Post-Stop
Scans...”
(26)
WHILE (E% AND 1) <> 1
PRINT #1,“OUTPUT 07;U0X”
PRINT #1,“ENTER 07”
INPUT #2, E%
WEND
(31)
PRINT “The acquisition is now complete...”
(32)
PRINT #1, “OUTPUT 07;F0,1X”
(33)
PRINT #1, “OUTPUT 07;U6X”
PRINT #1, “ENTER 07"
LINE INPUT #2, U$
PRINT U$
UA$ = MID$(U$, 9, 7)
UA% = VAL(UA$)
PRINT UA%
(40)
PRINT #1, “The MultiScan/1200 collected”; UA%; “scans of data.”
(41)
CHANNELS = 24
DIM CBUFFER%(UA% * CHANNELS)
SE% = VARSEG(BUFFER%(0))
OF% = VARPTR(BUFFER%(0))
B& = UA% * CHANNELS * 2
PRINT “Total number of bytes available : ”; B&
PRINT #1, “OUTPUT 07;R2X”
PRINT “Uploading data..”
WHILE INKEY$ = “”: WEND
(50)
PRINT #1, “ENTER 07 #”; B&; “BUFFER”; SE%; “ : ”; OF%; “DMA”
(51)
BINARY DATA%/10 = °C
(52)
BINARY DATA%/3276.7 = V (
±±±±
10 V DC)