|
Registriert seit: 13. Jul 2004
5 Beiträge
|
Re: WaveIn Daten auswerten
14. Jul 2004, 11:18
das geht so:
var
SP: ^Smallint;
N, v: Integer;
xMin, xMax: Integer;
vol: Integer;
---
//Volume ermitteln:
N := Size Div 2;
SP := Data;
xMin := SP^;
xMax := xMin;
For i := 0 To N - 1 Do Begin
v := SP^;
inc(SP);
If (xMin > v) Then xMin := v;
If (xMax < v) Then xMax := v;
End;
vol := Round(100 * xMax / 36768.0);
//Pegelanzeige:
ProgressBar3.position := vol;
vol=1-100 (leise-laut)
data=pointer zu lpData
viel spaß
ps: normalisieren habe ich bereits gepostet
|