Publicentral.com - promocion de paginas webpromocion de paginas web
Mostrando Codigo - Visual Basic
Code

Visual Basic - Hacer sonar un archivo de sonido desde un boton

Códigos Visual Basic

Las siguientes consiguen que un archivo de sonido en formato wav se ejecute y suene a partir de un boton.
Visitas: 41,791 - 26/10/2004 23:48:22
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION

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

  1. Private Sub Command1_Click()
  2. iResult = mciExecute("Play c: u_archivo.wav")
  3. End Sub



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 -->
COMENTARIOS
Comentario usuario
23/10/2003 10.47.59
3 5
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
Comentario usuario
28-04-2009 08:38:09
5 5
hola...una vez que ejecutas la musica como haces que pare o que se repita nuevamente. gracias
Comentario usuario
Yeison Padilla
5 5
Hola, Sabes fue de mucha ayuda tu codigo. Gracias
Comentario usuario
yatew
4 5
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
yatew
1 5
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

Espero me puedan ayudar.
Comentario usuario
11-06-2008 15:02:35
1 5
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
Comentario usuario
18-07-2007 14:42:42
1 5
hi. y si yo no kiero meter un punto WAV si no un mp que codigo me recomiendas
Comentario usuario
Fievel
3 5
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???
Comentario usuario
17-04-2010 15:31:08
4 5
no!!!!...no me sale el programa ...ayuda por favor!!....
Comentario usuario
23/03/2004 14.09.13
3 5
gracias se compila bien pero me tira un erro en esta parte DialogResult = mciExecute("Play C:UsersjuanMusicguardar.wav") no c q pasa????????
Comentario usuario
20-12-2007 23:32:10
4 5
me funciono re bien... gracias!!!!
Comentario usuario
Yolin
5 5
YATEW el problema es que dejas espacios en el nomnbre del archivo
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.