Encapsulación a través de propiedades - II

¿Que está sucediendo aquí?. Hemos creado un objeto empleado al que le hemos dado categoría 1, sin embargo le estamos asignando un sueldo que no corresponde a su categoría, pero se nos permite hacerlo sin ningún problema, ya que no existe un medio de control que nos lo impida. 

Afrontando el problema mediante el uso de propiedades, contamos con la ventaja de escribir código de validación en los correspondientes procedimientos Property; con ello encapsulamos el código de la clase, manteniéndolo a salvo de asignaciones incoherentes. Veamos esta solución en el Código fuente 226.

Module General
Sub Main()
Dim loEmpleado As Empleado
loEmpleado = New Empleado()
loEmpleado.psNombre = "Pedro"
loEmpleado.Categoria = 1
loEmpleado.Sueldo = 250
Console.WriteLine("Asignación incorrecta")
Console.WriteLine("Empleado {0} - Categoria {1} - Sueldo {2}", _
loEmpleado.psNombre, loEmpleado.Categoria, loEmpleado.Sueldo)
loEmpleado.Sueldo = 175
Console.WriteLine("Asignación correcta")
Console.WriteLine("Empleado {0} - Categoria {1} - Sueldo {2}", _
loEmpleado.psNombre, loEmpleado.Categoria, loEmpleado.Sueldo)
Console.ReadLine()
End Sub
End Module
Public Class Empleado
Public psNombre As String
' variables de propiedad
Private miCategoria As Integer
Private mdbSueldo As Double
' procedimientos de propiedad
Public Property Categoria() As Integer
Get
Return miCategoria
End Get
Set(ByVal Value As Integer)
miCategoria = Value
End Set
End Property
Public Property Sueldo() As Double
Get
Return mdbSueldo
End Get
' cuando asignamos el valor a esta propiedad,
' ejecutamos código de validación en el bloque Set
Set(ByVal Value As Double)
' si la categoría del empleado es 1...
If miCategoria = 1 Then
' ...pero el sueldo supera 200
If Value > 200 Then
' mostrar un mensaje y asignar un cero
Console.WriteLine("La categoría no corresponde con el sueldo")
mdbSueldo = 0
Else
' si todo va bien, asignar el sueldo
mdbSueldo = Value
End If
End If
End Set
End Property
End Class

Código fuente 226