IOtech MultiScan 1200, User Manual

Page: 282 / 364

272 Chapter 15: Program Examples TempScan / MultiScan User's Manual
Acquiring Burst Mode Data (MultiScan/1200 Only)
Example 15s. BURST.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#1X”
(10)
PRINT #1, “OUTPUT 07;F#20000.0X”
(11)
PRINT #1, “OUTPUT 07;C1,14X”
(12)
SLEEP 1
(13)
PRINT #1, “OUTPUT 07;Y0,8,0X”
(14)
PRINT #1, “OUTPUT 07;T1,8,0,0X"
(15)
PRINT “Hit a key to trigger the burst-mode acquisition...”
WHILE INKEY$ = “”: WEND
PRINT #1, “OUTPUT 07;@X”
(18)
WHILE (S% AND 2) <> 2
PRINT #1,“SPOLL 07”
INPUT #2, S%
WEND
PRINT “The Trigger has been detected...”
(23)
PRINT “Waiting for the acquisition to complete...”
(24)
WHILE (E% AND 1) <> 1
PRINT #1,“OUTPUT 07;U0X”
PRINT #1,“ENTER 07”
INPUT #2, E%
WEND
(29)
PRINT “The acquisition is now complete...”
(30)
PRINT #1, “OUTPUT 07;U6X”
PRINT #1, “ENTER 07"
LINE INPUT #2, U$
PRINT U$
UA$ = MID$(U$, 8, 6)
UA% = VAL(UA$)
PRINT UA%
(37)
PRINT #1, “The MultiScan/1200 collected”; UA%; “scans of data.”
(38)
FOR i = 1 TO UA%
PRINT #1, “OUTPUT 07;R1X”
PRINT #1, “ENTER 14"
INPUT #2, SCAN$
PRINT “Scan ”; i; “ is :”
PRINT SCAN$
(44)
NEXT I