Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

'False' voor Opp en Omtrek berekening Circkel

verhaba - 05/01/2009 22:43 (laatste wijziging 05/01/2009 22:46)

Lid

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:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                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

            
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
 

Moet ik ergens setSurface en setCircumference aanspreken? Ik heb zo'n flauw vermoeden...

2 antwoorden

Gesponsorde links

Abbas - 06/01/2009 00:54
Crew .NET		Je vermoeden is juist! Als je die set-functies niet eerst aanroept zijn die niet NULL/leeg/... en dus nooit gelijk aan "2 * Math.PI * 1"!

verhaba - 07/01/2009 12:22 (laatste wijziging 07/01/2009 13:47)

Lid

Hey titjes. Dank je voor je bericht. Ik heb nu eens effe gecontroleerd. Maar helaas... Nog steeds twee maal false... damned... wat doe ik verkeerd?

Heb het gevonden:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                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

            
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
 

problem solved... Allé hop naar de volgende.... Thx iedereen voor jullie hulp !

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten