|   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

___________________________

3.- Cálculos.

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

05MediaAritmetica.vbs

- Fíjate que para realizar la suma, he tenido que sumar el 0 + c1 + c2 + c3

ya que si no lo pongo, intrepreta que los números son caracteres de cadena y los concaneta.

05MediaAritmetica.vbs
c1 = InputBox ("Introduzca un número.")
c2 = InputBox ("Introduzca otro número.")
c3 = InputBox ("Introduzca el tercer número.")
media=(0 + c1 + c2 + c3) / 3

a=MsgBox ("La media de " & c1 & ", " & c2 & " y " & c3 & " es: " & media,,"Solución")

 

 

06Multiplicar.vbs

06Multiplicar.vbs
N=1
Do

N = InputBox ("Introduzca un número del 1 al 9.")
IF N<0 OR N>10 Then a=MsgBox ("Número no válido.")

Loop While N<0 OR N>10

For m=0 to 9
a=MsgBox(m & " x " & N & " = " & m*N)
Next

07Pitagoras.vbs

07Pitagoras.vbs
c1 = InputBox ("Introduzca el valor de un cateto")
c2 = InputBox ("Introduzca el valor del otro cateto")
h=sqr(c1*c1+c2*c2)

a=MsgBox ("La hipotenusa vale " & h,,"Solución")

 

08Coseno.vbs

08Coseno.vbs
G = InputBox ("Introduzca un ángulo en grados.")
R = G * 2 * 3.1416 / 360
ra = MsgBox("El ángulo en radianes vale: " &R)
seno=sin(R)
cose=cos(R)
sc= MsgBox("Su seno vale " &seno & Chr(13) & Chr(10) &"Su coseno vale " &cose)

 

09Multi.vbs

 

09Multi.vbs
N=1
Do

N = InputBox ("Introduzca un número del 1 al 9.")
IF N<0 OR N>10 Then a=MsgBox ("Número no válido.")

Loop While N<0 OR N>10

For m=0 to 9

a=CInt(N) & " x " & CInt(m) & " = " & CInt(N*m) & Chr(13) & Chr(10)
r=r&a
Next

msgBox("Tabla del " &N & Chr(13) & Chr(10) &r)

10DoUntil.vbs

10DoUntil.vbs
Do
a=InputBox("Escribe un nombre de persona." & Chr(10) & Chr(13) & "Estarás en el bucle hasta que escribas -juan-")
Loop Until a="juan"

 

 

_____________________

- 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