IOtech MultiScan 1200, User Manual

Page: 278 / 364

268 Chapter 15: Program Examples TempScan / MultiScan User's Manual
Using Auto Re-arm to Capture Multiple Trigger Blocks
TempScan/1100
Example 15q. BLK_ACQ.BAS Program
(1)
CLS : PRINT “The TempScan/1100 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;C1-16,1X”
(10)
PRINT #1, “OUTPUT 07;C33-48,2X”
(11)
PRINT #1, “OUTPUT 07;Y1000,20,10X”
(12)
PRINT #1, “OUTPUT 07;I00:00:00.3,00:00:00.0X”
(13)
PRINT #1, “OUTPUT 07;T1,8,1,0X"
(14)
PRINT #1, “OUTPUT 07;Q0,0,8,8,0X”
(15)
FOR i = 1 TO 5
PRINT “The TempScan/1100 is collecting Pre-Trigger data for
Trigger Block ”; i; “ and has not been triggered...”
PRINT “Hit a key to trigger the start of acquisition...”
WHILE INKEY$ = “”: WEND
(19)
PRINT #1, “OUTPUT 07;@X”
(20)
PRINT “Waiting for Trigger Block ”; i; “ to complete...”
B% = 0
(22)
WHILE B% <> 1
PRINT #1, “OUTPUT 07; U6X”
PRINT #1, “ENTER 07”
LINE INPUT #2, U$
UA$ = MID$(U$, 86, 2)
B% = VAL(UA$)
WEND
(29)
PRINT “Trigger Block ”; i; “ has completed and the
TempScan/1100 has re-armed itself...”
(30)
UAT$ = MID$(U$, 9, 7)
PRINT UAT$
PRINT “The TempScan/1100 has collected a total of ”; VAL(UAT$);
“ scans.”
(33)
UA$ = MID$(U$, 18, 7)
PRINT UA$
PRINT “Pre-Trigger scans:”; VAL(UA$)
UA$ = MID$(U$, 47, 8)
PRINT “Post-Trigger scans:”; VAL(UA$)
UAS$ = MID$(U$, 77, 8)
PRINT “Post-Stop scans:”; VAL(UAS$) - VAL(UA$)
(40)
PRINT “Uploading Trigger Block”; i; “ ...”
PRINT #1, “OUTPUT 07;R2X”
FOR c = 1 TO VAL(UAT$)
PRINT #1, “ENTER 07"
LINE INPUT #2, SCAN$
NEXT c
PRINT “Trigger Block ”; i; “ is read.”
(47)
NEXT i
(48)
PRINT #1, “OUTPUT 07;T0,0,0,0X”