Multiscan/1200 – Measurement Computing TempScan/1100 User Manual
Page 279
TempScan / MultiScan, Appendix C
879696
Program Examples in Quick Basic C-9
MultiScan/1200
Example 15f. SLOW_ACQ.BAS Program
(1)
…… 15-CLS : PRINT “The MultiScan/1200 is resetting...”
…… 15-PRINT #1, “OUTPUT 07;*RX”
(3)
…… 15-SLEEP 4
(4)
…… 15-WHILE (S% AND 4) = 0
…… 15-PRINT #1, “SPOLL 07"
…… 15-INPUT #2, S%
(7)
…… 15-WEND
(8)
…… 15-PRINT #1, “OUTPUT 07;M#0X”
(9)
…… 15-PRINT #1, “OUTPUT 07;W#32X”
(10)
…… 15-PRINT #1, “OUTPUT 07;C1-24,1X”
(11)
…… 15-PRINT #1, “OUTPUT 07;C25-48,2X”
(12)
…… 15-PRINT #1, “OUTPUT 07;Y30,1,200X”
(13)
…… 15-PRINT #1, “OUTPUT 07;I00:00:03.0,00:00:02.0X”
(14)
…… 15-PRINT #1, “OUTPUT 07;T1,1,0,0X"
(15)
…… 15-PRINT “The MultiScan/1200 is collecting Pre-Trigger data and is ready
for a Trigger...”
…… 15-PRINT “Hit a key to trigger the start of acquisition...”
…… 15-WHILE INKEY$ = “”: WEND
(18)
…… 15-PRINT #1,“OUTPUT 07;@X”
(19)
…… 15-PRINT “The MultiScan/1200 is collecting and uploading Post-Trigger
data as it becomes available...”
…… 15-PRINT “Hit a key to trigger the stop of acquisition...”
…… 15-i = 0
(22)
…… 15-WHILE INKEY$ = “”
…… 15-i = i + 1
…… 15-S% = 0
(25)
…… 15- …… 15-WHILE ((S% AND 8) <> 8)
…… 15- …… 15-PRINT #1, “SPOLL 07"
…… 15- …… 15-INPUT #2, S%
(28)
…… 15- …… 15-WEND
…… 15- …… 15-PRINT #1 “OUTPUT 07; R1X”
…… 15- …… 15-PRINT #1 “ENTER 07”
…… 15- …… 15-INPUT #2, READINGS$
…… 15- …… 15-LOCATE 7, 1: PRINT “The scan”; i; “was:”; READINGS$
(33)
…… 15-WEND
(34)
…… 15-PRINT #1, “OUTPUT 07;@X”
(35)
…… 15-i = 0
…… 15-U% = 0
…… 15-WHILE INKEY$ = “”
…… 15-i = i + 1
…… 15-S% = 0
(40)
…… 15- …… 15-WHILE ((S% AND 8) <> 8)
…… 15- …… 15-PRINT #1, “SPOLL 07"
…… 15- …… 15-INPUT #2, S%
(43)
…… 15- …… 15-WEND
…… 15- …… 15-PRINT #1 “OUTPUT 07; R1X”
…… 15- …… 15-PRINT #1 “ENTER 07”
…… 15- …… 15-INPUT #2, READINGS$
…… 15- …… 15-LOCATE 16, 1: PRINT “The scan”; i; “was:”; READINGS$
…… 15- …… 15-PRINT #1, “OUTPUT 07; UOX:
…… 15- …… 15-PRINT #1, :ENTER07”
…… 15- …… 15-OUTPUT #2, U%
…… 15- …… 15-IF U% = 1 THEN END
(52)
…… 15-WEND