Vierkant: code van de klasse

Public Class vierkant
Private p_zijde As Single
Public Property zijde() As Single
Get
   Return p_zijde
End Get
Set(ByVal Value As Single)
  If Not Value < 0 Then p_zijde = Value
End Set
End Property

Public Property oppervlakte() As Single
Get
  Return p_zijde * p_zijde
End Get
Set(ByVal Value As Single)
  If Not Value < 0 Then p_zijde = Math.Sqrt(Value)
End Set
End Property
 

Public Property omtrek() As Single
Get
  Return 4 * p_zijde
End Get
Set(ByVal Value As Single)
  If Not Value < 0 Then p_zijde = omtrek / 4
End Set
End Property
End Class

[Controls en klassen in .NET] - [VB Web] - [hlrnet] - [copyright]