\' Gambas class file
Inherits Persona
\'------------------- lectura y escritura de valores de propiedades -------------
Property turno As String
Private hturno As String
Private Function turno_Read() As String
Return hturno
End
Private Sub turno_Write(Value As String)
hturno = Value
End
\'------------------- Metodos -------------
Public Sub Registrar(nombrePropio As String, sueldoCantidad As Single, Optional TurnoTrabajo As Variant, Optional val1 As Variant) \'nombre As String, sueldo As Single)
Super.nombre = nombrePropio
Super.SueldoMensual = sueldoCantidad
hturno = turnoTrabajo
End
\'------------------- Metodos -------------
Public Sub Consultar()
Print "Consultar datos...."
Print "Nombre: " & Super.nombre
Print "Turno: " & hturno
Print "Sueldo: ", Super.sueldo()
Print "----------------------------"
End