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.
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...
CitarPlay 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)
;)
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
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
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..
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.
Haci:
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
No hay por que realizar la operación dentro de una variable
mciExecute "Play c:\windows\ringin.wav"
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?
AQUI TE DEJO EL LINK PARA QUE DESCARGUES EL CODIGO FUENTE DEL REPRODUCTOR MP3
Hola:
Muchas gracias por la contribucion de todos!
Sigan asi...
Salu2 y felicitaciones.
Aca te actualizo mi link
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
Alguien me puede dar una mano porque puse ese codigo y no me reproduce el mp3 me tira error
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.
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.