ELEMENTOS DEL LENGUAJE II

4.1.- ARRAYS Y FUNCIONES ASOCIADAS

Un array permite referirse a una serie de elementos del mismo tipo por un mismo nombre y referenciar un único elemento de la serie utilizando un índice. Los arrays deben ser declarados explícitamente.

ARRAYS ESTÁTICOS

Para declarar un array estático, formado por un número fijo de elementos, Visual Basic utiliza una sintaxis parecida a la declaración de variables. Veamos algunos ejemplos:

ARRAYS DINÁMICOS

Para declarar un array dinámico, formado por un número variable de elementos, Visual Basic utiliza una sintaxis parecida a la declaración anterior. El espacio necesario para un array dinámico será asignado durante la ejecución del programa. Un array dinámico puede ser redimensionado en cualquier momento durante la ejecución. Para redimensionarlos se utiliza la sentencia ReDim. Esta sentencia puede aparecer solamente en un procedimiento y permite cambiar el número de elementos del array, no el número de dimensiones. Por ejemplo:

Cada vez que se ejecuta la sentencia ReDim, todos los valores en el array se pierden. Cuando interese conservar los valores del array, se utilizará la sentencia ReDim Preserve. Sólo se puede cambiar el límite superior de la última dimensión.

FUNCIONES ASOCIADAS

LBound

Devuelve el índice más bajo posible de un array.

UBound

Devuelve el índice más alto posible de un array.

En general, la orden

LBound(Nombre_Matriz, I)

da el límite inferior para la dimensión Y (para un array unidimensional, la I es opcional). Por tanto, en el siguiente ejemplo:

Dim Test%(1 To 5, 6 To 10, 7 To 12)

Print LBound(Test%, 2)

devuelve un 6 y,

Print UBound(Test%, 3)

devuelve un 12.

Las órdenes LBound y UBound permiten copiar arrays de diferentes límites, siempre que el número total de filas y columnas sea el mismo. (Al sustraer LBound de UBound para cada dimensión, se puede comprobar si coinciden)

1. Crear una aplicación que permita crear un cuadrado mágico. Un cuadrado mágico es aquel en el que todas las filas, columnas y diagonales principales suman lo mismo. Para resolver el ejercicio se utilizará el argumento de Loubère, que funciona solo con cuadrados mágicos impares:

• Colocar 1 en el centro de la primera fila.
• Los números se colocan en orden moviéndose hacia arriba en diagonal hacia la derecha.
• Si se sale por la parte superior se sustituye por el lugar correspondiente de la fila inferior.
• Si se sale por la derecha se sigue en la posición correspondiente de la columna izquierda.
• Si se llena el cuadrado o se alcanza la esquina superior derecha, desplazarse hacia abajo y continuar con las reglas.

17 24 1 8 15

23 5 7 14 16

4 6 13 20 22

10 12 19 21 3

11 18 25 2 9

2. Crear una aplicación que permita obtener el elemento mayor de una matriz cuadrada de dimensión cualquiera. Los elementos de la matriz serán números entre el 1 y el 1000 introducidos aleatoriamente.

4.2- FUNCIONES Y PROCEDIMIENTOS

Para evitar duplicar código en los procedimientos de evento, se deben utilizar los procedimientos generales. Éstos deben escribirse como un procedimiento Sub o como una función Function.

Cuando un procedimiento es llamado para su ejecución, Visual Basic lo busca en el formulario o en el módulo donde se encuentre en ese momento. Si no lo encuentra, continúa la búsqueda en el resto de los módulos de la aplicación.

Para crear un procedimiento general, desde la ventana de código se accederá a Insertar/Nuevo Procedimiento.

Las funciones en Visual Basic son declaradas en los módulos o en la sección de declaraciones de un formulario y devuelven un valor al procedimiento que la invocó. La sintaxis empleada es la siguiente:

[Private | Public] [Static] Function nombre [(lista_argumentos) ] [As tipo]

[Declaraciones]

[nombre = expresión]

[Exit Function]

[Declaraciones]

[nombre = expresión]

End Function

Los procedimientos generales necesitan ser invocados explícitamente para poder ser ejecutados. No devuelven ningún valor. La sintaxis para declarar procedimientos generales es:

[Private | Public] [Static] Sub nombre [(lista_argumentos) ]

[Declaraciones]

[Exit Sub]

[Declaraciones]

End Sub

donde:

• Public indica que el procedimiento es accesible desde otros procedimientos en cualquier módulo. Si se utiliza en un módulo privado, no estará disponible fuera del proyecto.
• Private indica que el procedimiento solo es accesible desde los procedimientos del módulo en que está declarado.
• Static indica que las variables locales al procedimiento mantendrán el valor entra llamadas al procedimiento.
• Lista_argumentos es una lista de los argumentos que se pasan al procedimiento. Los argumentos múltiples van separados por comas. Puede tomar la forma siguiente:

[[Optional] [ByVal | ByRef] [ParamArray] varnombre [( )] As tipo]

• Optional indica que el argumento no se necesita. Todos los argumentos opcionales deben ser de tipo Variant.
• ByVal indica que el argumento es pasado por valor.
• ByRef indica que el argumento es pasado por referencia.
• ParamArray utilizado para indicar que el argumento final es una lista opcional de argumentos. Proporciona una forma de pasar un número arbitrario de argumentos. No puede utilizarse con ByVal, ByRef o con Optional.

La forma de llamar a una función es

var = nombre_función([argumentos] )

La forma de invocar a un procedimiento es utilizando cualquiera de las dos formas siguientes:

Call nombre_procedimiento[(argumentos)]

nombre_ procedimiento [argumentos]

PASO DE PARÁMETROS

Por defecto, los argumentos son pasados por referencia.; de este modo cualquier cambio de valor que sufra un parámetro en el cuerpo de la función o del procedimiento también se produce en el argumento correspondiente de la llamada a la función o procedimiento.

Cuando se llama a una función o a un procedimiento, se podrá especificar que el valor de un argumento sea pasado por valor, poniendo dicho argumento entre paréntesis en la llamada. Otra forma de especificar que un argumento será siempre pasado por valor es anteponiendo la palabra ByVal a la declaración del parámetro en la cabecera del procedimiento.

• Crear una aplicación que permita calcular el factorial de un número. Utilizar funciones o procedimientos.

 

• Crear un procedimiento que permita separar en palabras una frase dada.

 

• Crear un procedimiento que, dada una frase, permita devolver la misma frase invertida.

 

• Obtener un procedimiento capaz de determinar si una palabra es palíndroma (capicúa).

 

• Diseñar una aplicación que permita al usuario introducir valores en una lista desplegable y, obtenga la suma de dichos valores.

 

• Crear una aplicación que permita al usuario escoger entre ordenar valores ascendente o descendentemente. Los valores se introducirán en una lista desplegable y, el resultado se mostrará en otra lista. Sólo se permite la introducción de valores numéricos.

 

• Diseñar una aplicación que permita simular un tragaperras de forma que, cuando el usuario pulse el botón de jugar, se descuente de la cantidad introducida el valor de la jugada y, se muestren aleatoriamente las figuras del premio. Transcurrido unos segundos, las imágenes se deben detener y se procederá a comprobar si ha tocado premio, en cuyo caso se incrementará la cantidad ganada.

 

• Diseñar una aplicación que utilice procedimientos para hacer el siguiente juego de palabras:

• Todas las palabras de una letra permanecen iguales.
• Las palabras que empiezan por vocal, se les añade el sufijo "way".
• Las palabras que empiezan por una cadena de consonantes se traslada la consonante al final y se les añade el sufijo "ay".
• Cualquier q movida por la regla anterior se lleva la u con ella.
• No hay más consonantes.

4.3- MATRICES DE CONTROLES

Una Matriz de Controles es un grupo de controles que comparten el mismo nombre y tipo. A su vez, comparten los mismos procedimientos de eventos, pero son controles físicamente separados y cada uno posee su propio conjunto de propiedades. Una matriz de controles tiene al menos un elemento y no puede exceder de 254. Para crear una matriz de controles es suficiente con asignar el mismo nombre a dos o más controles (propiedad Name) durante el diseño de la aplicación, o bien asignar un valor a la propiedad Index de un control. En el último caso se genera una matriz de un solo elemento, lo cual es útil cuando se quieren crear controles en tiempo de ejecución. Cuando Visual Basic crear una matriz de controles, asigna por defecto los índices 0, 1, ..., los cuales pueden modificarse a voluntad del usuario cambiando el valor de la propiedad Index. Esta operación solo puede hacerse durante el diseño.

Cuando cualquier control de la matriz reconoce un suceso, Visual Basic pasa el índice como argumento extra y, sirve para determinar que control ha recibido el suceso. Un elemento de la matriz de controles puede referenciarse escribiendo NombreMatriz(Index)

AÑADIR Y RETIRAR CONTROLES EN TIEMPO DE EJECUCIÓN

Una vez se ha creado una matriz de controles durante el diseño, se pueden añadir controles mientras se ejecuta la aplicación. Cuando Visual Basic crea un nuevo control en una matriz de controles, el objeto es invisible. El resto de propiedades se copian del elemento de la matriz con menor índice. Como lo controles creados se apilan unos sobre otros, deben moverse con el método Move.

Para eliminar elementos de una matriz de controles, se utilizará la sentencia

Unload Nombre_Matriz(índice)

1. Crear una aplicación que permita simular un tablero de juego tres en raya. Cada vez que el usuario haga clic sobre un cuadrado, la aplicación debe controlar si el cuadrado ya está marcado y, si no lo está, lo marcará con la señal del jugador. En caso de hacer tres en raya, dar un mensaje de felicitación.

 

1. Diseñar una aplicación que muestre en su formulario tres botones con el texto "+6%", +13%", "+33%" respectivamente. El usuario debe ser capaz de escribir en una caja de texto el valor de una cantidad determinada y, al seleccionar cualquiera de los porcentajes, la aplicación debe mostrar el tanto por ciento correspondiente y, la suma de dicho valor. Si la cantidad introducida por el usuario supera los 100.000.000, debe aparecer otro botón con el texto "+54%" y, si la cantidad es menor, debe desaparecer.

 

1. Diseñar una calculadora científica utilizando matrices de controles. Se debe poder obtener cualquier operación aritmética básica: sumar, restar, multiplicar y dividir. Llevar un control de la memoria. Obtener la raíz cuadrada y el tanto por ciento de un número. Debe permitir un encendido/apagado de la calculadora (p.e. un botón que inicialmente muestre ON y, una vez pulsado, visualice un cero en la pantalla y, en el botón, el texto OFF)

 

1. Se pretende realizar una aplicación que permita al usuario llevar la gestión de sus apuestas en la Lotería Primitiva. Para ello, la aplicación debe permitir marcar seis números seleccionados al azar entre el 1 y el 49. Se pretende que el botón correspondiente a "Marcar" seleccione seis números al azar y, los marque en las casillas adecuadas (equivalente al menú Apuesta / Marcar). El botón "Nueva apuesta" debe permitir desactivar las casillas marcadas en la apuesta anterior (Apuesta / Nueva). La aplicación debe tener un formulario inicial con el nombre del alumno, de forma que, transcurridos 5 segundos, muestre el formulario de la Primitiva.

VARIABLES DE OBJETO

Igual que se tienen variables para manipular enteros, cadenas, etc. se pueden utilizar variables para manipular objetos de Visual Basic. Utilizando variables objeto se podrá crear en tiempo de ejecución múltiples instancias de formularios, escribir procedimientos que modifiquen cualquier formulario o control y construir arrays de formularios. Un ejemplar o instancia de un formulario es una copia que existe con independencia del original. Una variable objeto no contiene una copia de un objeto, sino una referencia a dicho objeto.

Para declarar una variable objeto se utiliza la sintaxis:

{Dim | ReDim | Static} VarObj As [New] TipoObj

donde TipoObj puede ser: un formulario existente o las palabras reservadas Form, Control MDIForm, TextBox, ...

Para asignar un objeto específico a una variable objeto, se utiliza la sentencia Set:

Set VarObj = RefObj

Cuando una variable objeto no se refiere a un determinado objeto, tiene asignado el valor especial, Nothing.

Para pasar una variable objeto a un procedimiento se debe definir en la cabecera del procedimiento los parámetros que se necesitan de tipo de objeto genérico (Form, Control y MDIForm) y específico (TextBox, etc.). Un parámetro declarado de tipo Form puede actuar sobre cualquier formulario, un parámetro declarado de tipo Control puede operar sobre cualquier control.

Para determinar el tipo de una variable objeto se puede utilizar alguna de las sentencias siguientes:

{If | ElseIf} TypeOf VarObj Is TipoObj Then

Una colección se define como un grupo de objetos. Visual Basic provee de colecciones que se pueden utilizar para acceder a todos los formularios de una aplicación, o a todos los controles de un formulario particular. Una aplicación tiene una colección de formularios global y cada formulario tiene una colección de controles.

La colección de formularios contiene los formularios cargados. La sintaxis para referirse a la colección de formulario es:

Foms(índice)

donde índice es un valor entre 0 y Forms.Count -1. La propiedad Count devuelve el número de formularios en la colección.

La colección de controles permite referirse solamente a los controles cargados en un formulario. Cuando en un formulario hay array de controles, cada elemento de cada array es incluido en la colección. La sintaxis para referirse a la colección de controles es:

[formulario.] Controls(índice)

donde índice es un valor entre 0 y Controls.Count -1.

Visual Basic provee de cinco objetos especiales para obtener información acerca del entorno en el cual se está trabajando. Estos objetos son:

App Suministra información específica de la aplicación.

Clipboard Permite manipular texto y gráficos a través del portapapeles.

Debug Permite enviar información a la ventana de depuración.

Printer Permite enviar texto y gráficos a la impresora.

Screen Indica el formulario activo, control activo y otros datos.

4.4- LAS HERRAMIENTAS DE DEPURACIÓN

Cuando se realiza una aplicación se pueden presentar tres clases de errores:

• Los errores de sintaxis son el resultado de escribir incorrectamente una sentencia. Para activarlos tan pronto como se producen se debe tener activada la opción Herramientas/Opciones/Ficha Entorno/Verificación Automática de Sintaxis.
• Los errores de ejecución ocurren cuando al ejecutar una aplicación una sentencia intenta una operación imposible de realizar.
• Los errores lógicos se producen cuando siendo la aplicación sintácticamente correcta, se ejecuta sin producirse errores en tiempo de ejecución, pero los resultados obtenidos no son correctos.

DEPURACIÓN

Durante el diseño y puesta en marcha de una aplicación, hay tres modos en los que se puede estar: diseño, ejecución y pausa.

• Modo Diseño, caracterizado porque en él se realiza la mayor parte del trabajo de creación de la aplicación. Para pasar al modo ejecución, se ejecutará Ejecutar/Inicio, se pulsará F5 o se hará clic en el icono Ejecutar; para pasar al modo pausa se ejecuta la orden Ejecutar/Paso a paso por instrucciones, Ejecutar/Paso a paso por procedimiento, pulse F8, pulse Mayús + F8, hacer clic en el icono Paso a paso o en el icono Paso procedimiento.
• Modo Ejecución caracterizado porque la aplicación toma el control. Para pasar al modo de diseño, se accederá a Ejecutar/Terminar o se hará clic en el icono Detener; para pasar al modo pausa, se pulsará el icono pausa.
• Modo Pausa caracterizado por permitir ejecutar la aplicación paso a paso. Para pasar de este modo al de ejecución, se accederá a Ejecutar/Inicio, pulsar la tecla F5 o se hará clic en el icono Ejecutar. Para pasar al modo de diseño se accederá a Ejecutar/Terminar o se hará clic en el icono Detener.

Para depurar una aplicación, se debe entrar en el modo pausa. Para ejecutar el código paso a paso desde un punto determinado, se insertarán puntos de parada, que detienen la ejecución de la aplicación pasando del modo de ejecución al de pausa.

VENTANA DE DEPURACIÓN

Para poder mostrarla se accede a Ver/Ventana Depuración. Sirve para poder visualizar los valores de las expresiones y poderlas verificar. Para ello, desde la ventana de depuración se podrá utilizar la sentencia Print o ? o utilizar la orden Herramientas/Agragar Inspección. También es posible mediante código, insertar sentencias del tipo:

Debug.Print Var_A_Depurar

1. Diseñar una aplicación que permita utilizar las herramientas de depuración. Para ello, la aplicación ordenará alfabéticamente 5 nombres. Utilizar las herramientas de depuración para depurarlo.

2. Diseñar una aplicación que permita realizar una inversión de 1000 Pts al 7% durante 12 años, lo que debe dar una resultado de: inversión * (1 + Interés/100)Años = 1000 * (1 + 0,07)12 = 2252,19 Pts. El formulario estará formado por 4 cajas de texto y un botón de comando. Añadiremos las etiquetas necesarias para una mejor comprensión.

4.5- CONTROL DE ERRORES EN TIEMPO DE EJECUCIÓN

Cuando se produce un error en tiempo de ejecución, Visual Basic detiene la aplicación. Para habilitar la captura de errores en tiempo de ejecución para su uso posterior, se tendrá que utilizar la sentencia:

On Error GoTo...

donde los tres puntos indican la etiqueta que define la captura del error. El código etiquetado debe estar en el procedimiento actual. Una etiqueta es un identificador que finaliza con dos puntos. Para que no se ejecute la rutina de tratamiento de errores cuando la aplicación funcione bien, es aconsejable tener una salida (Exit Function, Exit sub, etc.) en la línea inmediatamente anterior a la rutina de tratamiento.

En caso de que el error pueda corregirse, la sentencia Resume lleva a la instrucción que provocó el error inicialmente. Si no puede resolverse, se puede identificar el error con la función Err, que devuelve el entero asociado al último error producido.

La sentencia Resume Next permite saltarse la instrucción que provocó el error y, se comienza a procesar la instrucción inmediatamente posterior a la que ha causado el problema. También se puede restaurar la ejecución a cualquier punto mediante la sentencia Resume Etiqueta.

Para conocer el mensaje del error producido, se puede utilizar la función Error$.

Para desactivar la captura de errores, se utiliza la sentencia:

On Error GoTo 0