home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / LOGGER.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-17  |  881 b   |  55 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       LOGGER.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Langzeit-Datenerfassung
  8. ' - Ein analoger Eingang
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define AD1 AD[1]
  14. define Kommando byte
  15. define Wert byte
  16. define n Word
  17.  
  18. ' --- Programmoperationen -------------
  19.  
  20. #Anfang
  21.   open# for write
  22. #Loop
  23.   gosub Messen
  24.   gosub Warten
  25. goto Loop              'Endlosschleife
  26. end
  27.  
  28. #Messen
  29.   if (filefree > 10) then print# AD1
  30. return
  31.  
  32. #Warten
  33.   for n= 1 to 10       '1 s
  34.     pause 5            '5 x 20 ms
  35.     if rxd then gosub Unterbrechung
  36.   next
  37. return
  38.  
  39. #Unterbrechung
  40.   get Kommando
  41.   if Kommando = 27 then gosub Auslesen
  42. return
  43.  
  44. #Auslesen
  45.   close#
  46.   open# for read
  47. #Next
  48.   input# Wert
  49.   put Wert
  50.   if not EOF then goto Next
  51.   close#
  52.   open# for append
  53. return
  54.  
  55.