APLICACAO FALAR DE MODO DECENTE
Bom dia,pessoal!
Temos,vários exemplos na internet,de como fazer nossa aplicação [Ô]Falar[Ô].
O problema é que quando se trata de falar em Português......que lastima.
A qualidade é muito ruim....
No caso,do meu projeto preciso somente de 2 ou 3 frases.
Por isto,pensei em [Ô]Gravar[Ô] as mensagens e salvar em formato [Ô]Wave[Ô] ou MP3 e no momento certo
[Ô]Tocar[Ô] a mensagem.
Minha pergunta aos colegas:
No VB.NET(fazendo de conta que já tenho as mensagens gravadas), como eu posso executar arquivos de son
gravados no formato Wave ou mP3???
Temos,vários exemplos na internet,de como fazer nossa aplicação [Ô]Falar[Ô].
O problema é que quando se trata de falar em Português......que lastima.
A qualidade é muito ruim....
No caso,do meu projeto preciso somente de 2 ou 3 frases.
Por isto,pensei em [Ô]Gravar[Ô] as mensagens e salvar em formato [Ô]Wave[Ô] ou MP3 e no momento certo
[Ô]Tocar[Ô] a mensagem.
Minha pergunta aos colegas:
No VB.NET(fazendo de conta que já tenho as mensagens gravadas), como eu posso executar arquivos de son
gravados no formato Wave ou mP3???
Não sei ao certo mas tenta assim.:
Process.Start([Ô]Caminho.mp3[Ô])
Process.Start([Ô]Caminho.mp3[Ô])
Leia esse artigo: http://imasters.com.br/artigo/17394/dotnet/vb-net-usando-os-recursos-do-microsoft-net-speech
Google isto: Realspeak-português+brasil. Esse é o pacote que tem a voz feminina com sotaque português brasileiro.
Em adição ao código fornecido no artigo, vc precisará selecionar a voz que está instalada no Windows.
Tive problemas no Win7, mas no XP funcionou bem. No entanto, tem pessoas que conseguem rodar no Win7
Google isto: Realspeak-português+brasil. Esse é o pacote que tem a voz feminina com sotaque português brasileiro.
Em adição ao código fornecido no artigo, vc precisará selecionar a voz que está instalada no Windows.
Private Sub btnFalar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFalar.Click
If Not txtTexto.Text = String.Empty Then
[txt-color=#e80000] speaker.SelectVoice([Ô]ScanSoft Raquel_Full_22kHz[Ô])[/txt-color]
speaker.Rate = Convert.ToInt32(trkbVelocidade.Value) [ô]Aceita valores negativos para deixar mais lento.
speaker.Volume = Convert.ToInt32(trkbVolume.Value)
speaker.SpeakAsync(txtTexto.Text)
Else
MsgBox([Ô]Informe um texto para sintetizar.[Ô])
End If
End Sub
Tive problemas no Win7, mas no XP funcionou bem. No entanto, tem pessoas que conseguem rodar no Win7
Tópico encerrado , respostas não são mais permitidas