Llegados a este punto, hemos completado todos los pasos elementales en cuanto a la creación de una
clase. Retomemos pues, el caso del ejemplo expuesto anteriormente, de manera que si sustituimos el
enfoque procedural de los procesos del empleado, por uno orientado a objeto, la clase Empleado
resultante podría ser algo similar a la mostrada en el Código fuente 232.
Public Class Empleado
' variables de propiedad
Private miID As Integer
Private msNombre As String
Private msApellidos As String
Private msDNI As String
Private mdtFechaAlta As Date
Private mdbSueldo As Double
Private mdtInicioVacaciones As Date
Private miDiasVacaciones As Integer
' procedimientos de propiedad
Public Property Identificador() As Integer
Get
Return miID
End Get
Set(ByVal Value As Integer)
miID = Value
End Set
End Property
Public Property Nombre() As String
Get
Return msNombre
End Get
Set(ByVal Value As String)
msNombre = Value
End Set
End Property
Public Property Apellidos() As String
Get
Return msApellidos
End Get
Set(ByVal Value As String)
msApellidos = Value
End Set
End Property
Public Property DNI() As String
Get
Return msDNI
End Get
Set(ByVal Value As String)
msDNI = Value
End Set
End Property
Public Property FechaAlta() As Date
Get
Return mdtFechaAlta
End Get
Set(ByVal Value As Date)
mdtFechaAlta = Value
End Set
End Property
Public Property Sueldo() As Double
Get
Return mdbSueldo
End Get
Set(ByVal Value As Double)
mdbSueldo = Value
End Set
End Property
Public Property InicioVacaciones() As Date
Get
Return mdtInicioVacaciones
End Get
Set(ByVal Value As Date)
mdtInicioVacaciones = Value
End Set
End Property
Public Property DiasVacaciones() As Integer
Get
Return miDiasVacaciones
End Get
Set(ByVal Value As Integer)
miDiasVacaciones = Value
End Set
End Property
Public Sub CalcularVacaciones()
' en este método calculamos el periodo
' de vacaciones del empleado,
' mostrando los resultados en consola
Dim ldtFinal As Date
ldtFinal = DateAdd(DateInterval.Day, miDiasVacaciones, mdtInicioVacaciones)
Console.WriteLine("Empleado {0} - {1} {2}", _
miID, msNombre, msApellidos)
Console.WriteLine("Vacaciones desde {0} hasta {1}", _
Format(mdtInicioVacaciones, "dd/MMM/yy"), _
Format(ldtFinal, "d/MMMM/yyyy"))
Console.ReadLine()
End Sub
Public Sub CrearEmpleado()
' crear un nuevo registro en la base de datos,
' grabar los valores que debe haber
' en las propiedades
' .......
Console.WriteLine("Se ha grabado el empleado: {0} - {1} {2}", _
miID, msNombre, msApellidos)
Console.ReadLine()
End Sub
Public Sub TransfNomina()
' realizamos la transferencia de nómina
' a un empleado, utilizando su identificador
' ......
' obtener los datos del empleado de la base de datos
' y traspasarlos a las propiedades
' ......
' visualizamos el resultado
Console.WriteLine("Pago de nómina")
Console.WriteLine("Empleado: {0} {1}", msNombre, msApellidos)
Console.WriteLine("Ingresado: {0}", mdbSueldo)
Console.ReadLine()
End Sub
Public Sub MostrarEmpleado()
' buscar la información del empleado en la base de datos
' usando el valor de la propiedad identificador
Dim lsDatosEmpleado As String
' ......
Console.WriteLine("El empleado seleccionado es: {0}", msNombre,
msApellidos)
Console.ReadLine()
End Sub
End Class
Código fuente 232
