Debemos crear un modulo donde ingresaremos la siguiente linea
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Posterior mente en el formulario ingresaremos el codigo siguiente, el cual ejecutaremos desde un boton llamado
command1
ademas de modificar el path o ruta hacia el archivo de sonido c: u_archivo.wav
CODIGO
// Codigo ofrecido por Tutores.org
PrivateSub Command1_Click()
iResult = mciExecute("Play c: u_archivo.wav")
EndSub
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Hacer sonar un archivo de sonido desde un boton" href="http://www.tutores.org/codigo/1413/" target="_blank">Hacer sonar un archivo de sonido desde un boton</a>
<!-- Final enlace Tutores.org -->
hola..sabes este codigo loejecuto pero me sale error ,no se si podrias verificarlo pues no me funciona muy bien..please a ver si me respiondes o me das otros codigos para intentar..gracias
hola...una vez que ejecutas la musica como haces que pare o que se repita nuevamente. gracias
Comentario usuario
Yeison PadillaYeison Padilla
15
Hola, Sabes fue de mucha ayuda tu codigo. Gracias
Comentario usuario
yatewyatew
35
hola, oie esa funcion se declara, poniendo una API no, el problema es que yo no encuentro esa API me podria alguien explicar mejor como hacerlo.
Comentario usuario
yatewyatew
45
ya vi que no es una API lo que pasa es que se abre un modulo =) pero ahora el problema es que pongo la ruta del archivo y todo corecto en el modulo y en el form pero al darle clik sobre el boton me tira un cartel que dice lo siguiente:
el dispositivo especificado no esta abierto o MCI no lo reconoce
Hermanos el codigo sirve perfecto lo unico que no se puede compilar hasta que no se declare
dim iResult as string
y pueden poner el codgi asi para que no les de error en cuanto abran su programa en otra pc
guardan el archivo de la cancion donde este tu proyecto ya lo probe asi y tambien puede ser mp3
Private Sub Command1_Click()
dim iResult as string
iResult = mciExecute("Play tu_archivo.wav")
End Sub
hi. y si yo no kiero meter un punto WAV si no un mp que codigo me recomiendas
Comentario usuario
FievelFievel
55
Muchisimas gracias!!
me habian dicho que era muy dificil :S
pero su codigo esta muy sencillo y ya funciona :D
Una pregunta, se puede vincular visual basic a alguna pagina de internet???