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

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

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.

1
2
3
4
5
6
7
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


Captura


Gracias y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 4.026
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Andres Leonardo (1671 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

1
2
3
4
5
6
7
8
9
10
11
12
' 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 claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

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:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.026
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Andres Leonardo (1671 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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.026
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Andres Leonardo (1671 intervenciones) el 27/12/2016 21:33:23
Mi error ...primero se da la ruta luego el open

ademas falto el with



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.026
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

reproducir sonidos de error-acierto power point con Visual Basic

Publicado por Andres Leonardo (1671 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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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


mmcontrol
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar