Curso de VBScript:

Entrega 1: Lenguajes de Scripts. VBScript

El HTML es un lenguaje de Marcas o Tags que nos permite programar páginas para ser interpetadas por los navegadores de Internet. Con pocos recursos podemos hacer aplicaciones que corran en páginas web abiertas en un navegador, si a esto le agregamos, scripts hechos en JavaScript o VBScript, mundos virtuales en Vrml, hojas de estilo en CSS, y la funcionalisdad de otros ActiveX y Applets, entonces le agregamos mayores posibilidades de Interacción con el usuario y de despliegue multimedia , de esto se trata el HTML Dinámico o DHTML.

Script: Guión.

Los scripts se construyen con lenguajes de script o guiones, un script es un conjunto de sentencias Interpretadas por un Navegador.

¿Qué necesitamos? para programar estos scripts y ejecutarlos:

- Navegador.

- Bloc de Notas.

Límites de un scripting o lenguaje de scripts: Trabaja sólo dentro de una página Web, insertado dentro del HTML. Estos lenguajes pueden ser VBScript y JavaScript. Nosotros vamos a comenzar con VBScript que es un subconjunto del lenguaje Visual Basic que ustedes ya conocen.

Ejercicio Nº 1:

Como todo Script va insertado en el código Html, abrimos las tags características de cualquier página en el Bloc de Notas, y a continuación insertamos el código de Script. Lo primero luego de la tag SCRIPT es decir, en que lenguaje de Script vamos a codificar si en VBScript como en este caso o en JavaScript. En este caso el código hace mención al objeto Document y al método Write que le da salida por pantalla. Equivalente al Print de Visual Basic y el Document es el documento que se despliega en la ventana por defecto: Window dentro del navegador.

<Html>

<HEAD><TITLE>

Nuestro primer Ejercicio en VBScript

</HEAD></TITLE>

<Script LANGUAGE="VBScript">

Document.Write "Bienvenido a VBScript"

</Script>

</HTML>

Al cargar la página en el Navegador esta se verá así:

Para ver el script en ejecución haga Click en el Botón:

Objetos: Manipula Objetos y se orienta a Eventos. Ej: Button, Text... Eventos OnClick, OnMouseOver... Estos objetos y los eventos que disparan los vamos a ir viendo en los ejemplos.

Declaración de Variables:

La variables se declaran en VBScript con la sentencia DIM, y son en realidad subtipos de la variable Variant, conocida en Visual Basic.

Tipos de datos:

- Boolean

- Byte

- Integer

- Long

- Object

- Single

- Double

- String

- Date/Time

- Error

A los tipos de datos enunciados arriba se les agregan los subtipos de variant: Null (Ningún dato) y Empty (Sin inicializar. Es un cero en contexto numérico y cadena vacía en cadena de caracteres).

Procedimientos Sub y Funciones:

Son Fragmentos de Código, subrutinas que luego se convocan. Las funciones regresan un valor.

Los comentarios en el código se insertan anteponiendo el apóstrofe: ' .

Para ocultar el código al Navegador, si este no soporta lenguajes de Script, porque es una versión antigua u otro navegador especial y no el MIE o Nescape la sintáxis es: pero debe ir luego de la tag <Script> al comenar la codificación del guión.

<!--

-->

Y entre estos signos se inserta el Script.

Estructura de Repetición:

Bucle: For... Next

Ejercicio Nº 2:

En este ejemplo vemos dentro del script la creación de la subrutina o procedimiento contar, dentro de este, dimensionamos la variable int para luego usarla como parte del bucle For/Next y desplegar en una caja de mensaje su valor. Fuera del Script vemos la convocatoria a un boton que activa el código del procedimiento contar, en su evento Click. El código es:

<Script Language="VBScript">

Sub contar

Dim intX

For intX = 1 to 4

MsgBox intX

Next

End Sub

</Script>

<Input Type= Button Value= "Contar" OnClick="contar">

Para ver el ejercicio en ejecución, haga Click en el Botón:

Características del entorno de programación:

• No hay un ambiente de desarrollo integrado como en Visual Basic.

• No hay un Editor de formularios.

• No hay un depurador que controla línea por línea.

Aspectos a tener en cuenta:

Scripts en Línea: Se colocan en cualquier lugar del código HTMl y el navegador los ejecuta en el orden que los encuentra.

Ejercicio 3: Script en línea

<HTML>

<TITLE>Uso de Scripts en Línea</TITLE>

<H2> Esto es contenido estático</H2>

<SCRIPT LANGUAGE="VBScript">

<!--

pepe= InputBox("Como te llamas?")

Document.Write "Hola" & pepe & " Esto es Contenido Dinámico"

-->

</SCRIPT>

<H3> Esto es más contenido estático.</H3>

</HTML>

Para ver el Ejemplo 3 en ejecución hacemos Click en el Botón:

Scripts en el Head Bloque: Si en cambio necesitamos crear una función o un Procedimiento o Subrutina, para ser convocada desde distintos lugares del código, lo hacemos en el encabezado y luego lo insertamos, llamandolo con un script.

Procedimientos de evento dentro del Bloque: Podríamos incluir distintos Procedimientos o Funciones dentro de un mismo Script, pero es más acertado identificar cada script para ver luego desde donde son llamados y poder detectar los errores más facilmente.

Modificación del archivo HTML durante su carga en el Navegador:

El objeto Document permite cambiar el contenido Html al cargarlo en el navegador, con los métodos Write y WriteLN.

Permite también ingresar tags o marcas dentro de la cadena:

<SCRIPT LANGUAGE="VBScript">

<!--

Dim strhobby

Dim strNombre

strNombre= prompt("Ingrese su Nombre", "Mirta")

strhobby=prompt("Ingrese su hobby favorito", "Viajar")

Document.Write "<H1>Bienvenido a la Página Web de " & strNombre & " </H1><BR><HR><BR>"

Document.Write "Mi hobby favorito es: " & "<BR>"

Document.Write "<UL><LI>" & strhobby & </UL></LI>

-->

</SCRIPT>

Si queremos agregar una línea en blanco al final de una línea, como un regreso de carro debemos usar el Método WriteLN con la etiqueta <PRE>, ya que el Navegador no reconoce saltos de línea en un archivo Html sin etiquetas.

Entrega 2: Entrada y Salida de Datos.

Cuadros de mensaje:

MsgBox

InputBox

Argumentos de MsgBox:

MsgBox texto, estilo, título

MsgBox "Este es el mensaje", vbOKCancel, "Este es el título"

Podemos cortar el texto del mensaje en varias líneas usando la sintáxis Chr(13) y Chr(10) con el concatenador &, como en Visual Basic.

Ejercicio Nº 4: MsgBox Hola Mundo

<HTML>

<HEAD><TITLE> Nuestro primer Ejercicio en VBScript </TITLE></HEAD>

<SCRIPT Language="VBScript">

MsgBox "¡Hola Mundo!",0,"Mi Primer Ejercicio en VBScript"

</SCRIPT>

</HTML>

Para ver el Ejemplo 4 en ejecución hacemos Click en el Botón:

Valores:

0: OK o Aceptar

1: OK y Cancel

2: Abort, Retry e Ignore

3: Yes, No y Cancel.

4: Yes y No

5: Retry y Cancel.

Agregando un Icono:

16: Crítico

32: Consulta

48: Mensaje

64: Información

Ejercicio Nº 5: Con un Icono.

<SCRIPT Language="VBScript">

Sub BotonHola_OnClick

MsgBox "¡Hola Mundo!",0 + 64,"Mi Primer Ejercicio en VBScript"

End Sub

</SCRIPT>

Para ver el Ejemplo 5 en ejecución hacemos Click en el Botón:

Devuelve un valor:

Determina en cuál botón hizo Click el usuario.

Valores de retorno de MsgBox:

1: OK

2: Cancel

3: Abort

4: Retry

5: Ignore

6: Yes

7: No

Ejercicio Nº 6: Valor de Retorno

<SCRIPT Language="VBScript">

<!--

mensaje=MsgBox("Desea Continuar?", 4 + 32)

If mensaje=6 then

Document.Write "Continuar"

Else

Document.Write"Interrumpir"

End If

-->

</SCRIPT>

Para ver el Ejemplo 6 en ejecución hacemos Click en el Botón:

Cuadros de Entrada: InputBox

Argumentos

InputBox( texto, título, predeterminado)

InputBox("¿Cómo se llama?", "Nombre", "Pepe")

Ejercicio Nº 7: Ingreso de Nombre

<Script language="VBScript">

<!--

strnombre=InputBox("Cuál es tu nombre?", "Nombre", "Mirta")

MsgBox "Hola " & strnombre

-->

</Script>

Para ver el Ejemplo 7 en ejecución haga Click en el Botón:

Tarea:

1) Escriba un script que le pida la edad al usuario y que la despliegue en un cuadro de mensaje.

2) Escriba un script que despliegue tres cuadros de mensaje diferentes, cada uno con un un icono distinto.

3) Escriba un script que despliegue tres cuadros de mensaje diferentes, cada uno con un juego de botones distinto.

4) Programa Edison :La aplicación debe tener un botón que al hacer Click abra un InputBox preguntando : ¿Quién descubrió la lamparita? luego chequear si la respuesta es correcta al ingresar el dato. La devolución es en un MsgBox, que dice Correcto o Incorrecto. Opcional agregarle la posibilidad de errar sólo 3 veces.

Para bajar la Aplicación Haga Click AQUÍ.

Volver al Menú