document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits Componente
  4.  
  5. Private hnombreCompleto As String
  6. Private hcargo As String
  7. Private hsueldo As Single
  8.  
  9. Public Sub _new(nombre As String, cargo As String, sueldo As Single)
  10.  
  11.   hnombreCompleto = nombre
  12.   hcargo = cargo
  13.   hsueldo = sueldo
  14.  
  15. End
  16.  
  17. Public Function getSueldo() As Single
  18.  
  19.   Return hsueldo
  20.  
  21. End
  22.  
  23. Public Function getEstructura(cadenainicial As String) As String
  24.  
  25.   Return cadenainicial & " Nombre: " & hnombreCompleto & " Cargo: " & hcargo & " Sueldo: " & Str$(hsueldo)
  26.  
  27. End
  28.  
  29. Public Function getNombre() As String
  30.  
  31.   Return hnombreCompleto
  32.  
  33. End
');