Apúntate...


Consultas, desarrollo de programas y petición de presupuestos:

miércoles, 29 de agosto de 2012

Añadiendo Métodos

Para definir métodos, se hace como si fueran funciones o subrutinas, y si usan el valor de las propiedades, se deben de usar las "variables privadas" que definidas junto a las propiedades.
 
Ejemplo:
Tenemos una clase "circulo", que tiene la propiedad "radio"

' Gambas class file
Property radio As Float
Private $radio As Float

Private Function radio_Read() As Float
Return $radio
End

Private Sub radio_Write(Value As Float)
$radio = Value
End

Creamos una función, que calcule y devuelve el área del circulo.

Public Function area() As Float
Dim superficie As Float
superficie = Pi * $radio ^ 2
Return superficie
End


Método Constructor:
Hay un método "especial", que nos permite que cuando instanciamos una clase, se puedan definir parametos (uno o varios) y/o ejecutar lineas de código cuando se cree el objeto. Para ello se usa el método "_new()"

Por ejemplo, si queremos que un objeto circulo cuando se cree, le podamos dar un radio, debemos añadir este constructor en la clase :


Public Sub _new(Optional r As Float)
If r <> 0 Then
$radio = r
Print "Se ha creado un circulo, con radio "; $radio
else
Print "Se ha creado un circulo, falta definir radio radio "
 endif
End






No hay comentarios:

Publicar un comentario

A falta de donativos... un poco de publicidad