Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement