O meu computador está cada vez mais, a deixar de ser uma simples ferramenta de trabalho ou diversão, e está a tornar-se uma parte integrante, e essencial do meu dia-a-dia. A relação que temos, é muito especial, deixei de o tratar como uma ferramenta de dados, com capacidade de processamento. Agora eu confio mais no meu computador, confio nele os meus dados mais importantes, e por vezes deixo ele tomar decisões por mim.
Alguns anos começou ser dada a capacidade dos computadores interagirem connosco, e de nos passar informação de formas mais complexas que os simples textos.
Recorrendo a um pequeno código (mais um ponto para os programadores...), e a capacidade que o Windows tem de converter texto em voz, consegui por o meu computador desejar-me um "bom dia" no arranque. Foi isso que fiz:
- Meti (no bom sentido...kkkk...) o texto referido em baixo, no bloco de nota (notepad, bloco de texto, ou notepad++) e gravei-no com um nome qualquer, propriamente: BomDia2M.vbs, e o atribui a extensão vbs.
O texto é o seguinte:
Dim fala, talk
fala ="Bom Dia 2M, como estas hoje"
Set talk=CreateObject("sapi.spvoice")
talk.Speak fala
Alguns anos começou ser dada a capacidade dos computadores interagirem connosco, e de nos passar informação de formas mais complexas que os simples textos.
Recorrendo a um pequeno código (mais um ponto para os programadores...), e a capacidade que o Windows tem de converter texto em voz, consegui por o meu computador desejar-me um "bom dia" no arranque. Foi isso que fiz:
- Meti (no bom sentido...kkkk...) o texto referido em baixo, no bloco de nota (notepad, bloco de texto, ou notepad++) e gravei-no com um nome qualquer, propriamente: BomDia2M.vbs, e o atribui a extensão vbs.
O texto é o seguinte:
Dim fala, talk
fala ="Bom Dia 2M, como estas hoje"
Set talk=CreateObject("sapi.spvoice")
talk.Speak fala
Para testar, faça duplo clique sobre o ficheiro de audio criado.
Também é possivel alterar a voz usada por definição, essa alteração é feita no Painel de Controlo, conversão de texto e voz.
Uma vez criado o ficheiro de audio, coloquei o mesmo ficheiro no arranque do computador, ou seja, copiei o ficheiro, BomDia2M.vbs, para a pasta de Arranque, do Menu Iniciar.
Nota: Quem quiser que o computador diga a data actual, podem usar os seguintes comando:
DateString = FormatDateTime(Date(), 0)
Vai mostrar ou dizer: June, 13, 2011
DateString = FormatDateTime(Date(), 1)
Também é possivel alterar a voz usada por definição, essa alteração é feita no Painel de Controlo, conversão de texto e voz.
Uma vez criado o ficheiro de audio, coloquei o mesmo ficheiro no arranque do computador, ou seja, copiei o ficheiro, BomDia2M.vbs, para a pasta de Arranque, do Menu Iniciar.
Nota: Quem quiser que o computador diga a data actual, podem usar os seguintes comando:
DateString = FormatDateTime(Date(), 0)
Vai mostrar ou dizer: June, 13, 2011
DateString = FormatDateTime(Date(), 1)
Vai mostrar ou dizer: segunda-feira, 13 Junho 2011
Para os que usam MacSO, o comando "say it", faz o mesmo, já para quem não usa Bill Gates (Windows), ou Steve Jobs (MacOs), prefere usar Linus T.(Linux), estas aplicações (programas) fazem o mesmo:
http://code.google.com/p/gespeaker/
talk.Speak "fuiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii"
talk.Speak "fuiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii"
Sem comentários:
Enviar um comentário