home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / CMESS.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-24  |  831 b   |  42 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       CMESS.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Messung der KapazitΣt 20uF..5000uF
  8. ' - ⁿber die Entladezeit
  9. ' - R = 1k
  10. '
  11. '**************************************
  12. ' --- Definitionen --------------------
  13.  
  14. define Ausgang port[9]
  15. define Eingang AD[2]
  16. define Spannung byte
  17. define Start word
  18. define Zeit word
  19. define Kapazitaet word
  20.  
  21. ' --- Programmoperationen -------------
  22.  
  23. #Loop
  24.   Ausgang = 1          'Einschalten
  25.   wait Eingang > 200   'Aufladen
  26.   Ausgang = 0          'Entladen
  27.   Spannung = Eingang
  28.   Start = Timer        'Zeitmessung Start
  29.   Spannung = Spannung / 3
  30.   wait Eingang < Spannung
  31.   Zeit = Timer - Start 'Zeitmessung Ende
  32.   Kapazitaet = Zeit * 15
  33.   print Kapazitaet, "uF"
  34.   Ausgang = 1
  35. goto Loop              'Endlosschleife
  36. end
  37.  
  38.  
  39.  
  40.  
  41.  
  42.