[SRC] Computer_Talk [by *PsYkE1*]

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

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

Psyke1

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:

Código (vb) [Seleccionar]

' ////////////////////////////////////////////////////////////////
' // *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:
Código (vb) [Seleccionar]

   Call Computer_Talk("hello psyke1") ' Velocidad predeterminada 0


Código (vb) [Seleccionar]

   Call Computer_Talk("hello psyke1", 5) ' Más rapido(valor maximo 10)


Código (vb) [Seleccionar]

   Call Computer_Talk("hello psyke1", -7) ' Más lento (valor minimo -10)


Espero que os haya gustado... ;)

Salu2! :P

Maik33

Me gusto, buena PsYke1, pero cuando pongo la velocidad negativa (-7) me da desbordamiento. Aun asi buena

BlackZeroX

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!¡.
The Dark Shadow is my passion.

Psyke1

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

Salu2! ;)

Psyke1

#4
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!

ssccaann43 ©

#5
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
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"

n3fisto

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

hunter18

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.

n3fisto

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

zinfinal

nos ayudara cuando estemos solos  :D