Programación General > VBA

 Sonido En Visual Basic 6.0

(1/2) > >>

belen_19:
Hola! agradesco a todos los que me respondieron por su atencion, pero aun sigo sin poder resolver el problema..  :comp: no se cual sera el error, pero no funciona.
Muchas gracias por su atencion!

salu2 a todos!!! ;)

Toph:
:) Hola, yo te respondi en el foro de visual basic para principiantes, no debes abrir discuciones nuevas con los mismos temas solo tienes que darle responder a la discucion que ya hiciste porque los que ya te contestamos quedamos a espera de tu respuesta favorable o no en la discucion original, con respecto a mi codigo que raro que no te funcione a mi me funciona perfecto de hecho lo estoy usando en un proyecto que estoy haciendo seria bueno que pusieras que errores te da o si simplemente no te funciona talvez te podamos seguir ayudando



saludos  :comp:

belen_19:
Hola! disculapame Tania, es que no soy de escribir en los foros, entonces no se bien el manejo de los mismos...gracias por tu ayuda! pero aun no puedo hacer que funcione, aca dejo el codigo de lo que hice, es un rompecabezas..gracias de todos modos por su colaboracion!

(es solo una parte)

Private Static Sub cmdboton_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)


Dim i%, xvacio%, yvacio%, xClicked%, yClicked%
   
    'Calcular coordinantes por botones
    xvacio = (miIndexVacio) Mod miTamaño
    yvacio = (miIndexVacio) \ miTamaño
    xClicked = (Index) Mod miTamaño
    yClicked = (Index) \ miTamaño
   
    'Cambiar botones si vacio esta cerca
    If (xClicked = xvacio + 1 And yClicked = yvacio) Or _
        (xClicked = xvacio - 1 And yClicked = yvacio) Or _
        (yClicked = yvacio + 1 And xClicked = xvacio) Or _
        (yClicked = yvacio - 1 And xClicked = xvacio) Then
          CambiarBotones (Index)
          (aca debe ir un sonido)
    End If

    salu2 a todos!  :hola:

Toph:
:huh: la solucion que yo te di fue:

poner un modulo (proyecto--->agregar modulo---->nuevo) y poner este codigo


--- Citar ---Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal variable1 As String, ByVal modulo1 As Long, ByVal banderas As Long) As Long
--- Fin de la cita ---


y luego en tu programa
--- Citar ---Private Sub Form_Load()
   Dim archivo, mdl, bandera
   mdl = 1
   bandera = 1
   
End Sub
--- Fin de la cita ---
y donde dices que debe ir el sonido


--- Citar ---   archivo = "C:\SONIDO.wav"
   Call PlaySound(archivo, mdl, bandera)
--- Fin de la cita ---
:comp: esto tiene que funcionar, si no funciona se debe a dos cosas, una de ellas es que en la carpeta system32 no este la libreria que se necesita que es "winmm.dll" y la otra razon es que el archivo de sonido que quieras ejecutar NO sea extension .wav

¿que sucede cuando llegas a la rutina donde debe salir el sonido?, te da error?? o que sucede ??


saludos  :hola:

belen_19:
me marca la palabra archivo como variable no definida, osea no se bien q poner ahi...disculpa las molestias una vez mas, gracias por tu buena onda!

 :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente