viernes, 13 de febrero de 2009

Uso de Property

VB .NET

Public Class Fraccion

private Dim nume, deno As Long

Public Property Numerador() as long
Get
return nume
End Get
Set
nume=value
End Set
End Property

Public Property Denominador() as long
Get
return deno
End Get
Set
If (value=0) Then
throw new DivideByZeroException ("El denominador de una fraccion no puede ser cero")
end if
deno=value
End Set
End Property

End Class



C#

public class Fraccion {

private long nume, deno;

public long Numerador {
get {
return nume;
}
set {
nume = value;
}
}

public long Denominador {
get {
return deno;
}
set {
if (value==0)
throw new ArithmeticException ("El denominador de una fraccion no puede ser cero");
else{
deno=value;
}
}
}

}