
TempScan / MultiScan, Appendix C 879696 Program Examples in Quick Basic C-19
Using the IEEE 488 SRQ with Alarms
TempScan/1100
Example 15k. ALAR2SRQ.BAS Program
(1) …… 15-CLS : PRINT “The TempScan/1100 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-ON PEN GOSUB AlarmHandler
…… 15-PEN ON
(10) …… 15-PRINT #1, “ARM SRQ”
(11) …… 15-PRINT #1, “OUTPUT 07;M1X”
(12) …… 15-PRINT #1, “OUTPUT 07;C1-32,3X”
(13) …… 15-PRINT #1, “OUTPUT 07;C1-2,3,1,25,0X”
(14) …… 15-PRINT #1, “OUTPUT 07;A1,1X”
(15) …… 15-PRINT #1, “OUTPUT 07;A2,2X”
(16) …… 15-PRINT #1, “OUTPUT07;Y1,0,0X”
(17) …… 15-PRINT #1, “OUTPUT07;T1,1,0,0X"
(18) …… 15-PRINT “The program is continuously detecting Alarms...”
…… 15-PRINT “Hit a key to Quit..”
…… 15-WHILE INKEY$ = “”: WEND
…… 15-END
(22) …… 15-AlarmHandler:
…… 15- …… 15-LOCATE 5, 1
…… 15- …… 15-PRINT “An Alarm condition has been detected.”
…… 15- …… 15-PRINT #1, “SPOLL 07"
…… 15- …… 15-INPUT #2, S%
(27) …… 15- …… 15-PRINT #1, “OUTPUT 07;O?X”
…… 15- …… 15-PRINT #1, “ENTER 07"
…… 15- …… 15-LINE INPUT #2, A$
(30) …… 15- …… 15-PRINT A$
…… 15- …… 15-A% = VAL(MID$(A$, 2, 3))
…… 15- …… 15-IF A% = 1 THEN PRINT “Alarm on Channel 1 only”
…… 15- …… 15-IF A% = 2 THEN PRINT “Alarm on Channel 2 only”
…… 15- …… 15-IF A% = 3 THEN PRINT “Alarm on Channels 1 and 2”
(35) …… 15-RETURN
Comentarios a estos manuales