Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: GhostLT en 2 Agosto 2010, 08:36 am



Título: Pc Inteligente agregar voz en SO
Publicado por: GhostLT en 2 Agosto 2010, 08:36 am
Hola a todos, me imagino que han visto la pelicula de Iron Man y pues me intriga escuchar que la PC responde a lo que tu le consultas y me gustaria saber si existe una forma de agregar librerias o algo asi de ciertos programas que leen texto como por ejemplo
Text Aloud
Loquendo
Dragon Naturally Speaking

Todo esto creado desde visual studio empezando por encender la pc y que me diga que deseo hacer hoy o que deseo buscar etc etc

Por adelantado gracias por sus ides y documentare toda la info posible... :xD


Título: Re: Pc Inteligente agregar voz en SO
Publicado por: BlackZeroX en 2 Agosto 2010, 08:58 am
hay un post de *PsYkE1* (http://foro.elhacker.net/profiles/psyke1-u350821.html) (unas dos a 4 paginas atrás) donde hace algo similar, solo qué lo qué escribes, usando algunas librerías del S.O.(Te lee lo escrito)!¡.

Dulces Lunas!¡.


Título: Re: Pc Inteligente agregar voz en SO
Publicado por: GhostLT en 2 Agosto 2010, 09:14 am
si se llama el objeto Sapi.spVoice y un pequeño ejemplo
Código
  1. ' ////////////////////////////////////////////////////////////////
  2. ' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
  3. ' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
  4. ' // respete la autoria y se me comuniquen esos cambios.        //
  5. ' // *Agradecimientos a BlackZeroX                              //
  6. ' // *Visita http://foro.rthacker.net                           //
  7. ' ////////////////////////////////////////////////////////////////
  8. Option Explicit
  9. Public Sub Computer_Talk(ByVal sText As String, Optional ByVal lVelocity As Long = 0)
  10.    If lVelocity < -10 Or lVelocity > 10 Then Exit Sub
  11.    Dim oTalkComputer As Object
  12.    Set oTalkComputer = CreateObject("Sapi.spVoice")
  13.    If oTalkComputer Is Nothing Then Exit Sub
  14.    With oTalkComputer
  15.        .Rate = lVelocity
  16.        .Speak sText
  17.    End With
  18.    Set oTalkComputer = Nothing
  19. End Sub

Gracias!!!