Topic: left/right meter

[Titeuf]

How to get the left/right meter in VB6 ?

[ipuiuna]

I want to do this in delphi....

[bigjim]

The answer is in the bass help file- to get the level of the left and right channel of a stream use:
BASS_ChannelGetLevel

in delphi something like this:

Code: [Select]


procedure timer1.........
var
level : DWORD;
begin
 level := BASS_ChannelGetLevel(stream_handle);
 label1.caption := IntToStr(LOWORD(level));
 label2.caption := IntToStr(HIWORD(level));
end;


[bdinnocenzo]

Are you looking for a meter control, or how to get the VU levels from BASS?

If you need the control, I created a simple control that I could send you.  It has a few properties like LeftLevel, RightLevel and MonoLevel.  It also has one method 'Off' that dims all the "LEDs".  It can be used horizontally or vertically and it can be resized to some degree.

-Bill

[Titeuf]

Yes I'm OK for your control if you can send me !

(excuse my english I'm French)

[ipuiuna]

please send to me too

thanks

[lagarto]

----In Timer-----
Dim VU As Long
Dim L , R As Single

  VU = Bass_ChannelGetLevel(Handle)
  L = Int(GetLoWord(VU))
  R = Int(GetHiWord(VU))
  Label1.Caption = L
  Label2.Caption = R

[bdinnocenzo]

----In Timer-----
Dim VU As Long
Dim L , R As Single

  VU = Bass_ChannelGetLevel(Handle)
  L = Int(GetLoWord(VU))
  R = Int(GetHiWord(VU))
  Label1.Caption = L
  Label2.Caption = R

Please note that although the logic above is correct, the declaration statement "Dim L, R As Single" actually declares L as a variant and R as a single.  The proper way is Dim L as Single, R as Single.  This is a common mistake and one that usually does not cause problems, but can.

As for the requests for the ActiveX control for the LED bars, I will post them on my web site at http://www.laidbackradio.net/beta/VUBars.zip.  It's simple to use.  The input to the channels is 0 to 10 for off to all on.

-Bill