home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / Frequenz.bas < prev    next >
Encoding:
BASIC Source File  |  1997-11-20  |  761 b   |  33 lines
  1. '**************************************
  2. ' Aufgabe:
  3. '
  4. ' - Drehzahlmessung am DCF-Eingang
  5. ' - Senden ⁿber serielle Schnittstelle an PC
  6. ' - 2-Blatt-Propeller Faktor = 300
  7. ' - 3-Blatt-Propeller Faktor = 200
  8. ' - 4-Blatt-Propeller Faktor = 150
  9. '
  10. '**************************************
  11.  
  12. define Blatt_2 300  '2-Blatt-Propeller
  13. define Blatt_3 200  '3-Blatt-Propeller
  14. define Blatt_4 150  '4-Blatt-Propeller
  15.  
  16. define Mode word
  17.  
  18. ' --- Programmoperationen -------------
  19.  
  20. mode = Blatt_3
  21. #Loop
  22.   if mode = Blatt_2 then print mode*freq; " 1/min"  'an PC senden
  23.   if mode = Blatt_3 then print mode*freq; " 1/min" 
  24.   if mode = Blatt_4 then print mode*freq; " 1/min" 
  25.  
  26.   pause 50             '1 s warten
  27. goto Loop              'Endlosschleife
  28.  
  29.  
  30.  
  31.  
  32.  
  33.