Hacer que tu ordenador te hable
Bueno investigando por el msdn sobre objetos y demas encontre el ojeto
"Sapi.spVoice", el cual nos permite ponerle voz a nuestro ordenador... :laugh:
Algo asi como el loquendo, pero en ingles... :¬¬
Hice este sencillo procedimiento para que veais un ejemplo:
' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com) //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se //
' // respete la autoria y se me comuniquen esos cambios. //
' // *Agradecimientos a BlackZeroX //
' // *Visita http://foro.rthacker.net //
' ////////////////////////////////////////////////////////////////
Option Explicit
Public Sub Computer_Talk(ByVal sText As String, Optional ByVal lVelocity As Long = 0)
If lVelocity < -10 Or lVelocity > 10 Then Exit Sub
Dim oTalkComputer As Object
Set oTalkComputer = CreateObject("Sapi.spVoice")
If oTalkComputer Is Nothing Then Exit Sub
With oTalkComputer
.Rate = lVelocity
.Speak sText
End With
Set oTalkComputer = Nothing
End SubLo divertido es que podemos regular laa velocidad a nuestro gusto... :D
Asi unos ejemplos de llamadas:
Call Computer_Talk("hello psyke1") ' Velocidad predeterminada 0
Call Computer_Talk("hello psyke1", 5) ' Más rapido(valor maximo 10)
Call Computer_Talk("hello psyke1", -7) ' Más lento (valor minimo -10)Espero que os haya gustado... ;)
Salu2! :P
Me gusto, buena PsYke1, pero cuando pongo la velocidad negativa (-7) me da desbordamiento. Aun asi buena
Cita de: *PsYkE1* en 15 Junio 2010, 12:57 PM
Hacer que tu ordenador te hable
Esto estara guapo para quienes carecen de Vida social REAL!¡.
Dulce Infierno Lunar!¡.
JAJJAJAJJAJAJAJAAJA :laugh:
Ahora por tu culpa nadie lo usara! :¬¬ :xD
Salu2! ;)
Cita de: Maik33 en 15 Junio 2010, 13:15 PM
Me gusto, buena PsYke1, pero cuando pongo la velocidad negativa (-7) me da desbordamiento. Aun asi buena
Ahora esta corregido, es porque en la llamada puse
Byte en vez de
Long, y Byte no acepta numeros negativos... :P
Me alegro de que te guste... ;)
Salu2!
PsyKE1 te estas aplicando... Buen source..!
Cita de: BlackZeroX▓▓▒▒░░ en 15 Junio 2010, 13:23 PM
Cita de: *PsYkE1* en 15 Junio 2010, 12:57 PM
Hacer que tu ordenador te hable
Esto estara guapo para quienes carecen de Vida social REAL!¡.
Dulce Infierno Lunar!¡.
Aqui deben existir algunos cuantos... LOL
Cita de: ssccaann43 en 15 Junio 2010, 20:44 PM
PsyKE1 te estas aplicando... Buen source..!
Cita de: BlackZeroX▓▓▒▒░░ en 15 Junio 2010, 13:23 PM
Cita de: *PsYkE1* en 15 Junio 2010, 12:57 PM
Hacer que tu ordenador te hable
Esto estara guapo para quienes carecen de Vida social REAL!¡.
Dulce Infierno Lunar!¡.
Aqui deben existir algunos cuantos... LOL
jajajajjaja esta bien para mi no xd jajajjajajajaja
Mentira .... bueno code sencillo pero bueno
Yo estaba buscando un programa asi para aprender palabras y textos en ingles asi como lo hace el traductor de google el cual tiene un limite de la palabras que convierte a voz.
La voz del cabron windows xp no se entiende mucho o al menos a mi me rompe el oido.
Alguien conoce algun programa que se asimile al traductor de google?, igual esta bueno.
Cita de: hunter18 en 20 Junio 2010, 07:37 AM
Yo estaba buscando un programa asi para aprender palabras y textos en ingles asi como lo hace el traductor de google el cual tiene un limite de la palabras que convierte a voz.
La voz del cabron windows xp no se entiende mucho o al menos a mi me rompe el oido.
Alguien conoce algun programa que se asimile al traductor de google?, igual esta bueno.
Loqueno o sodelcost
nos ayudara cuando estemos solos :D
jeee, caido del cielo, pero no me funciona, algo estare haciendo mal. grrr
Saludos.
Me sorprende que no te funcione, que error te da? que estas poniendo exactamente?...
Se me ocurre que hayas metido un valor incorrecto y por eso sale del procedimiento, revisa el post inicial...
Salu2! :P
Cita de: Pox1 en 25 Junio 2010, 05:22 AM
jeee, caido del cielo, pero no me funciona, algo estare haciendo mal. grrr
Saludos.
a nosotros no funciona bien :S si quieres que te ayudemos dinos el error que te sale...
Qué recuerdos, cuando le daba al VB, mi primera aplicación fue usando ese objeto...
La aplicación se llamaba "Charlatán", si buscais por Google la encontraréis :xD
Voy a buscarlo...
Por cierto, encontraste la forma de que hablara en español??
Salu2!
Quería intentarlo, pero al final me puse con otras cosas y dejé apartada la segunda versión :xD
Lo único que se me ocurre es que la persona que lo use, si tiene instalado TextAloud (Loquendo), se pueda hacer algo para que la voz, en vez de ser la de Sam (la que trae el ordenador), se use la de Jorge...
Porque supongo que sabes que la voz que se produce usando ese objeto, es la que tenemos de prueba en Windows, osea si vas a:
Inicio---> Panel de Control ---> Dispositivos de sonido, audio y voz---> Voz
Verás que te sale para poner la frase que quieras, y es la misma voz, que se llama Sam :P
Ok, siguo buscando...
Gracias ;)
la voz sale en ingles porque viene por defecto de windows... para cambiarlo ve a panel de control> Voz
salu2!
En planet source he visto de esta manera: agregando la referencia VoiceText 1.0 Type Library.
'''''''''''''''''''''''''''
Dim voicetext As VTxtAuto.VTxtAuto
Private Sub boton_Click()
Call voz
End Sub
Sub voz()
Set voicetext = New VTxtAuto.VTxtAuto
voicetext.Register App.Title, App.EXEName
voicetext.Speak Text1, vtxtst_READING
End Sub
'Configurar para que no muestre error, cuando la caja de texto este vacio.
''''''''''''''''''''''''''''''
En tú código, el problema que me sale, es que se requiere un objeto, no tengo la Sapi.spVoice??, donde lo puedo descargar ?
Saludos.