home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / C-Control Setup / _SETUP.1 / 007.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-02-21  |  2.5 KB  |  90 lines
  1. '********************************************************************
  2. '
  3. ' C-Control/BASIC       007.BAS
  4. '
  5. ' Systemvoraussetzungen:
  6. '
  7. ' - Low-Current-LEDs an Port 1 bis Port 7, Vorwiderstand ca. 1k,
  8. '   alle Kathoden nach GND 
  9. ' - Taster an Port 9 und Port 11 nach GND
  10. '
  11. ' Schwerpunkte:
  12. '
  13. ' - Digitalports als Eingaenge
  14. ' - binaere Operation
  15. '
  16. '********************************************************************
  17.  
  18. ' --- Definitionen --------------------------------------------------
  19.  
  20. ' LED
  21. define led1 port[1]
  22. define led2 port[2]
  23. define led3 port[3]
  24. define led4 port[4]
  25. define led5 port[5]
  26. define led6 port[6]
  27. define led7 port[7]
  28.  
  29. ' Taster
  30. define key1 port[9]
  31. define key2 port[11]
  32.  
  33. ' --- Programmoperationen -----------------------
  34.  
  35. ' dieses Programm arbeitet in einer Endlosschleife,
  36. ' zum Beenden druecken Sie bitte den roten Reset-Taster
  37.  
  38. ' Programmbeginn
  39. #loop
  40.  
  41.   ' die erste LED gibt unmittelbar den vom ersten Taster
  42.   ' eingelesenen Wert aus,
  43.   ' Sie erkennen, bei nicht gedruecktem Taster wird
  44.   ' wegen der 10k-Pull-Up-Widerstaende eine 1 gelesen,
  45.   ' bei gedruecktem Taster eine 0
  46.  
  47.   led1 = key1
  48.  
  49.   ' die zweite LED invertiert den Wert von key1 und
  50.   ' leuchtet somit, wenn der Taster gedrueckt ist
  51.  
  52.   led2 = not key1
  53.  
  54.   ' die dritte LED demonstriert eine UND-Verknuepfung der
  55.   ' beiden Taster, die Taster-Werte werden zuvor invertiert,
  56.   ' die LED leuchtet, wenn beide Taster gedrueckt sind
  57.  
  58.   led3 = not key1 and not key2
  59.  
  60.   ' die vierte LED demonstriert eine NICHT-UND-Verknuepfung der
  61.   ' beiden Taster, die Taster-Werte werden zuvor invertiert,
  62.   ' die LED leuchtet nicht, wenn beide Taster gedrueckt sind
  63.  
  64.   led4 = not key1 nand not key2
  65.  
  66.   ' die fuenfte LED demonstriert eine ODER-Verknuepfung der
  67.   ' beiden Taster, die Taster-Werte werden zuvor invertiert,
  68.   ' die LED leuchtet, wenn mindestens ein Taster gedrueckt ist
  69.  
  70.   led5 = not key1 or not key2
  71.  
  72.   ' die sechste LED demonstriert eine NICHT-ODER-Verknuepfung der
  73.   ' beiden Taster, die Taster-Werte werden zuvor invertiert,
  74.   ' die LED leuchtet nicht, wenn mindestens ein Taster gedrueckt ist
  75.  
  76.   led6 = not key1 nor not key2
  77.  
  78.   ' die siebte LED demonstriert eine EXCLUSIV-ODER-Verknuepfung der
  79.   ' beiden Taster, die Taster-Werte werden zuvor invertiert,
  80.   ' die LED leuchtet, wenn ein Taster gedrueckt ist 
  81.  
  82.   led7 = not key1 xor not key2
  83.  
  84. ' wieder von vorn beginnen
  85. goto loop
  86.  
  87. ' der END-Befehl wird wegen der Endlosschleife
  88. ' nicht benoetigt
  89.  
  90.