\' Gambas class file
Inherits Persona
Property area As String
Private harea As String
\'------------------- lectura y escritura de valores de propiedades -------------
Private Function area_Read() As String
Return harea
End
Private Sub area_Write(Value As String)
harea = Value
End
\'------------------- Metodos -------------
Public Sub Consultar()
Print "Consultar datos...."
Print "Nombre: " & Super.nombre
Print "Area de trabajo: " & harea
Print "Sueldo: ", Super.sueldo()
Print "----------------------------"
End
Public Sub Registrar(nombrePropio As String, sueldoCantidad As Single, Optional AreaTrabajo As Variant, Optional v As Variant) \'nombre As String, sueldo As Single)
Super.nombre = nombrePropio
Super.SueldoMensual = sueldoCantidad
harea = areaTrabajo
End