Measurement-computing TempScan/1100 Bedienungsanleitung Seite 287

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 306
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 286
TempScan / MultiScan, Appendix C 879696 Program Examples in Quick Basic C-17
MultiScan/1200
Example 15j. ALARM2.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#0X”
(10) …… 15-PRINT #1, “OUTPUT 07;W#32X”
(11) …… 15-PRINT #1, “OUTPUT 07;C1-24,3,1,18,0X”
(12) …… 15-PRINT #1, “OUTPUT 07;A1-2,1X”
(13) …… 15-PRINT #1, “OUTPUT07;Y1,0,0X”
(14) …… 15-PRINT #1, “OUTPUT07;T1,1,0,0X"
(15) …… 15-WHILE INKEY$ = “”
…… 15- …… 15-PRINT #1, “OUTPUT 07;O?X”
…… 15- …… 15-PRINT #1, “ENTER 07”
…… 15- …… 15-LINE INPUT #2, O$
(19) …… 15- …… 15-IF MID$(O$, 2, 3) = “001” THEN
…… 15- …… 15- …… 15-PRINT “Channel 1 OR 2 is in an Alarm condition.”
…… 15- …… 15- …… 15-PRINT #1, “OUTPUT 07;U11X”
…… 15- …… 15- …… 15-PRINT #1, “ENTER 07”
…… 15- …… 15- …… 15-LINE INPUT #2, A$
…… 15- …… 15- …… 15-PRINT A$
(25) …… 15- …… 15- …… 15-IF MID$(A$, 5, 1) = “1” THEN
…… 15- …… 15- …… 15- …… 15-PRINT “Channel 1 is now in an Alarm condition.”:
…… 15- …… 15- …… 15-ELSE
…… 15- …… 15- …… 15- …… 15-PRINT “Channel 1 is not in an Alarm condition.”
…… 15- …… 15- …… 15-END IF
(30) …… 15- …… 15- …… 15-IF MID$(A$, 11, 1) = “1” THEN
…… 15- …… 15- …… 15- …… 15-PRINT “Channel 2 is now in an Alarm condition.”:
…… 15- …… 15- …… 15-ELSE
…… 15- …… 15- …… 15- …… 15-PRINT “Channel 2 is not in an Alarm condition.”
…… 15- …… 15- …… 15-END IF
…… 15- …… 15-END IF
(36) …… 15-WEND
Seitenansicht 286
1 2 ... 282 283 284 285 286 287 288 289 290 291 292 ... 305 306

Kommentare zu diesen Handbüchern

Keine Kommentare