Cómo lograr el efecto de onda de mp3 en vb
http://afei.name/upload/dmc.rar
El código fuente es el siguiente:
Opción explícita
Atenuar o_AD como IBasicAudio
Atenuar o _VW como IVideoWindow
Atenuar o_FM como FilgraphManager
Dim o_Pos como IMediaPosition
Dimo_Event como IMediaEvent
Dim o_Filter como IFilterInfo
Dim Url como cadena
Private Sub DMC1_ErrorOccurred(ByVal donde como Cadena, información de ByVal como cadena)
Debug.Print donde & amp "," & info
End Sub
Sub privado DMC1_URLStreamStoped(ByVal en pausa como booleano )
Debug.Print "URL-" & pausado
End Sub
Sub privado Form_Load()
DMC1.DeviceToUse = 1
DMC1.InitBASS Me.hWnd, 44100, Verdadero, Falso
DMC1.InitBASS Me.hWnd, 44100, Verdadero, Falso
DMC1.InitBASS Me. hWnd, 44100BufferLenInSeconds = 1 p>
DMC1.StreamPan = 0
DMC1.OpenURLStream "http://afei.name/media/california.mp3" 'Reproducir canciones de Internet
DMC1.OpenURLStream " http://afei.name/media/california.mp3" 'Reproducir canciones de Internet
DMC1.OpenURLStream "http://afei.name/media/california.mp3PlayURLStream
End Sub
Sub privado Form_Unload(Cancelar como entero)
Si DMC1.URLStreamIsActive = True Entonces
DMC1.URLStreamIsActive = True Entonces
DMC1.URLStreamIsActive = True Si DMC1.URLStreamIsActive = True Entonces
DMC1.URLStreamIsActive = TrueDMC1.StreamLenInSeconds & "/" & DMC1.StreamLenInSeconds
DMC1.StreamData intData, 1000
Finalizar si
picBox.Cls
Para i = 0 a 500 Paso 2
h = ((int
Datos(i) + 32768) / 65535 * picBox.Height)