Multiscan/1200 – Measurement Computing TempScan/1100 User Manual
Page 303
TempScan / MultiScan, Appendix C
879696
Program Examples in Quick Basic C-33
MultiScan/1200
Example 15r. BLK_ACQ.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-12,1X”
(12)
…… 15-PRINT #1, “OUTPUT 07;C25-36,2X”
(13)
…… 15-PRINT #1, “OUTPUT 07;Y1000,20,10X”
(14)
…… 15-PRINT #1, “OUTPUT 07;I00:00:00.3,00:00:00.0X”
(15)
…… 15-PRINT #1, “OUTPUT 07;T1,8,1,0X"
(16)
…… 15-PRINT #1, “OUTPUT 07;Q0,0,8,8,0X”
(17)
…… 15-FOR i = 1 TO 5
…… 15- …… 15-PRINT “The MultiScan/1200 is collecting Pre-Trigger data for
Trigger Block ”; i; “ and has not been triggered...”
…… 15- …… 15-PRINT “Hit a key to trigger the start of acquisition...”
…… 15- …… 15-WHILE INKEY$ = “”: WEND
(21)
…… 15- …… 15-PRINT #1, “OUTPUT 07;@X”
(22) …… 15-
…… 15-
PRINT “Waiting for Trigger Block ”; i; “ to complete...”
…… 15-B% = 0
(24)
…… 15- …… 15-WHILE B% <> 1
…… 15- …… 15- …… 15-PRINT #1, “OUTPUT 07; U6X”
…… 15- …… 15- …… 15-PRINT #1, “ENTER 07”
…… 15- …… 15- …… 15-LINE INPUT #2, U$
…… 15- …… 15- …… 15-UA$ = MID$(U$, 86, 2)
…… 15- …… 15- …… 15-B% = VAL(UA$)
…… 15- …… 15-WEND
(31)
…… 15- …… 15-PRINT “Trigger Block ”; i; “ has completed and the
MultiScan/1200 has re-armed itself...”
(32)
…… 15- …… 15-UAT$ = MID$(U$, 9, 7)
…… 15- …… 15-PRINT UAT$
…… 15- …… 15-PRINT “The MultiScan/1200 has collected a total of ”; VAL(UAT$); “
scans.”
(35)
…… 15- …… 15-UA$ = MID$(U$, 18, 7)
…… 15- …… 15-PRINT UA$
…… 15- …… 15-PRINT “Pre-Trigger scans:”; VAL(UA$)
…… 15- …… 15-UA$ = MID$(U$, 47, 8)
…… 15- …… 15-PRINT “Post-Trigger scans:”; VAL(UA$)
…… 15- …… 15-UAS$ = MID$(U$, 77, 8)
…… 15- …… 15-PRINT “Post-Stop scans:”; VAL(UAS$) - VAL(UA$)
(42)
…… 15- …… 15-PRINT “Uploading Trigger Block”; i; “ ...”
…… 15- …… 15-PRINT #1, “OUTPUT 07;R2X”
…… 15- …… 15-FOR c = 1 TO VAL(UAT$)
…… 15- …… 15- …… 15-PRINT #1, “ENTER 07"
…… 15- …… 15- …… 15-LINE INPUT #2, SCAN$
…… 15- …… 15-NEXT c
…… 15- …… 15-PRINT “Trigger Block ”; i; “ is read.”
(49)
…… 15-NEXT i
(50)
…… 15-PRINT #1, “OUTPUT 07;T0,0,0,0X”