\' Gambas class file
Inherits Componente
Private hnombreCompleto As String
Private hcargo As String
Private hsueldo As Single
Public Sub _new(nombre As String, cargo As String, sueldo As Single)
hnombreCompleto = nombre
hcargo = cargo
hsueldo = sueldo
End
Public Function getSueldo() As Single
Return hsueldo
End
Public Function getEstructura(cadenainicial As String) As String
Return cadenainicial & " Nombre: " & hnombreCompleto & " Cargo: " & hcargo & " Sueldo: " & Str$(hsueldo)
End
Public Function getNombre() As String
Return hnombreCompleto
End