Curso de Intranet

Cursos Relacionados:

8. Ejemplos

Vamos a ver algunos ejemplos.

Uso de la función CBOOL

<HTML>
<HEAD>
<TITLE>
Prueba de funciones de conversión.
</TITLE>
</HEAD>
<BODY>

<SCRIPT LANGUAGE = "VBScript">
    OPTION EXPLICIT
    DIM variable
    variable = 1
    MSGBOX (CBOOL (variable))
</SCRIPT>

</BODY>
</HTML>

El resultado de este código será el siguiente:

La función CBOOL en particular devuelve un valor falso si el argumento es 0 y un valor verdadero si el argumento es cualquier otro número.

Una observación acerca de las conversiones entre subtipos numéricos. Si un número que convertimos, p.e., a Byte es muy grande para caber en este subtipo, se truncará. Supongamos la siguiente sentencia: numero = CBYTE (567.384.896.456,29) . Esto es claramente una irregularidad, ya que el número es demasiado grande para ser di subtipo Byte.

Veamos mas ejemplos:

Uso de Funciones de cadena: Instr y Mid

<HTML>
<HEAD>
<TITLE>Prueba de funciones de cadena.</TITLE>
</HEAD>
<BODY>

<SCRIPT LANGUAGE = "VBScript">
    OPTION EXPLICIT
    DIM variable
    DIM parte_central
    variable = CHR (65)
    DOCUMENT.WRITE ("Valor de CHR (65): " & variable & "<BR>")
    variable = "Alfa"
    parte_central = INSTR (variable,"l")
    DOCUMENT.WRITE (parte_central & "<BR>")
    Variable = "Manzana"
    Parte_central = MID (variable, 3, 2)
    DOCUMENT.WRITE (parte_central)
</SCRIPT>

</BODY>
</HTML>

Haz clic aquí para ver esta página: ejemplo de funciones de cadena. Como resultado nos aparece en pantalla lo siguiente:

Valor de CHR (65): A
2
nz

Fíjate en la segunda línea. Es el resultado de la función INSTR. Si analizamos la correspondiente línea de código veremos que esta función recibe dos argumentos. El primero es la cadena (o variable que la contiene) donde hay que buscar algo. El segundo es la cadena (o variable que la contiene) que hay que buscar dentro. El número que devuelve como resultado (en este caso el 2) es la posición que ocupa la segunda cadena dentro de la primera.

Ahora observa la última línea, con el texto nz. Es el resultado de aplicar la función MID. Observa la correspondiente línea de código. Ves que esta función recibe tres argumentos. El primero es una cadena (o la variable que la contiene) de la que se extraerá una sub-cadena. El segundo es un número (o una variable que contiene un número), que indica que lugar de la cadena iniciará la sub-cadena. El tercero es un número (o una variable que contiene un número) que indica cuantos caracteres se cogerán para la sub-cadena. Hay que puntualizar que la cadena original no sufre amputación ni transformación de ningún tipo.

Otro ejemplo:

Funciones matemáticas

<HTML>
<HEAD>
<TITLE>Prueba de funciones matemáticas.</TITLE>
</HEAD>
<BODY>

<SCRIPT LANGUAGE = "VBScript">
OPTION EXPLICIT
RANDOMIZE

    DIM numero
    numero = 0
    DO UNTIL numero > 0
        numero = INPUTBOX ("Introduzca un número")
        IF (NOT ISNUMERIC (numero)) THEN
            numero = 0
        END IF
    LOOP

    DOCUMENT.WRITE ("El número es: " & numero & "<BR>")
    numero = INT (numero)
    DOCUMENT.WRITE ("La parte entera es: " & numero & "<BR>")
    DOCUMENT.WRITE ("El valor hexa es: " & HEX (numero) & "<BR>")
    DOCUMENT.WRITE ("Un número aleatorio es: " & RND() & "<BR>")
</SCRIPT>

</BODY>
</HTML>

Haz clic aquí para ver esta página: ejemplo de funciones matemáticas Este programa nos pide un número por teclado como ya conocemos. Supongamos que introducimos 45,7. Los resultados serán los siguientes:

El número es: 45,7
La parte entera es: 45
El valor hexa es: 2D
Un número aleatorio es: 0,1896936

La primera línea nos muestra el número que hemos introducido. La segunda nos muestra el resultado de obtener la parte entera con la función INT, la tercera línea nos muestra el valor hexa de 45. Finalmente la cuarta línea es un número aleatorio generado con RND(). Esta función siempre genera un número aleatorio que está entre 0 y 1. Observa que el código incluye la instrucción RANDOMIZE.

Observa también que se ha usado la función ISNUMERIC para anular la entrada por teclado si lo que se introdujo no es un número. En este caso se ha precedido la función del operador lógico NOT. Consulta el Apéndice C para obtener mas información respecto a los operadores.

Otro ejemplo mas:

Funciones de fecha

<HTML>
<HEAD>
<TITLE>Prueba de una función de fecha</TITLE>
</HEAD>
<BODY>

<SCRIPT LANGUAGE = "VBScript">
    OPTION EXPLICIT
    DIM fecha
    fecha = DATE ()
    IF (WEEKDAY (fecha, VBMONDAY) = 7) THEN
        DOCUMENT.WRITE ("Hoy es domingo.")
    ELSE
        DOCUMENT.WRITE ("Hoy se trabaja.")
    END IF
</SCRIPT>

</BODY>
</HTML>

Este código recoge, en primer lugar, la fecha del sistema. Si la fecha corresponde a un domingo, muestra:

Hoy es domingo.

En caso contrario, muestra:

Hoy se trabaja.

Para hacer esto, utiliza la función WEEKDAY, indicando, como primer día de la semana, el Lunes.

GENERALIDADES FINALES

Recuerda, las tres diferencias básicas entre funciones de usuario y procedimientos son:

1. La función de usuario se define entre las instrucciones FUNCTION y END FUNCTION. El procedimiento se define entre SUB y END SUB.

2. Las funciones (de usuario y del lenguaje) devuelven un resultado. Los procedimientos, no.

3. La forma de invocar una función es con su nombre seguido de paréntesis. Si la función recibe argumentos, éstos van entre los paréntesis. Para invocar un procedimiento hay dos formas. La primera es el nombre del procedimiento seguido de los argumentos, si los hay, separados por comas. La segunda es la palabra clave CALL, seguida del nombre del procedimiento, seguido éste, a su vez de paréntesis. Si hay argumentos, éstos van entre los paréntesis, seguidos por comas.

Inscríbete ahora y accede a 3 unidades gratis

Evalua el curso de Intranet y accede a las 3 unidades gratis con acceso completo al aula virtual donde podrás disfrutar de la inestimable ayuda del tutor y una gran variedad de recursos como videotutoriales, ejercicios resueltos, foros, enlaces, bibliografía, etc....

< 6.- 7. Bucles Volver al curso de Intranet 8.- Ejercicios >

Si desea obtener un acceso sin restricciones a los contenidos del curso de Intranet y disfrutar de todas las herramientas del aula virtual (Videos explicativos streaming, acceso a los foros, chat, ejercicios resueltos, la ayuda del tutor, audioconferencia, estudio de grabación, test y actividades de autoevaluación, etc...) puede inscribirse completamente gratis y comenzar a realizar de forma inmediata el curso.