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