document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits Persona
  4.  
  5. Property cargo As String
  6. Private hcargo As String
  7.  
  8. Property horasTrabajadas As Integer
  9. Private hhorasTrabajadas As Integer
  10.  
  11. \'------------------- lectura y escritura de valores de propiedades -------------
  12. Private Function cargo_Read() As String
  13.  
  14.   Return hcargo
  15.  
  16. End
  17.  
  18. Private Sub cargo_Write(Value As String)
  19.  
  20.   hcargo = Value
  21.  
  22. End
  23.  
  24. Private Function horasTrabajadas_Read() As Integer
  25.  
  26.   Return hhorasTrabajadas
  27.  
  28. End
  29.  
  30. Private Sub horasTrabajadas_Write(Value As Integer)
  31.  
  32.   hhorasTrabajadas = Value
  33.  
  34. End
  35.  
  36. \'------------------- Metodos -------------
  37. Public Sub Consultar()
  38.  
  39.   Print "Consultar datos...."
  40.   Print "Nombre: " & Super.nombre
  41.   Print "Cargo: " & hcargo
  42.   Print "Horas Trabajadas: " & hhorasTrabajadas
  43.   Print "Sueldo: ", Me.sueldo()
  44.   Print "----------------------------"
  45.  
  46. End
  47.  
  48. Public Sub Registrar(nombrePropio As String, sueldoCantidad As Single, Optional cargoTrabajo As Variant, Optional horas As Variant) \'nombre As String, sueldo As Single)
  49.  
  50.   Super.nombre = nombrePropio
  51.   Super.SueldoMensual = sueldoCantidad
  52.   hcargo = cargoTrabajo
  53.   hhorasTrabajadas = horas
  54.  
  55. End
  56.  
  57. Public Function Sueldo() As String
  58.  
  59.   Dim gana As String
  60.  
  61.   gana = Super.SueldoMensual + 30 * hhorasTrabajadas
  62.   Return "El sueldo de una persona es de " & Str$(gana) & " €."
  63.  
  64. End
');