Hi
Zitat:
also eines einzelnen Balken in der Visualisierung ermitteln
ich wes ja nicht was du als (Visualisierung) nimmst? Aber normal müsste das mit ProgressBar1.Position gehen, oder du nimmst die werte direkt von
BASS_ChannelGetLevel
wen es nicht das ist was du meintest dann erkläre einwenig genauer was du machen willst Bzw. was das bewirken soll.
Oder willst du die Position nach
dB umrechnen dann müsste dir diese Funktion weiterhelfen.
Delphi-Quellcode:
function Vol2db(vol : integer) :
string;
var
ex,ex2 : extended;
begin
DecimalSeparator := '
.';
if vol >0
then
begin
ex := RoundTo((20 * (log10(vol/100)) ),-1);
// Ersetze die 100 durch Max wert
ex2 := ex - Ceil(ex);
if (ex2 = 0)
then
result := floattostr(ex) + '
.0 dB'
else
result := floattostr(ex) + '
dB'
end
else
result := '
-oo dB';
end;