Measurement-computing TempScan/1100 Manual de usuario Pagina 291

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 306
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 290
TempScan / MultiScan, Appendix C 879696 Program Examples in Quick Basic C-21
MultiScan/1200
Example 15l. ALAR2SRQ.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-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;M#0X”
(13) …… 15-PRINT #1, “OUTPUT 07;W#32X”
(14) …… 15-PRINT #1, “OUTPUT 07;C1-24,3X”
(15) …… 15-PRINT #1, “OUTPUT 07;C1-2,3,1,25,0X”
(16) …… 15-PRINT #1, “OUTPUT 07;A1,1X”
(17) …… 15-PRINT #1, “OUTPUT 07;A2,2X”
(18) …… 15-PRINT #1, “OUTPUT07;Y1,0,0X”
(19) …… 15-PRINT #1, “OUTPUT07;T1,1,0,0X"
(20) …… 15-PRINT “The program is continuously detecting Alarms...”
…… 15-PRINT “Hit a key to Quit..”
…… 15-WHILE INKEY$ = “”: WEND
…… 15-END
(24) …… 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%
(29) …… 15- …… 15-PRINT #1, “OUTPUT 07;O?X”
…… 15- …… 15-PRINT #1, “ENTER 07"
…… 15- …… 15-LINE INPUT #2, A$
(32) …… 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”
(37) …… 15-RETURN
Vista de pagina 290
1 2 ... 286 287 288 289 290 291 292 293 294 295 296 ... 305 306

Comentarios a estos manuales

Sin comentarios