[SRC] Computer_Talk [by *PsYkE1*]

Iniciado por Psyke1, 15 Junio 2010, 12:57 PM

0 Miembros y 2 Visitantes están viendo este tema.

Pox1

jeee, caido del cielo, pero no me funciona, algo estare haciendo mal. grrr

Saludos.
" Del infierno..al cielo "

Psyke1

#11
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

zinfinal

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

invisible_hack

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
"Si no visitas mi blog, Chuck te dará una patada giratoria"

Psyke1

Voy a buscarlo...
Por cierto, encontraste la forma de que hablara en español??

Salu2!

invisible_hack

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

"Si no visitas mi blog, Chuck te dará una patada giratoria"

Psyke1


fary

la voz sale en ingles porque viene por defecto de windows... para cambiarlo ve a  panel de control> Voz

salu2!
Un byte a la izquierda.

Pox1

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.
" Del infierno..al cielo "