The code i used for Vis.........
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim bit As Bitmap = New Bitmap(PicVis.Width, PicVis.Height)
Dim graph As Graphics = Graphics.FromImage(bit)
Dim RedPen As New Pen(Color.PaleVioletRed, 2)
Dim BluePen As New Pen(Color.Blue, 2)
Dim d(1023) As Single
Dim playing
Dim X As Integer
graph.SmoothingMode = SmoothingMode.AntiAlias
playing = Bass.BASS_ChannelIsActive(Strm)
If playing = 0 Then Exit Sub
Bass.BASS_ChannelGetData(Strm, d(0), Bass.BASS_DATA_FFT1024)
For X = 0 To PicVis.Width Step 2
Y = Sqrt(d(X + 1)) * 3 * PicVis.Height - 4
If Y > PicVis.Height Then Y = PicVis.Height
graph.DrawEllipse(RedPen, X, PicVis.Height - Y, X, PicVis.Height)
graph.DrawEllipse(BluePen, X, PicVis.Height - Y, X + 5, PicVis.Height)
'graph.DrawEllipse(RedPen, X, PicVis.Height - d(X) * 1000, X, PicVis.Height)
'graph.DrawEllipse(BluePen, X, PicVis.Height - d(X) * 1000, X + 5, PicVis.Height)
Next
'draw the visual onto the picturebox
PicVis.Image = bit
End Sub
As u can see it uses PicVis and also timers 1 - 10.....Also strm Bass.BASS_ChannelGetData(Strm, d(0), ........
I have tried using strm, and also created new strm1 and used that.
The Visual runs but as i stated it is not in sync with the music.
R U using vb.net 2003 edition?
Is any one?
?
I spend a great amount of time converting the code and as of now i have the player and some effects working......Cheers!
Strat59
srvjayb@bsc.net
