Frequenzmessung

---

Ein Frequenzmesser zählt während einer definierten Zeitspanne (Torzeit) Impulse an einem digitalen Eingang. Wenn die Torzeit eine Sekunde beträgt, erhält man das Ergebnis in Hertz (Hz). Hier wird der Eingang CTS verwendet. Der Frequenzzähler hat eine Auflösung von 1 Hz und erreicht über die USB-Schnittstelle eine Grenzfrequenz bis über 2 kHz.

 

Der eigentliche Zähler läuft in einer Timer-Prozedur. Der Aufruf von REALTIME garantiert, dass keine Impulse überlesen werden. Jede 0-1-Impulsflanke erhöht die Frequenzvariable um Eins.

Private Sub Timer1_Timer()
  freq = 0
  alt = CTS()
  REALTIME
  TIMEINIT
  While TIMEREAD < 1000
    neu = CTS()
    If neu > alt Then freq = freq + 1
    alt = neu
  Wend
  NORMALTIME
  Text1.Text = Str$(freq) + " Hz"
End Sub

Falls keine geeignete Signalquelle zur Verfügung steht, kann man den Zähler mit der Netzfrequenz von 50 Hz testen. Ein einfacher Verstärker mit zwei Transistoren in Darlington-Schaltung liefert einen ausreichend hochohmigen Eingang, den man einfach nur mit dem Finger zu berühren braucht. Oft reichen die umgebenden Wechselfelder bereits für die Messung aus. Falls nicht, kann man die andere Hand in die Nähe eines isolierten Netzkabels halten. Der Messverstärker lässt sich auch für die folgenden Versuche nutzen.

zurück
weiter