Página 1 de 1

Executar SOM para resposta certa e SOM para resposta errada

Enviado: 24 Nov 2018 às 15:31
por albinosergio
Senhores boa tarde,
Preciso por favor de uma macro que emita um som wav (3seg a escolher) quando a resposta for certa e outro som (3seg a escolher) quando a resposta for errada. Será uma pergunta com 4 opções de respostas (A, B, C e D) essas opções estou pensando no "Botão de Opção (Controle de Formulário)".
Ao clicar no botão: "RESPOSTA" dependendo do resultado, emitirá um som identificando que errou ou acertou.
Caso meu ponto de vista não tenha sido claro para os senhores entenderem, planejarei um anexo modelo, OK?
Desde de já meus agradecimentos pelas suas habituais colaborações
Um abraço grande

Executar SOM para resposta certa e SOM para resposta errada

Enviado: 24 Nov 2018 às 23:23
por Domingsp
Já precisei fazer algo parecido mas fiz com mp3. O codigo abaixo verifica o valor em Q8. Se for igual a 15 ele executa o audio:
Código: Selecionar todos
Private Sub CommandButton2_Click()
  If Range("Q8") = 15 Then _
  WindowsMediaPlayer1.URL = "C:\Users\...\Documents\123TESTANDO\LUCKY SOUND.mp3"
End Sub
Voce vai usar um arquivo para cada resposta. deve adaptar o codigo para seu uso, modificando o caminho de acordo com seu arquivo de audio. E antes inserir um player na sua planilha. Segue esse caminho:

Desenvolvedor/Inserir/Mais Controles/Windows Media Player

Re: Executar SOM para resposta certa e SOM para resposta err

Enviado: 26 Nov 2018 às 16:50
por albinosergio
Gostei muito desse porque penso que podemos usar até mais de dois áudio(me corrija se estiver erado)
Ainda não consegui sucesso, por isso te pergunto, eu tenho que usar o caminho do Diretório que você colocou ou posso usar outro? esse código é na pasta da planilha ou em módulo/
Um abraço grande

Re: Executar SOM para resposta certa e SOM para resposta err

Enviado: 26 Nov 2018 às 21:00
por Domingsp
Esse código é uma Private, não deve ser colocado em modulo, e sim no espaço de Objetos ( no espaço de planilhas).
Sugiro voce colocar o arquivo de audio na mesma pasta do seu arquivo do Excel. Aqui eu tenho uma pasta so para trabalhos no Excel. A seguir:
1) clique com o botao direito do mouse no arquivo de audio
2) Desça ate Propriedades. Ali vai estar um item chamado Local.
3) Copie o caminho escrito ali e substitua no código que postei (mantenha as aspas)

Deve funcionar. Qualquer coisa, tamos aí

Executar SOM para resposta certa e SOM para resposta errada

Enviado: 26 Nov 2018 às 21:04
por Domingsp
Não testei assim, mas se voce usar esse codigo num módulo comum, acredito que deve funcionar também.

Re: Executar SOM para resposta certa e SOM para resposta err

Enviado: 29 Nov 2018 às 17:18
por albinosergio
Desculpe domingsp a minha ignorancia,
Fiz exatamente coforme suas orientações (pelo menos eu acho), coloquei os dos arquivos num mesmo diretório, copiei em propriedade do audio o caminho e colei no código entre as "aspas", acionei o windowsmediaplayer.
só troque a célula "Q1" para "A1", digitei o nº 15 mas a musica não tocou.
Estou anexando o meu teste (não sei se é permitido) para ver se é possível você ma ajuda a ar onde é que estou errando, OK?
De qualquer forma agradeço seus esforços

Executar SOM para resposta certa e SOM para resposta errada

Enviado: 29 Nov 2018 às 17:21
por albinosergio
Enquanto isso vou continuar tentando

Re: Executar SOM para resposta certa e SOM para resposta err

Enviado: 30 Nov 2018 às 22:49
por Domingsp
Baixei seu exemplo e observei que não há nenhum botão para execução do código. Voce provavelmente está tentando executar o audio apertando o play do windows player. Não funciona. O codigo deve ser executado atraves de um botão inserido na planilha.
Eu deveria ter explicado que a Private Sub CommandButton2_Click() se refere a um botão chamado CommandButton2.
Faça o seguinte agora:
1) Desenvolvedor/Inserir/Botao de Comando(Controle ActiveX)
2)Desenhe o botão
3)Clique com o botão direito do mouse no botão criado.
4) Vá em Exibir Código
5) No espaço entre "Private Sub CommandButton_Click()" e "End Sub", cole o seu código:
Código: Selecionar todos
  If Range("A1") = 15 Then _
  WindowsMediaPlayer1.URL = "C:\Users\Familia bonita\Documents\PASTA DE TESTE\[TS] Introdução de Jornal.mp3"
Volte na planilha e aperte o botão que criou. O audio so toca se A1=15.
Deve funcionar. Aí voce adapta pro seu projeto. Qualquer coisa tamos aí

Executar SOM para resposta certa e SOM para resposta errada

Enviado: 30 Nov 2018 às 23:02
por Domingsp
Só mais uma coisa: Para o botão criado funcionar, desative o Modo de Design, clicando em Modo de Design, na guia Desenvolvedor

Re: Executar SOM para resposta certa e SOM para resposta err

Enviado: 04 Dez 2018 às 17:07
por albinosergio
Show, show, show!!!
Cara, VOCÊS SÃO DEMAIS, parabéns a vocês demais, além da paciêcia é claro rsss...
Muito obrigado, consegui colocar até a minha voz
Muito obrigado mesmo.
Até breve amigo