Pesquisa personalizada

Fazendo sua aplicação falar

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

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

• Visite nossa área de artigos técnicos
• Conheça nossas dicas técnicas (mais de 300 dicas)
• Conheça nosso fórum de discussões
• Conheça nossa área de download com muitos componentes e códigos úteis
• Conheça nosso treinamento de lógica de programação on-line
• Conheça nossa prova de certificação em VB (oferecemos certificado aos aprovados)

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