Vierkant: klasse

• De gegevens
  Private zijde As Integer
  Private omtrek As Integer
  Private oppervlakte As Integer
  
• De zijde instellen
  Public Sub schrijfZijde(z As Integer)
  If z < 0 Then Exit Sub
  zijde = z
  omtrek = z * 4
  oppervlakte = z * z
  End Sub
  
• De eigenschappen lezen
  Public Function leesZijde() As Integer
  leesZijde = zijde
  End Function
  
  Public Function leesOppervlakte() As Integer
  leesOppervlakte = oppervlakte
  End Function
  
  Public Function leesOmtrek() As Integer
  leesOmtrek = omtrek
  End Function

[VB Web] - [hlrnet] - [copyright]