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"
|
_____________________
|