empleado

' 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