trabajador

' Gambas class file

Private sueldo As Float

Public Sub setsueldo(cantidad As Float)

  sueldo = cantidad

End

Public Function getSueldo() As Float

  Return sueldo

End

Public Sub cobrar()

  Print "He cobrado....mi sueldo: " & Str$(sueldo)

End