persona

' Gambas class file

Property nombre As String
Private hnombre As String

Property SueldoMensual As String
Private hsueldoMensual As Single

'------------------- lectura y escritura de valores de propiedades -------------
Private Function nombre_Read() As String

  Return hnombre

End

Private Sub nombre_Write(Value As String)

  hnombre = value

End

Private Function SueldoMensual_Read() As String

  Return hsueldoMensual

End

Private Sub SueldoMensual_Write(Value As String)

  hsueldoMensual = value

End

'------------------- Metodos -------------

Public Sub Consultar()

  Print "Consultar datos...."
  Print "Nombre: " & hnombre
  Print "Sueldo: "; sueldo()
  Print "----------------------------"

End

Public Function Sueldo() As String

  Return "El sueldo de una persona es de " & Str$(hsueldoMensual) & " €."

End

Public Sub Registrar(nombre As String, sueldo As Single, Optional valor1 As Variant, Optional valor2 As Variant) 'nombre As String, sueldo As Single)

  hnombre = nombre
  hsueldoMensual = sueldo

End