visual basic programación orientada a objetos

Programación orientada a objeto (OOP)

Las ventajas de la programación orientada a objeto
La programación orientada a objeto, OOP (Object Oriented Programming) a partir de ahora, se trata de una
evolución de la programación procedural basada en funciones, que permite agrupar elementos de código
(rutinas y datos) con funcionalidades similares, bajo un sistema unificado de manipulación yacceso a
dichos elementos.

Del enfoque procedural al enfoque orientado a objeto
En la programación estructurada procedural, basada en procedimientos y funciones, el crecimiento de una
aplicación hace que el mantenimiento de la misma se convierta en una tarea difícil, debido al gran número
de procedimientos interrelacionados que podemos llegar a tener. El mero hecho de efectuar una
pequeñamodificación en un proceso, nos puede suponer el tener que recorrer un gran número de
funciones del programa, no relacionadas por un nexo común.

Abordando un problema mediante programación procedural
Tomemos el ejemplo de un programador al que le encargan el desarrollo de una aplicación para la
gestión de una empresa. Entre los diferentes cometidos a resolver, se encuentra el control de losempleados en lo que respecta a su alta, pago de sueldos, cálculo de vacaciones, etc.
El programador se pone manos a la obra, desarrollando una aplicación basada en un enfoque procedural.
Al llegar a los procesos relativos al empleado, va escribiendo las diferentes rutinas, distribuyéndolas
a lo largo de los diferentes módulos que componen el programa. Ver el Código fuente 200.
Module GeneralPublic psNombre As String
Public Sub Main()
'procedimiento de inicio del programa,
'aquí mostramos por ejemplo un menú
'para seleccionar alguno de los procesos
'del programa: altas de empleados,
'cálculo de nómina, periodos vacacionales, etc.
' ......
End Sub
Public Sub CalcularVacaciones(ByVal liIDEmpleado As Integer, _
ByVal ldtFechaInicio As Date, ByVal liNumDias As Integer)
'en esteprocedimiento calculamos
'el periodo de vacaciones del empleado
'pasado como parámetro
Dim ldtFechaFinal As Date
' ......
'
obtener el nombre del empleado en función de su identificador
psNombre = "Juan"
psApellidos = "Plaza"
' ......
'calcular la fecha final y mostrar
' el periodo vacacional
ldtFechaFinal = DateAdd(DateInterval.Day, liNumDias, ldtFechaInicio)Console.WriteLine("Empleado: {0} {1}", psNombre, psApellidos)
Console.WriteLine("Vacaciones desde {0} hasta {1}", _
Format(ldtFechaInicio, "dd/MMM/yy"), _
Format(ldtFechaFinal, "d/MMMM/yyyy"))
Console.ReadLine()
End Sub
'
otros procedimientos del módulo
' ......
End Module
Module Varios
Public psApellidos As String
Public Sub CrearEmpleado(ByVal
ByVal
ByVal
' grabamos los datos de un

liIDEmpleado AsInteger, _
lsNombre As String, ByVal lsApellidos As String, _
lsDNI As String, ByVal ldtFechaAlta As Date)
nuevo empleado en la

' base de datos que utiliza el programa
' ......
Console.WriteLine("Se ha grabado el empleado: {0} - {1} {2}", _
liIDEmpleado, lsNombre, lsApellidos)
Console.ReadLine()
End Sub
'
otros procedimientos del módulo
' ......
End Module
Module Pagos
Public SubTransfNomina(ByVal liIDEmpleado As Integer, ByVal ldbImporte As Double)
'realizamos la transferencia de nómina
'a un empleado, utilizando su identificador
' ......
'obtenemos los datos del empleado
psNombre = "Ana"
psApellidos = "Roca"
' ......
'visualizamos el resultado
Console.WriteLine("Pago de nómina")
Console.WriteLine("Empleado: {0} {1}", psNombre, psApellidos)Console.WriteLine("Ingresado: {0}", ldbImporte)
Console.ReadLine()
End Sub
Public Sub MostrarEmpleado(ByVal liIDEmpleado As Integer)
' buscar la información del empleado por su identificador
Dim lsDatosEmpleado As String
' ......
psNombre = "isabel"
psApellidos = "casillas"
lsDatosEmpleado = StrConv(psNombre & " " & psApellidos, VbStrConv.ProperCase)
Console.WriteLine("El empleado seleccionado es: {0}",...