\' Gambas class file
Inherits Persona
Property cargo As String
Private hcargo As String
Property horasTrabajadas As Integer
Private hhorasTrabajadas As Integer
\'------------------- lectura y escritura de valores de propiedades -------------
Private Function cargo_Read() As String
Return hcargo
End
Private Sub cargo_Write(Value As String)
hcargo = Value
End
Private Function horasTrabajadas_Read() As Integer
Return hhorasTrabajadas
End
Private Sub horasTrabajadas_Write(Value As Integer)
hhorasTrabajadas = Value
End
\'------------------- Metodos -------------
Public Sub Consultar()
Print "Consultar datos...."
Print "Nombre: " & Super.nombre
Print "Cargo: " & hcargo
Print "Horas Trabajadas: " & hhorasTrabajadas
Print "Sueldo: ", Me.sueldo()
Print "----------------------------"
End
Public Sub Registrar(nombrePropio As String, sueldoCantidad As Single, Optional cargoTrabajo As Variant, Optional horas As Variant) \'nombre As String, sueldo As Single)
Super.nombre = nombrePropio
Super.SueldoMensual = sueldoCantidad
hcargo = cargoTrabajo
hhorasTrabajadas = horas
End
Public Function Sueldo() As String
Dim gana As String
gana = Super.SueldoMensual + 30 * hhorasTrabajadas
Return "El sueldo de una persona es de " & Str$(gana) & " €."
End