Skip Navigation Links



Translate this page now :



»Programação
»Programação.NET
»Banco de Dados
»Webdesign
»Office
» Certificações Microsoft 4
»Treinamentos4
»Programação 4
»Webdesign«
»Office & User Tips«
»Grupos de UsuĆ”rios
»CĆ©lulas AcadĆŖmicas«
intcontpiada : 118
Evoluindo
Você já está cadastrado e participa do grupo de usuários de sua cidade ? Se não, comente o porque.
 
 
FaƧa um pequeno teste com 10 questƵes de VB
.:.
Teste seus conhecimentos em Visual Basic, SQL Server e ASP 3.0 com nossas provas on-line
.:.
Aprimore seus conhecimentos em programaĆ§Ć£o com nosso treinamento on-line de lĆ³gica de programaĆ§Ć£o
.:.
Veja nosso calendƔrio de treinamentos
Gostou da PƔgina?
Então

para um amigo!

Pesquisa personalizada
Pesquisar Dicas:

 






Fazendo sua aplicação falar


Com a evolução tecnologica fica cada vez mais importante que nossos sistemas acompanhem a modernidade e se aproveitem dos recursos de hardware atuais, tal como multimídia, para a realização de suas tarefas. A utilização de tais recursos de hardware pode ser mais simples do que parece.

O Visual Basic pode utilizar um componente chamado TextToSpeech, contido na biblioteca Microsoft Voice Text que acompanha o Microsoft Agent para que sua aplicaçãso fale com o usuário. Caso você não tenha esse componente em sua máquina você pode downloadea-lo aqui. Para adicionar esse componente na aplicação utilize o menu Project->Components.

O componente Text-to-Speech necessita da instalação de um conjunto de vozes na máquina para poder reproduzir som. Para baixar um conjunto de vozes padrão clique aqui. Uma opção para ampliar o conjunto de vozes utilizado é utilizar o programa em conjunto com o Via Voice da IBM, que disponibiliza uma série de vozes que podem ser utilizadas pelo Text-to-Speech. Para gerenciar as vozes instaladas em sua máquina baixe o Speech control panel. Ele adiciona um ícone ao seu painel de controle permitindo o gerenciamento das vozes existentes.

Para começar, vamos adicionar uma combobox, uma caixa de texto e um botão. Na combobox escolheremos o padrão de voz que desejaremos utilizar, na caixa de texto digitaremos o texto e o botão será o responsável pela reprodução. Vamos chama-los respectivamente de cmbVoiceType,txtText e cmdSpeak. Precisaremos adicionar também o componente TextToSpeech que deixaremos com o nome de TextToSpeech1.

No load do formulário vamos definir uma determinada voz com sendo a voz default para fala de textos e carregaremos a combobox com todas as opções de voz existentes. Veja este trecho :

Private Sub Form_Load()
Dim strVoiceType As String
Dim intEngine As Integer
Dim i As Integer


intEngine = TextToSpeech1.Find("Mfg=Microsoft;Gender=1")
TextToSpeech1.Select intEngine

Está sendo feita uma localização no componente TextToSpeech1. Foi solicitado que ele localize o 1o Engine construido pela Microsoft que tenha voz feminina. A variável intEngine recebe o índice deste engine e, na instrução seguinte é utilizada para seleciona-lo.

Feito isso precisamos carregar a combobox com as opções de vozes. Veja :

For i = 1 To TextToSpeech1.CountEngines
    strVoiceType = TextToSpeech1.ModeName(i)
    cmbvoicetype.AddItem strVoiceType
Next i

Fazemos um FOR através das Engines existentes e preenchemos a combobox com o nome de cada uma delas. Por fim falta apenas selecionar na combobox a voz que escolhemos como Default. Veja :

cmbvoicetype.ListIndex = TextToSpeech1.CurrentMode - 1

Veja o código do Load completo :

Private Sub Form_Load()
Dim strVoiceType As String
Dim intEngine As Integer
Dim i As Integer

intEngine = TextToSpeech1.Find("Mfg=Microsoft;Gender=1")
TextToSpeech1.Select intEngine

For i = 1 To TextToSpeech1.CountEngines
    strVoiceType = TextToSpeech1.ModeName(i)
    cmbvoicetype.AddItem strVoiceType
Next i

cmbvoicetype.ListIndex = TextToSpeech1.CurrentMode - 1

End Sub

No click da combobox deveremos selecionar no TextToSpeech1 a voz escolhida pelo usuário. Veja :

Private Sub cmbVoiceType_Click()
    TextToSpeech1.CurrentMode = cmbvoicetype.ListIndex + 1
    If (TextToSpeech1.Gender(TextToSpeech1.CurrentMode) = 1) Then
        TextToSpeech1.LipType = 0
    Else
        TextToSpeech1.LipType = 1
    End If
End Sub

Observe que a propriedade LipType controla a aparencia dos lábios exibidos pelo componente : Se forem femininos aparecem mais avermelhandos, como se estivessem com batom.

Por fim falta apenas realizar a fala quando o usuário clicar no botão. Veja :

Private Sub cmdSpeak_Click()
   TextToSpeech1.Speak txttext.Text
End Sub

Está pronto o projeto. Sua aplicação já poderá falar o que você desejar. Será interessante aplicar isso em softwares comerciais de forma que a aplicação exponha verbalmente o resultado de uma requisição qualquer.

Baixe o código fonte referente a este artigo.

 

Dennes Torres
MCSD,MCSE,MCDBA

 

 

 

 

 

 

 

 





Envie seus comentįrios sobre este artigo

Nome :

E-mail :

Comentários :


Avise-me quando houverem novos comentįrios nesta pįgina

Veja abaixo os comentários já enviados :

Nome : Bianca E-Mail : biancaariel@hotmail.com
Bi,olha isso
Nome : André E-Mail : decosouza@gmail.com
Juntamente com voice text vem o Vcommand. Utilizando o vcommand é possível usar comando de voz? se é como faço isso?

Obrigado!
Nome : odson werneck E-Mail : odsonwerneck@yahoo.com.br
Meu amigo, adorei sua ideia e boa vontade em ajudar os que pouco sabem mas infelizmente fiz o download de seu programa e não consegui fazer a boca falar nada.
da sempre um erro
mas de qualquer forma muito obriga.
odson
Acredite que este comentário é construtivo... obrigado novamente.
se puder me ajudar de qualquer forma fico agradecido.
Nome : Daniel E-Mail : programador_2001@yahoo.com.br
Realmente gostaria de saber tb como faço pra utilizar o componente Vcommand e realmente qual a função dele?

Fico muito grato por me ajudarem.
Nome : valter E-Mail : valterrossovskii@ig.com.br
voz
Nome : Edson Pontes E-Mail : rangelzito_skywalker@hotmail.com
Realmente o projeto é bom funcionou legal, realmente a boca fala.
Testei no Visual Basic 6 sp5.
Nome : Dalva Celeste E-Mail : adulisdalva celeste@terra.com.br
Speech control panel

Esssa página não abre.
Nome : wagner E-Mail : wagner@lookinformatica.com.br
FIZ E DEU CERTO.QUERIA SABER SE TEM COMO MELHORAR O PORTUGUES DA BOCA, POIS AS
VEZES ELA EMBOLA A LINGUA.
Nome : wagner E-Mail : wagner@lookinformatica.com.br
POR FAVOR PRECISO SABER ,COM MUITA URGÊNCIA, COMO FUNCIONA O VCOMMAND NO VB6.
FICO NO AGUARDO
Obrigado
Nome : Leandro Peres E-Mail : leandro_peres12@hotmail.com
show de bola cara, parabéns, um dos melhores códigos que já vi.
Nome : Leandro Peres E-Mail : leandro_peres12@hotmail.com
se possivel, vc pode me dar algumas dicas de como faço para ele receber minha voz, desde já agradeço.

Att.
Leandro Peres
Nome : Pedro E-Mail : pedro.kuramoto@gmail.com
Bom dia amigo,
Vi seu código e estou com um problema. Aqui apareceu algo assim ao colocar em components: "The File "...\spchapi.exe" was not registareble as an Activex Compoment."

Se puder me ajudar seria grato.
Att.
Pedro Kuramoto
pedro.kuramoto@gmail.com

Nome : Anderson Fernandes E-Mail : anderson.fernandes@lark.com.br
Fazer o vb falar, interessante, porem,
nenhum download funcionou.

Nome : Ruberto E-Mail : ruberto@cootgassp.com.br
Não consegui fazer download do componente através deste link, poderia me enviar um outro link para baixar o componente e o conjunto de vozes?
Nome : Jefferson E-Mail : choco1910@hotmail.com
Cara....

Este componente tbm funciona no Windows 2003?

Não estou conseguindo...

Valew!
Nome : Luciano E-Mail : lucianore@ig.com.br
Muito bom este exemplo, está de parabéns!!!
E se eu quiser colocar outra voz, por exemplo Raquel da ScanSoft, que é um português quase que 100%, tem como?
Att
Luciano
Nome : Rinaldo José do Nascimento E-Mail : rinaldo@ufersa.edu.br
Não consigo acessar os links para baixar estes componente de voz. gostaria se possivel outra forma de baixar. agradeço Rinaldo José
Nome : Valdino E-Mail : criquio@yahoo.com
Poxa, os programas citados na matéria não se encontram mais disponíveis para download. Queria testá-los.
Ótima matéria, por sinal.
Nome : ItlOpScptCyyfzPiKa E-Mail : f.xabouxus@apache.cn
/ No caso do cl rigo, o correspondente seria o foevrad soul, que usa a magia divina de forma espont nea, assim como o feiticeiro utiliza a magia arcana. N o vejo a prepara o como algo assim t o artificial, uma vez que n o necess rio apenas "decorar" uma f rmula m gica verbal com exatid o.Muitas magias exigem componentes f sicos, cuja prepara o pr via se justificaria. Imaginaria dentro dessa situa o, que o feiticeiro e o foevrad soul improvisam quanto a isso. Enfim, um ponto de vista que abre uma possibilidade de adapta o a mestres que assim o desejem, mas, realmente, com essa aplica o a presen a de feiticeiros e foevrad souls parece desnecess ria mesmo com a aplica o da regra de pontos. Fiquei imaginando uma boa justificativa interpretativa para justificar um talento como esse.
Nome : dBDENihJsEV E-Mail : hjzvx8q2xw@outlook.com
Miriam!Amei a mfasica (ne3o a conhecia ainda) e amei o post, pimrcipalnente porque eu fui uma das pessoas beneficiadas por sua ajuda ontem e0 tarde e em outras muitas tardes desde que nos conhecemos virtualmente.Ne3o he1 palavras para lhe agradecer. Vocea tem um dom muito especial.Muito obrigada!Beijinhos,TatiP.S.: A palestra foi bem interessante. Estou pensando em fazer o curso que eles este3o oferecendo.
Nome : ebHmMTyj7jQ E-Mail : axdoivm95wh@hotmail.com
The paragon of unsdedtanring these issues is right here!
Nome : OF7dxrzpmAUa E-Mail : p25a1qeu@yahoo.com
We are just about to extend Demo Showcase VPC to be available to all SBSC, currently its for Gold & Ceferiitd, the Expression Blend sims are available for all. We will look at making it orderable for all Partners at nominal cost for DVD and shipping.

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Conheça mais sobre o nosso site :

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::



Quer saber mais?
Faça um curso na Búfalo Informática, Treinamento e Consultoria e
Prepare-se para o Mercado!
Veja o que a Búfalo tem para você.

ļæ½ BĆŗfalo InformĆ”tica, Treinamento e Consultoria - Rua Ɓlvaro Alvim, 37 Sala 920 - CinelĆ¢ndia - Rio de Janeiro / RJ
Tel.: (21)2262-1368 (21) 9240-5134 (21) 9240-7281 e-Mail:
contato@bufaloinfo.com.br