document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits Persona
  4.  
  5. Property area As String
  6. Private harea As String
  7. \'------------------- lectura y escritura de valores de propiedades -------------
  8.  
  9. Private Function area_Read() As String
  10.  
  11.   Return harea
  12.  
  13. End
  14.  
  15. Private Sub area_Write(Value As String)
  16.  
  17.   harea = Value
  18.  
  19. End
  20. \'------------------- Metodos -------------
  21.  
  22. Public Sub Consultar()
  23.  
  24.   Print "Consultar datos...."
  25.   Print "Nombre: " & Super.nombre
  26.   Print "Area de trabajo: " & harea
  27.   Print "Sueldo: ", Super.sueldo()
  28.   Print "----------------------------"
  29.  
  30. End
  31.  
  32. Public Sub Registrar(nombrePropio As String, sueldoCantidad As Single, Optional AreaTrabajo As Variant, Optional v As Variant) \'nombre As String, sueldo As Single)
  33.  
  34.   Super.nombre = nombrePropio
  35.   Super.SueldoMensual = sueldoCantidad
  36.   harea = areaTrabajo
  37.  
  38. End
');