Using the ieee 488 srq with alarms, Tempscan/1100, Using the ieee 488 srq with alarms …… c-19 – Measurement Computing TempScan/1100 User Manual
Page 289
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