Visualisierung des "Output-Streams"

[Wishmaster]

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;