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