Foro de elhacker.net

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 Sub

Lo 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

Esto estara guapo para quienes carecen de Vida social REAL!¡.

Dulce Infierno Lunar!¡.

JAJJAJAJJAJAJAJAAJA :laugh:
Ahora por tu culpa nadie lo usara! :¬¬   :xD

Salu2! ;)

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..!



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.

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

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.