Como Hacer un Programa p/Hablar con tu PC-Sin instalaciones!

Cómo hacer que tu PC te hable CON ESTA PC PARLANTE PODRÁS IMPRESIONAR A PERSONAS, DICIENDO QUE TU PC ES MEJOR, O QUE SOS UN MAGO, O LO QUE SE TE OCURRA. ES IMPORTANTE SEGUIR PASO A PASO LAS ISTRUCCIONES PARA QUE EL RESULTADO SEA EFECTVO, Y NO SALTEARSE PARRAFOS NI NADA Se trata de un programa 100% creado por nosotros, de esta manera, estaríamos utilizando un programa 100% confiable. Al ejecutarlo se nos presentará una voz, la cual dirá lo que querramos que diga, y aparecerán barras de conversación, donde Windows realizará las preguntas que deseemos, y en donde podremos contestarlas, obteniendo una acotación de nuestra respuesta. Éste es un sistema puramente informático en donde no será necesaria la instalación de ningún tipo de programa. Lo único necesario es poseer cualquier tipo de versión de Windows, puesto que el programa más importante aquí utilizado es el conocido Bloc de Notas (Documento de texto en algunas versiones). El único inconveniente para algunos es que como el Software de Windows está en inglés, el programa debe hacerse en inglés, y al ejecutarlo se debe responder en el mismo idioma Cualquier persona neófta en el área de la programación se preguntará:¿Cómo es posible hacer que el bloc de notas se convierta en un programa cuyo fin sea el ya mencionado? En este post se explica todo detalladamente, lo único que pido es que PRESTEN MUCHA ATENCIÓN, ya que un mínimo error podría dejar en consecuencia un programa inválido. --Deben hacer clic derecho en la pantalla del escritorio: NUEVO-DOCUMENTO DE TEXTO Al archivo del bloc de notas pueden llamarlo como les guste. Los códigos siguientes se copiarán y se pegarán en el documento de texto (bloc de notas) Éstos son los códigos que deben copiar y pegar TAL COMO ESTÁN: StrText=( "Hi, my name is Windows, and I am your computer" ) set ObjVoice = CreateObject("SAPI.SpVoice" ) ObjVoice.Speak StrText StrText=( "What is your name?" ) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText name=inputbox( "What is your name?" ) StrText=( "Nice to meet you, " &name) set ObjVoice = CreateObject("SAPI.SpVoice" ) ObjVoice.Speak StrText StrText=("How are you feeling, " &name) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText feeling=inputbox( "How are you feeling, " &name) StrText=("Why are you feeling " &feeling) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText why=inputbox( "Why are you feeling " &feeling) StrText=("I am going to come back" ) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText StrText=( "Your computer needs me" ) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText StrText=( "Bye Bye" ) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText Una vez pegados los códigos, se guardará (Archivo-Guardar Como) el documento con el nombre : "el nombre deseado .vbs" . Es importantísimo que el nombre tenga el .vbs al final, puesto que ésto le indicará a Windows que el documento que queremos almacenar es un archivo de secuencia de comandos de VBScript. Es conveniente guardarlo en el escritorio, ya que el archivo tiene un icono desconocido para muchos. --Ejecútenlo. Bien. Ésta es una conversación tradicional, pero, ¿como hacer para crear una conversación con las preguntas que queramos? A continuación lo explicaré. Aquellos que tengan algun mínimo conocimiento de programación con sentarse y mirar los códigos se dará cuenta como funciona (como me pasó a mi), pero para aquellos que no tienen ese conocimiento, al terminar de ver este post lo tendrán. Se habrán dado cuenta que algunas de las cosas que dice Windows luego aparecen en la barra de conversación y otras no. ¿Pero cómo entenderlo con todos esos códigos sin sentido? Si se fijan, la primera frase auditiva que dice Windows esta entre paréntesis y entre comillas en la primer línea del código. _-- Para aquellas frases auditivas solo se debe colocar el: StrText=( "Lo que deseen que diga" ) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText En donde lo único que varía es la frase entre paréntesis y comillas. Cuando escribimos: "setObjVoice", estamos estableciendo la voz en la que queremos que se adapte Windows. Cuando escribimos: "ObjVoice.Speak StrText", estamos diciendo que la voz que elegimos (ObjVoice) hablará (Speak) cuando la línea comienze con StrText. Hagan la prueba con un nuevo Documento de Texto ¿Lo ven? Pero en el programa estándar, también hay barras de dialogo, en donde está escrita la pregunta. ¿Cómo haremos para efectuar en nuestro programa esta barra? _-- Para establecer una barra de diálogo, que tendrá una pregunta efectuada por nosotros ingresaremos los siguientes códigos: name=inputbox( "la pregunta que deseen que aparezca en la barra de diálogo" ) La primer palabra que nos aparece aquí (name) puede ser cualquier palabra que elijamos, sólo que no se puede repetir en todo el programa en ese lugar ( detras del "=inputbox" ) Con esto estamos diciendo que "name" sera igual a la respuesta de la pregunta efectuada en esa línea. En programación, a este tipo de código se le dice "variable". Ej.: name=inputbox( "What is your name?" ) Con esta línea del programa, haremos que aparezca la barra de dialogo con la pregunta especificada ( What is your name? ). Al ejecutar el programa, en el momento que aparezca, deberá ser respondida para poder proseguir. Esa respuesta sera igual a name. Pero se preguntarán: ¿Para qué me sirve name? Para lo siguiente: _-- Si queremos que Windows haga una acotación a nuestra respuesta colocaremos lo siguiente: StrText=( "Nice to meet you, " &name) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText Como podrán ver, esta acotación es auditiva, ya que posee el formato de las frases auditivas pero, ¿por qué hay un &name ? Deben recordar que name es igual a la respuesta que pondrán en la barra de diálogo que en el código comienza con name. Ej.: Rigoberta está usando este programa. Windows le dice: "What is your name?" Y le aparece la barra de diálogo con esa pregunta. Ella escribe: "Rigoberta" Luego le da al ENTER y escuchará nuevamente a Windows: "Nice to meet you, Rigoberta" En el anterior ejemplo podemos observar lo susodicho. En este caso: StrText=("How are you feeling, " &name) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText feeling=inputbox("How are you feeling, " &name) StrText=( "Why are you feeling " &feeling) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText why=inputbox( "Why are you feeling " &feeling) Se esta utilzando la variable "name" al final de la pregunta "How are you felling" en forma auditiva y escrita (barra de diálogo). De forma que la pregunta en forma auditiva queda: "How are you felling, Rigoberta" Si nos fijamos, en la siguiente: feeling=inputbox( "How are you feeling, " &name) Se está agregando otra variable, esta vez con el nombre "felling". Si lo pensamos, el códio anterior diría que la variable "felling" es igual a la respuesta de: "How are you felling, Rigoberta" ( En este caso ) Es decir, que si Rigoberta responde: "good", la variable felling sera igual a "good". Luego esa variable se utiliza en el programa en forma auditiva: StrText=( "Why are you feeling " &feeling) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText Y en forma escrita (barra de diálogo): why=inputbox( "Why are you feeling " &feeling) Donde "why" también es una variable, que en este programa de ejemplo no se utilizará. Entonces la pregunta quedaría así: "Why are you felling good" (en este caso) Y las últimas frases son todas auditivas: StrText=( "I am going to come back" ) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText StrText=( "Your computer needs me" ) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText StrText=( "Bye Bye" ) set ObjVoice = CreateObject( "SAPI.SpVoice" ) ObjVoice.Speak StrText Ahora saben como hacer que su PC "hable" con ustedes. ¿Qué esperan para hacer su propio cuestionario, mostrárselo a alguien ,y disfrutar que es un programa 100% hecho por vos...? Siempre y cuando se acuerden de quien se los explicó. Espero que les haya gustado Comenten!!!