home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / TEMP2.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-04-26  |  677 b   |  33 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       TEMP2.BAS
  4. '
  5. ' Aufgabe: 
  6. '
  7. ' - Lesen des analogen Eingangs 2
  8. ' - Tabellenzuordnung der Temperatur
  9. ' - Senden des Ergebnisses an den PC
  10. '
  11. '**************************************
  12. ' --- Definitionen --------------------
  13.  
  14. define Eingang AD[2]
  15. define Spannung Byte
  16. define Temp word
  17.  
  18. ' --- Programmoperationen -------------
  19.  
  20. #Loop
  21.   Spannung = Eingang    'Port lesen
  22.   print Spannung        'an PC senden 
  23.   looktab Tabelle, Spannung, Temp
  24.   print Temp, "x 0,1 ░C" 
  25.   pause 25              '0,5 s warten
  26. goto Loop               'Endlosschleife
  27. end
  28.  
  29. table Tabelle ".\TABLES\KTY2.TAB"
  30.  
  31.  
  32.  
  33.