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

vraagje over het getten van een Class object.

verhaba - 03/01/2009 16:03 (laatste wijziging 03/01/2009 16:31)

Lid

Hallo iedereen

Allereerste een gelukkig, warm en vooral leuk en prettig Nieuwjaar. Normaliter wens ik iedereen ook nog dat iedereen meer mag verdienen en minder hoeft te werken. Maar aangezien dit jaar na jaar niet blijkt te werken (toch niet bij mij

laat ik het dit jaar achterwege (mss lukt het dan toch wel eens)...

Nu, ik heb hier een aantal lijnen vb waar ik één eenvoudig lijntje niet goed snap. Jullie allicht wel. Hier is de code. Verder onder vind je de lijn waarover ik wat meer text en uitleg bij nodig heb.

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

                Namespace Example1
    Class Product
        Private m_Price As Decimal
        Public Property Price() As Decimal
            Get
                Price = m_Price
            End Get
            Set(ByVal value As Decimal)
                m_Price = value
                setPriceIncludingTax()
            End Set
        End Property
        Private m_TaxPercentage As Decimal
        Public Property TaxPercentage() As Decimal
            Get
                TaxPercentage = m_TaxPercentage
            End Get
            Set(ByVal value As Decimal)
                m_TaxPercentage = value
                setPriceIncludingTax()
            End Set
        End Property
        Private m_PriceIncludingTax As Decimal
        Public Function GetPriceIncludingTax() As Decimal
            GetPriceIncludingTax = m_PriceIncludingTax
        End Function
        Private Sub setPriceIncludingTax()
            m_PriceIncludingTax = Price * (1 + (TaxPercentage / 100))
        End Sub
    End Class
    Module Client
        Sub Main()
            Dim product1 As Product = New Product
            product1.Price = 100
            product1.TaxPercentage = 8
            Console.WriteLine(product1.GetPriceIncludingTax())
            '
            Console.ReadLine()
        End Sub
    End Module
End Namespace

            
Namespace Example1
    Class Product
        Private m_Price As Decimal
        Public Property Price() As Decimal
            Get
                Price = m_Price
            End Get
            Set(ByVal value As Decimal)
                m_Price = value
                setPriceIncludingTax()
            End Set
        End Property
        Private m_TaxPercentage As Decimal
        Public Property TaxPercentage() As Decimal
            Get
                TaxPercentage = m_TaxPercentage
            End Get
            Set(ByVal value As Decimal)
                m_TaxPercentage = value
                setPriceIncludingTax()
            End Set
        End Property
        Private m_PriceIncludingTax As Decimal
        Public Function GetPriceIncludingTax() As Decimal
            GetPriceIncludingTax = m_PriceIncludingTax
        End Function
        Private Sub setPriceIncludingTax()
            m_PriceIncludingTax = Price * (1 + (TaxPercentage / 100))
        End Sub
    End Class
    Module Client
        Sub Main()
            Dim product1 As Product = New Product
            product1.Price = 100
            product1.TaxPercentage = 8
            Console.WriteLine(product1.GetPriceIncludingTax())
            '
            Console.ReadLine()
        End Sub
    End Module
End Namespace
 

Dit is het deel waar ik me niet goed uit versta:

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

                            Set(ByVal value As Decimal)
                m_TaxPercentage = value
                setPriceIncludingTax()
            End Set
        End Property

            
Set(ByVal value As Decimal)
                m_TaxPercentage = value
                setPriceIncludingTax()
            End Set
        End Property
 

Waarom moet die setPriceIncludingTax() in het setgedeelte komen van die property? Thx voor jullie snel antwoord.

Bart.

2 antwoorden

Gesponsorde links

Abbas - 03/01/2009 23:45
Crew .NET		Dat moet niet perse, je kan die regel weglaten en de code op zich is dan nog steeds perfect werkend. Alleen wat gebeurt er nu? 1. Je "Set" de m_TaxPercentage op de ingegeven value. 2. De functie "setPriceIncludingTax()" wordt aangeroepen De functie staat op regel 27 3. Deze functie berekent een Private field (m_PriceIncludingTax) op basis van het eerste Field. Het is dus zo dat je op deze manier 2 Fields aanpast via de Property van 1 van die Fields. Snap je?

verhaba - 05/01/2009 22:35
Lid		Hey Titjes Thx voor je bericht. Hm... of ik het begrijp... Ik voel (begrijp redelijk) wat het doet... Maar of ik het te goei kan uitleggen... Oefenen baart kunst. Ken je ergens gelijkaardige oefeningen? thx. mocht je (of iemand anders) me kunnen antwoorden dan sluit ik de topic. Thx

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten