Kurzzeitmessung bis 100 ms


Elektronik-Labor  Notizen  Projekte  Labortagebuch  Elexs-USB





Pulszeit.exe starten

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
zur Startseite