Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Falso Positivo en 12 Octubre 2005, 05:50 am



Título: Como reproducir mp3?
Publicado por: Falso Positivo en 12 Octubre 2005, 05:50 am
Buenas gente!:P
Estoy empezando a programar en visual basic, tengo la version 5.0 . Me gustaria saber como reproducir un archivo en formato mp3, busque pero no encontre... en los tutoriales no se habla del tema...encontre uno que otro pero para visual basic. Net o algo asi :P.
Si alguien tiene un codigo  o link a algun tutorial que explique este tema se lo agradeceria enormemente!.
Salu2.


Título: Re: Como reproducir mp3?
Publicado por: yeikos en 12 Octubre 2005, 11:57 am
Código:
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
    iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub

Mira a ver si te sirve...


Título: Re: Como reproducir mp3?
Publicado por: NYlOn en 12 Octubre 2005, 17:56 pm
Citar
Play c:\windows\ringin.wav

Los .wav son diferentes a los .mp3 .............

Che G4rBag3 existen OCX q te permieten escuchar mp3
www.lawebdelprogramador.com (http://www.lawebdelprogramador.com)
;)


Título: Re: Como reproducir mp3?
Publicado por: c0rrupt_gamer en 13 Octubre 2005, 22:32 pm
Yo acabo de probarlo con una cancion mp3 y funciona perfectamente.
Hay un detalle, cuando pruebo el programa y le doy pa k suene la musica, lo hace, pero la musica no para hasta k no cierras completamente el vb! k raro, no?

Aunque por lo demas, es muy util, gracias por el code ;)

Saludos


Título: Re: Como reproducir mp3?
Publicado por: Thaorius en 14 Octubre 2005, 02:23 am
Para pararlo usa:
iResult = mciExecute("Stop c:\windows\ringin.wav")
Para pausarlo:
iResult = mciExecute("Pause c:\windows\ringin.wav")
Y para resumirlo de nuevo play:
iResult = mciExecute("Play c:\windows\ringin.wav")

Saludos


Título: Re: Como reproducir mp3?
Publicado por: Falso Positivo en 14 Octubre 2005, 04:55 am
Buenas gracias por el aporte, aunque ese codigo ya lo tenia, pero no me funciona :(

Les explico paso a paso lo que hago....

1º inicio vb y eligo exe standart
2º creo un commanButton

el codigo quedaria asi..
Código:

Private Sub Form_Load()
    Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long 'ESTA LINEA ME MARCA EL COMPILADOR
End Sub

Private Sub Command1_Click()
    iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub


Cdo le doy para que reproduzca el programa, me sale el siguiente error señalandome en lo anteriormente mencionado:

"Error de compilacion"
'Los comentarios pueden aparecer despues de En SUb, End function o end propety'

Claro explico todo esto porque postearon que el codigo andaba perfectamente...
Lo unico que modifico es la ruta y el archivo....

Salu2.


Título: Re: Como reproducir mp3?
Publicado por: Thaorius en 14 Octubre 2005, 05:49 am
Haci:
Código:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
    iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub

En esencia, pones eso arriba de todo, no en el load.

Saludos


Título: Re: Como reproducir mp3?
Publicado por: yeikos en 14 Octubre 2005, 15:03 pm
No hay por que realizar la operación dentro de una variable
Código:
mciExecute "Play c:\windows\ringin.wav"


Título: Re: Como reproducir mp3?
Publicado por: c0rrupt_gamer en 14 Octubre 2005, 15:40 pm
1 Question:
Hay alguna forma parecida al "Play C:\music.mp3" k lo hiciera en bucle?
Es para un programa con multiples forms que tengo hecho.
De momento he pensado poner el "PLay" en el form de entrada y en vez de cerralo al abrir otro, dejarlo invisible y k un timer volviera a reproducir la cancion cuando se acabe. Pero creo k si hay un comando como el play o parecido seria mucho mas facil, lo hay?


Título: Re: Como reproducir mp3?
Publicado por: arodas en 14 Octubre 2005, 20:16 pm
AQUI TE DEJO EL LINK PARA QUE DESCARGUES EL CODIGO FUENTE DEL REPRODUCTOR MP3
Código:
http://es.geocities.com/artemio_rodas/cfuente.htm


Título: Re: Como reproducir mp3?
Publicado por: Falso Positivo en 15 Octubre 2005, 06:53 am
Hola:

Muchas gracias por la contribucion de todos!

Sigan asi...

Salu2 y felicitaciones.


Título: Re: Como reproducir mp3?
Publicado por: arodas en 19 Octubre 2005, 18:02 pm
Aca te actualizo mi link
Código:
http://es.geocities.com/artemio_rodas/cfuente.html   
aqui posteo lo que me piden en los foros,

(espero logres bajarlo ya que a veces me reporta que mi tasa de transferencias llego a su limite).

saludos 


Título: Re: Como reproducir mp3?
Publicado por: renga73 en 17 Marzo 2006, 08:04 am
Alguien me puede dar una mano porque puse ese codigo y no me reproduce el mp3 me tira error


Título: Re: Como reproducir mp3?
Publicado por: _Sergi_ en 18 Marzo 2006, 04:10 am
Bueno si lo que te han dado no te funciona puedes echar mano de Active X, son una carga más para nuestro programa pero son fáciles de usar.

-MP3ENC.ocx: codificar en formato MP3
-MP3PLAY.ocx: reproducir formato MP3

Espero que con estos Active X puedas resolver tu problema. Saludos.


Título: Re: Como reproducir mp3?
Publicado por: renga73 en 18 Marzo 2006, 11:24 am
Ya pude hacer andar el mp3. Ahora lo q quiero es q yo pueda elegir q mp3 escuchar pero en tiempo de ejecucion del programa. Y q tambien suene por un X determinado tiempo, supongamos unos 5 minutos.