Kurzzeitmessung bis 100 ms

---

Hier werden Impulsdauern zwischen wenigen Mikrosekunden und 100 Millisekunden am Eingang CTS gemessen. Die DLL-Funktion TIMEREAD erlaubt eine zeitliche Auflösung von einer Mikrosekunde, sodass ernsthafte Anwendungen im Elektroniklabor möglich sind.

 

Die Messung läuft wieder in einer Timer-Prozedur mit der Einstellung REALTIME. Zwei vorgelagerte Schleifen sorgen dafür, dass die eigentliche Messung mit einer Low/High-Flanke beginnt. Dann wird die Zeit gemessen ,während der CTS sich im High-Zustand befindet. Jede der drei Schleifen wird vorzeitig beendet, wenn ein Zeitlimit von 100 ms überschritten wird.

Private Sub Timer1_Timer()
  freq = 0
  alt = CTS()
  REALTIME
  TIMEINIT
  While (TIMEREAD < 100) And (CTS() = 1)
  Wend
  TIMEINIT
  While (TIMEREAD < 100) And (CTS() = 0)
  Wend
  TIMEINIT
  While (TIMEREAD < 100) And (CTS() = 1)
  Wend
  Puls = TIMEREAD
  NORMALTIME
  If Puls > 100 Then Puls = 0
  Puls = Int(Puls * 1000) / 1000
  Text1.Text = Str$(Puls) + " ms"
End Sub

zurück
weiter