Visual Basic - reproducir sonidos de error-acierto power point con Visual Basic

Life is soft - evento anual de software empresarial

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por ikerne (4 intervenciones) el 26/12/2016 20:54:54

Acabo de empezar con Visual Basic y no tengo ni idea de programación, espero que me podais ayudar.
Quiero hacer una presentación en Power Point para trabajar los números con un alumno.

He metido un TextBox que es donde el alumno tiene que poner la respuesta, y un CommandButton que al clicar compruebe si la respuesta está bien. En caso de que esté bien,se reproduciría un sonido de aplauso y si está mal, un sonido de error. Este es el código que he escrito y me da un error "424 se requiere un objeto". Os copio a continuación el código.

Private Sub CommandButton1_Click()

If TextBox1 = 4 Then

My.Computer.Audio.Play ("C\Users\PC\Documents\000\01Ori\MATE2\Juan\powerpoint1\APPLAUSE.wav")

Else

My.Computer.Audio.Play ("C\Users\PC\Documents\000\01Ori\MATE2\Juan\powerpoint1\sad.wav")

End If

End Sub

Gracias y saludos.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.117

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Andres Leonardo (1799 intervenciones) el 27/12/2016 15:48:17

creo que esta linea

My.Computer.Audio.Play

es de vs 2008 esto de pwpnt es de vb6.0

verifica esa sintaxis algo asi

' es mmcontrol es el  microsoft multimedia control 6.0

Private sub command1_click()

With MMControl1

.Command = "stop" ' cerramos el archivo anterior

.Command = "close"

.FileName = "C\Users\PC\Documents\000\01Ori\MATE2\Juan\powerpoint1\APPLAUSE.wav" ' y cargamos el nuevo

.Command = "open"

.Command = "play"

End With

End Sub

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por ikerne (4 intervenciones) el 27/12/2016 19:53:18

Gracias por la respuesta, lo tengo que probar. Pero tengo la duda de como poner la condición "if........Then....."
Al pulsar el commandButton, tiene que comprobar si la respuesta del TextBox es la correcta para reproducir o el sonido de acierto o el de error. Lo he puesto así pero no me funciona:

Private Sub CommandButton1_Click()

If TextBox1 = 4 Then

With MMControl1

.Command = "open"

.Command = "play"

.FileName = "C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\APPLAUSE.wav"

.Command = "stop"

.Command = "close"

End If

If TextBox1 <> 4 Then

.Command = "open"

.Command = "play"

.FileName = "C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\sad.wav"

.Command = "stop"

.Command = "close"

End With

End If

End sub

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Andres Leonardo (1799 intervenciones) el 27/12/2016 19:57:31

pues eso que haces funcionaria pero no es optimo hagamos algo mas practico
Indicame el error donde te aparece???
por cierto tienes rutas con letras Ñ eso se trata de evitar poniendo rutas relativas y no rutas especificas

relativa = app.path & "\APPLAUSE.wav" ' en VBA se usa algo como thisapp o algo asi .. pero bueno....
especifica = C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\APPLAUSE.wav

Private Sub CommandButton1_Click()

dim sonido as string

If TextBox1 = 4 Then

  sonido  = "C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\APPLAUSE.wav"

else

  sonido =  "C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\sad.wav"

End If

.Command = "open"

.Command = "play"

.FileName = sonido

.Command = "stop"

.Command = "close"

End With

End sub

Valora esta respuesta

Comentar

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por ikerne (4 intervenciones) el 27/12/2016 20:07:46

Hola, gracias de nuevo, lo acabo de probar pero me da un error. Te mando la imagen. Saludos!
Captura2

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Andres Leonardo (1799 intervenciones) el 27/12/2016 21:33:23

Mi error ...primero se da la ruta luego el open

ademas falto el with

Private Sub CommandButton1_Click()

dim sonido as string

If TextBox1 = 4 Then

  sonido  = "C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\APPLAUSE.wav"

else

  sonido =  "C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\sad.wav"

End If

With MMControl1

.FileName = sonido

.Command = "open"

.Command = "play"

.Command = "stop"

.Command = "close"

End With

End sub

Valora esta respuesta

Comentar

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por ikerne (4 intervenciones) el 28/12/2016 18:01:22

Hola y gracias por la respuesta. Acabo de probar el código pero me da un error 424 en tiempo de ejecución : se requiere un objeto.
Al depurar me resalta ".filename = sonido" en amarillo.
Bueno me está pareciendo muy difícil, creo que voy a tener que hacer una presentación norma, sin meterme en visual basicl!!
Captura3

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Andres Leonardo (1799 intervenciones) el 28/12/2016 19:10:17

Pregunto y agregaste el MMCONTROL? a tu aplicacion???

Herramientas
--Controles adicionales
+-----Microsoft Multimedia control

Corrijo tambien el codigo

Private Sub CommandButton1_Click()

Dim sonido As String

If TextBox1.Text = 4 Then

  sonido = "C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\APPLAUSE.wav"

Else

  sonido = "C\Users\PC\Documents\000\01Orixe\MATE2\Beñat\powerpoint1\sad.wav"

End If

With MMControl1

.FileName = sonido

.Command = "open"

.Command = "play"

.Command = "stop"

.Command = "close"

End With

End Sub

Valora esta respuesta

Comentar

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Mario Reyes (1 intervención) el 15/05/2020 23:53:50

hola, me pueden ayudar por favor, necesito que al abrirse la respuest en un cuadro de texto se escuche un efecto de sonido

Valora esta respuesta

Comentar

Microsoft Visual Basic 6.0 Deluxe Learning Edition

Llevar consulta de datagrid a base de datos