code berekening Opp en omtrek retourneert 2x FALSE. Waarom?

[verhaba]

Hallo
Ik moet bij wijze van oefening een progje maken dat de oppervlakte en omtrek berekent. Daarbij moet ik wat unittesten doen waarbij ik de code moet testen. Ik krijg deze keer geen enkele errors, maar niet het gewenste resultaat. Ik krijg tweemaal False waar ik 'True' verwacht. Hier volgt mijn code:

 Namespace Exercice1
    Class Circle
        Private m_Radius As Double
        Property Radius() As Double
            Get
                Radius = m_Radius
            End Get
            Set(ByVal value As Double)
                m_Radius = value
            End Set
        End Property
        Private m_Surface As Double
        Property Surface() As Double
            Get
                Surface = m_Radius
            End Get
            Set(ByVal value As Double)
                m_Surface = value
            End Set
        End Property
        Private m_Circumference As Double
        Public ReadOnly Property Circumference() As Double
            Get
                Circumference = m_Circumference
            End Get
        End Property
        Private Sub setCircumference()
            m_Circumference = 2 * System.Math.PI * Radius
        End Sub
        Private Sub setSurface()
            m_Surface = (Radius ^ 2) * System.Math.PI
        End Sub
    End Class
    Module Client
        Sub Main()
            Dim circle1 As Circle = New Circle
            circle1.Radius = 1
            Console.WriteLine(circle1.Circumference = 2 * System.Math.PI * 1)
            Console.WriteLine(circle1.Surface = System.Math.PI * (1 ^ 2))
            '
            Console.ReadLine()

        End Sub
    End Module
End Namespace

 

[Pizara]

Namespace Exercice1
    Class Circle
        Private m_Radius As Double
        Property Radius() As Double
            Get
                Radius = m_Radius
            End Get
            Set(ByVal value As Double)
                m_Radius = value
            End Set
        End Property

        ReadOnly Property Surface() As Double
            Get
                Surface = (Radius ^ 2) * System.Math.PI
            End Get
        End Property

        Public ReadOnly Property Circumference() As Double
            Get
                Circumference = 2 * System.Math.PI * Radius
            End Get
        End Property

    End Class

    Module Client
        Sub Main()
            Dim circle1 As Circle = New Circle
            circle1.Radius = 1
            Console.WriteLine(circle1.Circumference = ((2 * System.Math.PI) * 1))
            Console.WriteLine(circle1.Surface = System.Math.PI * (1 ^ 2))
            Console.ReadLine()

        End Sub
    End Module
End Namespace

werkt nu wel goed.. waarom moeilijk doen met extra property gets

 

[verhaba]

Thx Pizara... idd het werkt!! :thumb: Alvast een welgemeende !!! Dank U Wel !!!