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.

GAMBAS

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