docs

UNIVERSIDAD MAYOR DE SAN ANDRES
FACULTAD TECNICA
CARRERA DE ELECTRICIDAD

22

CAPITULO 4
PROGRAMACION MODULAR
4.1 Introducción
Uno de los métodos más eficaces para resolver un problema complejo es dividirlo en módulos más pequeños
con la finalidad de que sean más fáciles de resolver, siguiendo la filosofía “divide y vencerás”. Esta fórmula se
denomina diseño descendente y el método sedenomina programación modular.
La programación modular tiene varias ventajas, entre las cuales podemos mencionar:
1.
2.
3.
4.

Son fáciles de escribir y depurar.
Permiten dividir un programa grande en pequeños módulos.
Minimiza la probabilidad de errores, al tener cada función sus propios datos y ser independientes.
Los módulos de un programa pueden ser reutilizados por otros programas,con poca o ninguna modificación.

Los principales módulos que soporta VB son:
• Funciones
• Procedimientos
4.2 Funciones
Se denomina función a un subprograma que recibe valores de uno o varios argumentos y devuelve un resultado
único. Puede, además, ser utilizada como una expresión.
4.2.1.- Creación de funciones
La creación de una función se realiza de la siguiente forma:
En el menúherramientas de VB, seleccionamos la opción “Agregar procedimiento”, para mostrar el cuadro de
diálogo que se ve en la figura siguiente:

•
•
•
•

En la caja de texto se introduce el nombre del procedimiento.
Elija procediendo o función. Las otras opciones Propiedad y Evento se usan cuando se crean objetos.
Con Alcance se hace que el procedimiento sea público o privado.
La última opción,hace que todas las variables del procedimiento contengan sus valores.

Una función tiene la siguiente sintaxis:
[Public | Private ] Function nombre [(lista argumentos)] [As tipo]
[instrucciones]
[Exit Function]
[instrucciones]
[nombre=expresión]
End Function
Donde:

Duberty Silva

UNIVERSIDAD MAYOR DE SAN ANDRES
FACULTAD TECNICA
CARRERA DE ELECTRICIDAD

•
•
•
•
•

23Public, Private: Opcional. Indica que el procedimiento Function es accesible para todos los demás
procedimientos de todos los módulo o no.
Nombre: Es el nombre que se asigna a la función.
Lista argumentos: Opcional. Lista de variables que representan argumentos que se pasan al
procedimiento Function cuando se llama. La variables múltiples se separan por comas.
As tipo: Es el tipo de dato quedevolverá la función.
Nombre = expresión: Es el valor que se pasa desde la función, asignándola al nombre de la función.
(muy importante).

Para llamar a una función, se la invoca de igual forma que una función propia de VB, como: COS, SIN, etc. Se
tendrá cuidado que el nombre de la función concuerde con el tipo de valor que devuelve.
Ejemplo 4.1: Realizar un programa que calcula la hipotenusa deun triángulo rectángulo.

El programa tiene las siguientes sentencias:
Public Function hipotenusa(a As Single, b As Single)as Single
hipotenusa = Sqr(a ^ 2 + b ^ 2)
End Function
Private Sub cmdNuevo_Click()
txta.Text = ""
txta.Locked = False
txtb.Text = ""
txtC.Text = ""
txta.SetFocus
End Sub
Private Sub txtb_Change()
Dim a As Single

Nota:
•
•
•
•
•
•

Dim b As Single
a= Val(txta.Text)
b = Val(txtb.Text)
txtC.Text = hipotenusa(a, b)
End Sub
Private Sub txta_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then txtb.SetFocus
End Sub
Private Sub txtb_KeyPress(KeyAscii As Integer)
txta.Locked = True
If KeyAscii = vbKeyReturn Then cmdNuevo.SetFocus
End Sub

La codificación del botón salir lo hará el estudiante.
La creación de la función“hipotenusa” se la realiza de forma indicada en párrafos anteriores.
Tenga cuidado al copiar el programa, note que programa principal se efectúa en la caja de texto del
lado b.
Los dos botones comando son respectivamente, para realizar un cálculo nuevo y para salir, deben tener
activada las propiedades “tooltiptext” con el mensaje explicativo.
El botón salir debe mostrar otra imagen cuando es...