Go to content Go to menu
 


en este video les voy a mostrar como hacer que tu computadora hable contigo al querer habir un programa y te haga preguntas.

el problema aqui es que mi computadora esta en ingles y por eso le tuve que escribir en ingles.

el codigo es este:




StrText=("Hi, my name is Microsoft Sam")
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=("Gotta Go. Bye")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText

 

 

 

Comments

Add comment

Overview of comments

luis

(luis, 2011-10-19 20:46)

luis

4T4T

(T4T, 2010-11-22 21:53)

4T4T

rtr

(lucas, 2010-11-22 21:52)

hola como estas

pawerrs

(carloz, 2010-06-19 19:59)

ola amigo solo queria haber si sabes una pagina chida donde esten los virus fregones para descargar , grasias, fregonn,

mi correo: america-zid@hotmail.com saludos!!

Hacker

(Colibri, 2010-01-29 15:40)

Kiero saber como hackiar un MySpace

Chat

(yadiek, 2010-01-29 15:34)

www.musikologos.com

......

(ina_rap, 2009-12-04 18:52)

ah y si que se puede cambiar el idioma :D eres una pasada tioo

...... :O

(ina_rap, 2009-12-04 18:50)

:O que pasadaaaaaa!!!!! es increibleee