home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / FREQCOM.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-03  |  808 b   |  43 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       FREQCOM.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Fernabfrage einer Frequenz
  8. ' - Alarm bei Grenzwertueberschreitung
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Ausgang  port[1]
  14. define Frequenz word[1]
  15. define FreqHigh byte[1]
  16. define FreqLow  byte[2]
  17. define Grenzwert 2000
  18.  
  19. ' --- Programmoperationen -------------
  20.  
  21. #Loop
  22.   put 80               'Fernabfrage
  23.   get FreqHigh
  24.   get FreqLow
  25.   if Frequenz > Grenzwert then gosub Alarm   
  26.   pause 50
  27.   put 16
  28.   put 0                'Fernalarm AUS
  29. goto Loop              'Endlosschleife
  30.  
  31. #Alarm
  32.   Ausgang = ON         'LED-Alarm
  33.   put 16
  34.   put 1                'Fernalarm 
  35.   beep 500, 20, 0      'Akustischer Alarm
  36.   return
  37.  
  38. end
  39.  
  40.  
  41.  
  42.  
  43.