Private Const HISTORY               As Long = 4
Private m_lngHistory(HISTORY - 1)   As Long

Private Sub m_clsRecorder_GotData(intBuffer() As Integer, lngLen As Long)

Private Sub m_clsRecorder_GotData(intBuffer() As Integer, lngLen As Long)
    Dim i                           As Long
    Dim lngMax                      As Long
 
    ' Amplitude eines Samples schwankt zwischen -32768 und 32767
    ' Maximalen Ausschlag in intBuffer ermitteln
    For i = 0 To lngLen \ 2 - 1
        If Abs(CLng(intBuffer(i))) > lngMax Then
            lngMax = Abs(CLng(intBuffer(i)))
        End If
    Next
 
    ' Gefundenen Wert in Ausschlagsverlauf aufnehmen
    For i = 1 To HISTORY - 1
        m_lngHistory(i - 1) = m_lngHistory(i)
    Next
    m_lngHistory(HISTORY - 1) = lngMax
 
    ShowAmplitude
End Sub
 
Private Sub ShowAmplitude()
    Dim i   As Long
    Dim sum As Long
 
    ' die letzten paar gemessenen Werte zusammenzählen,
    ' um deren Mittelwert zu berechnen
    For i = 0 To HISTORY - 1
        sum = sum + m_lngHistory(i)
    Next
    sum = sum \ HISTORY
 
    If sum = 0 Then
        ProgressBar1.Value = 0
    Else
        ProgressBar1.Value = sum * 100 \ 32768
    End If
End Sub