Ensine seu computador a falar

O que você faria se seu computador começasse a falar?

Talvez pensaria que está ficando muito tempo nas redes sociais ou jogando Angry Bird na Web.

Mas, isso é possível?

Sim, isso é possível a partir do Windows 7. Acompanhe nosso post e será capaz de fazer seu computador lhe desejar um bom dia.

Para fazer seu computador falar basta seguir os passos a seguir:

Abra o Bloco de Notas que está localizado em Menu Iniciar > Todos os Programas > Acessórios > Bloco de Notas.

Copie e cole o código fonte no Bloco de Notas. Esse código está escrito em VBScript.

'Cria as variáveis
Dim speaks, speech, hora, mensagem
'Verifica se é manhã, tarde ou noite
hora = Hour(Now())
'monta a mensagem para discursar
if (hora > 0 and hora < 12) then
mensagem = "Good Morning"
elseif (hora > 12 and hora < 18) then
mensagem = "Good Afternoon"
else
mensagem = "Good Night"
end if
speaks= mensagem + " Have a great week of work!"
'cria o objeto SAPI que é a API de comunicação
Set speech=CreateObject("sapi.spvoice")
'Discursa
speech.Speak speaks

Salve o documento como saudacoes.vbs na Área de Trabalho. Mas, antes de salvar troque o tipo para Todos os Arquivos. Veja na figura 01 abaixo:

Figura 01 - Salvando o arquivo saudacoes.vbs.

Verifique se foi criado na Área de Trabalho o arquivo saudacoes.vbs. Clique duas vezes nele para escutar seu computador falando com você.

Espero ter ajudado!

Até o próximo post.

Prof. Norton C. Guimarães