Buenas!.
Repasando un tema que se comentó en su día sobre las ventajas de la programación orientada a objetos frente a la procedimental.
Y viendo de nuevo el vídeo de Julio, en el código hace referencia a otra posibilidad de declarar una propiedad.
Haciendo referencia a la ayuda de gambas.
A ver que os parece la forma de declarar la propiedad.
La propiedad
base se declara como hemos estado haciendo hasta una versión de Gambas.
Y la propiedad
altura se declara usando una nueva forma. No tiene código de
getter y setter.
No se crean automáticamente.
Código:
Property base As Integer
Private hbase As Integer
Property altura As Integer Use haltura
Public Sub _new($ialtura As Integer, $ibase As Integer)
haltura = $ialtura
hbase = $ibase
End
Public Function Calculo() As Float
Return (Me.base * Me.altura) / 2
End
Private Function base_Read() As Integer
Return hbase
End
Private Sub base_Write(Value As Integer)
hbase = Value
End
Ademas si fuese necesario se puede modificar el código del getter y el setter, pero ya sería manualmente.
Habría que crear todo el código.
Se puede apreciar que la reducción de código es notable.
Como todo cuesta acostumbrarse a usarla por primera vez y sobre todo recordarlo.
Property Declaration
Saludos