Comunidad Gambas-es

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

Shell