Langzeit-Datenlogger für dB(A)-online


Für Lärmmessungen wurde nach einer Möglichkeit gesucht, beliebige Messzeiträume zu verwenden. Ein kleines VB-Programm bringt die Lösung. Es erfasst laufend den aktuellen Schallpegel, berechnet den äquivalenten Schallpegel Leq in einem Zeitraum von einer Minute und speichert das Ergebnis in einer Datei ab.

Download: VB-Quelltext und EXE


Static Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function

Static Function Exp10(X)
Exp10 = Exp(X * Log(10#))
End Function

Private Sub Timer1_Timer()
d = READBYTE
L = (d - 50) / 2
If d > 50 Then
L = L / 10
p = Exp10(L)
Integral = Integral + p
n = n + 1
L = Log10(Integral / n)
L = L * 10
L = Int(L * 10) / 10
Text2.Text = " " + Str$(L) + " dB(A)"
If Second(Time) = 0 Then
If n > 50 Then
AktPfad = App.Path
Dateiname = AktPfad + "\DBAlogger.txt"
Open Dateiname For Append As #1
Print #1, L,
Print #1, Time,
Print #1, Date
Close #1
Integral = 0
n = 0
End If
End If
End If
End Sub


Das Programm empfängt alle 600 ms ein Messergebnis vom Interface in Form eines Einzelbytes. Daraus wird der aktuelle Pegel L in dB(A) berechnet. Zur Berechnung des äquivalenten Pegels Leq in einem Zeitraum wird zunächst durch Entlogarithmieren die effektive Leitungsverhältnis berechnet. 60 dB steht z.B. für den Faktor 1000000 über der Hörschelle.  Die relativen Schalleistungen P werden integriert. Der aktuelle Leq-Pegel entsteht durch Teilen durch die Anzahl n der Messungen und Logartihmieren. Eine mittlerer Leistungsfaktor von 1000000 wird wieder zu log10(1000000 )= 6 Bel = 60 Dezibel. 

Mit jeder neuen Minute werden die Leq-Werte der vergangenen Minute in die Datei DBAlogger.txt gespeichert. In die gleiche Zeile kommt die aktuelle Uhrzeit und das Datum. Daten werden grundsätzlich hinten angehängt. Wenn man eine neue Messung beginnen will, legt man einfach eine leere Datei DBAlogger.txt in das Verzeichnis. Man kann aber auch eine passende Überschrift hineinschreiben.


Logger-Daten Messung 1:
49,5 12:11:00 17.10.2008
46,3 12:12:00 17.10.2008
45,8 12:13:00 17.10.2008
46,6 12:14:00 17.10.2008
48,1 12:15:00 17.10.2008
49,4 12:16:00 17.10.2008

Wenn Messungen über mehrere Tage laufen sollen, kommen bei einem Messintervall von einer Minute sehr große Datenmengen zusammen, die nur schwer auszuwerten sind. Deshalb wurde eine zweite Version des Loggers geschrieben, die im Stundentakt speichert. 

Download: VB-Quelltext und EXE


Siehe auch: Das Lärm-Interface dB(A)-online


Zurück zur Startseite der MB-News
Zurück zur Startseite AK-Modul-Bus