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]