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