|   FOROS      |     Tutoriales    |     KIO4 |      
   Inicio B4A (Basic4Android) App inventor 2 WAMP - PHP - MySQL
   Elastix - VoIP Cosas de Windows Webs interesantes Arduino
  Estación meteorológica Visual Basic Script (VBS)    

 


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

Visual Basic Script, tutorial en español
Visual Basic Script - Juan Antonio Villalpando

-- Tutorial de iniciación a Visual Basic Script --

Volver al índice del tutorial

___________________________

4.- Lógica.

- Baja a tu ordenador estos archivos y ejecútalos:

11Adivina.vbs

 

11Adivina.vbs
Randomize
x=CInt(1 + Int(Rnd()*19))
msgBox(x)

Do

t=CInt(InputBox("Introduce un número del 1 al 20"))

If x<t Then r=MsgBox("Mi número es más pequeño.")
If x>t Then r=MsgBox("Mi número es mayor.")
Loop Until x=t
MsgBox("Has acertado")

' Hemos convertido los dos numeros al mismo tipo CInt.

12ANDOR.vbs

 

12ANDOR.vbs
N1 = InputBox ("Introduzca su edad")
N2 = InputBox ("Introduzca la edad de su amigo")

If (N1>18 OR N2>18) Then
Msgbox("Al menos uno de los dos es mayor de edad")
End If

If (N1>18 AND N2>18) Then
Msgbox("Los dos sois mayores de edad")
End If

_____________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información