scrip en .vbs

hola amigos



espero no estar en la seccion equivocada.



para empesar les comento que no se nada de sobre eso de los script, pero luego de esto que encontre en internet me dio curiosidad por aprender, aqui esta:





Randomize

x=CInt (1 + Int(Rnd()*19))

msgBox(x)



Do



t=CInt(InputBox("¿Cual es el numero"))



If x<t Then r=MsgBox("El numero es Menor.")

If x>t Then r=MsgBox("El numero es Mayor.")

Loop Until x=t







No recuerdo la pagina en la que estaba, pero quien lo puso decia que es un juego, en formato de script, o algo asi, que si lo guardas en formato ".vbs" y lo ejecutas te sale un pequeño juego, y bueno yo lo hice y si, sale un juego con numeros, tienes que poner el numero que te muestra al principio, si pones un numero mayor o menor al numero que te mostró, te aparece una ventana diciendote que el numero es mayor o menor al que pusiste, segun sea el caso.



ahora la curiosidad que tengo es, si en ves de que tengas que poner numeros, podria ser una palabra o una frase?? no se si me hago entender. XD



bueno espero alguien me responda ya que como les digo no se nada sobre esto, pero aun asi sin saber nada le hice algunas modificaciones, ya que me parecio vastante intuitivo en hasta cierto punto miren aqui les dejo la modificacion que le hice:





MSgBox("Este juego conciste en encontrar el numero que esta oculto del 1 al 19")

MsgBox("puedes empesar probando con este numero guia")

Randomize

x=CInt (1 + Int(Rnd()*19))

msgBox(x)



x=CInt (15)



Do



t=CInt(InputBox("¿Escribe abajo el numero guia y das clic en aceptar el programa te indicara si el numero oculto es mayor o menor al que pusiste"))



If x<t Then r=MsgBox("El numero oculto es Menor.")

If x>t Then r=MsgBox("El numero oculto es Mayor.")

Loop Until x=t

MsgBox("Ganaste!!!! (15) es el numero oculto")





como veran, aqui ya no tienen que poner el numero que les muestra al principio, sino que tienen que encontrar el numero que yo asigné que es el 15, y el numero que les muestra al principio solo lo toman como guia jejej, no creen que asi es mejor que el anterior???



bueno espero me ayuden



gracias



saludos

Compañero no entendi bien tu pregunta, podrias resumirla un poco?

Segun lo que entendi quieres generar frases aleatorias, pero no estoy seguro.



Saludos

Mira este ejemplo q he hecho quizas es lo que querias:

Código:

dim palabra

dim x

dim pista

pista = 3

x = 4

palabra = ""

e=MSgBox("Este juego consiste en adivinar la palabra oculta",0,"Bienvenido")

q=msgbox("La palabra empieza por: V",0,"Juego")

DO WHILE (entrada <> "g")

pista = pista - 1

 palabra = inputbox ("Dime la palabra","Adivina la palabra &#39;Magica&#39;","g",0,3) 

 if (palabra = "vino") then 

 * r=MsgBox("Ganaste la palabra era VINO!!!! ",0,"Felicidades")

 * *exit do

 end if

t=CInt(InputBox("Pon un NUMERO e intenta averiguar el numero de letras que tiene la palabra &#39;Magica&#39;.","Juego"))

if t=x then r=msgbox("Vas bien, la palabra tiene 4 letras")

If x<t Then r=MsgBox("La palabra tiene menos letras")

If x>t Then r=MsgBox("La palabra tiene mas letras")

 if (pista = "0") then

t=msgbox("La palabra empieza por V y acaba en O",0,"Pista")

else

end if

LOOP

Aparte de este tuto de vitrox tambien puedes mirar este otro tuto de vbs para ir aprendiendo

yo me leido ambos tutos (el segundo no tanto, solo lo util para hacerte el ejemplo) y no es tan dificil , cualquier duda ya sabes.



un saludo y ya nos diras como te a ido

Hola FranGK Maestro



jajaj que capo!!!



me chipe un poco con la pregunta pero tu si me entendiste, es exactamente a lo que me referia.



ahora estoy viendo los tutoriales y me parecen bastante buenos, era justo lo que buscaba.



gracias.



saludos

jajaja me alegro q buscaras eso , la verdad esq estaba un poco dificil saber lo q pedias jeje



weno pues ya nos pones dudas

saludos