Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- Inherits Persona
- '------------------- lectura y escritura de valores de propiedades -------------
- Property turno As String
- Private hturno As String
- Private Function turno_Read() As String
- Return hturno
- End
- Private Sub turno_Write(Value As String)
- hturno = Value
- End
- '------------------- Metodos -------------
- Public Sub Registrar(nombrePropio As String, sueldoCantidad As Single, Optional TurnoTrabajo As Variant, Optional val1 As Variant) 'nombre As String, sueldo As Single)
- Super.nombre = nombrePropio
- Super.SueldoMensual = sueldoCantidad
- hturno = turnoTrabajo
- End
- '------------------- Metodos -------------
- Public Sub Consultar()
- Print "Consultar datos...."
- Print "Nombre: " & Super.nombre
- Print "Turno: " & hturno
- Print "Sueldo: ", Super.sueldo()
- Print "----------------------------"
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement