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

Collectiontypes invoices (Opgelost)

Jimbo - 19/12/2009 16:12 (laatste wijziging 19/12/2009 16:14)

Lid

Ik heb vandaag weer een oefening bij rond het opmaken van een collectietype te maken.

Onderstaande is de oefening:
===============
'Creëer collectietype Invoice om onderstaande testen te doen slagen.
'Van een factuur ( Invoice ) kan je het aantal artikels opvragen, het totale bedrag opvragen en een artikel op een bepaalde positie opvragen. Men kan uiteraard ook een artikel en hoeveelheid van dit artikel toevoegen.

===============

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

                Class Article
    Private _Price As Decimal
    Public Property Price() As Decimal
        Get
            Price = _Price
        End Get
        Set(ByVal value As Decimal)
            _Price = value
        End Set
    End Property
End Class

Module InvoiceTestFixture
    Sub Main()
        Dim invoice1 As New Invoice
        Console.WriteLine(invoice1.ArticleCount = 0)  ' True
        Console.WriteLine(invoice1.GetTotal() = 0D)   ' True
        '
        Dim article1 As New Article
        article1.Price = 100D
        invoice1.Add(article1, 5)
        Console.WriteLine(invoice1.ArticleCount = 1)  ' True
        Console.WriteLine(invoice1(0) Is article1)    ' True
        Console.WriteLine(invoice1.GetTotal() = 500D) ' True
        '
        Dim article2 As New Article
        article2.Price = 20D
        invoice1.Add(article2, 3)
        Console.WriteLine(invoice1.ArticleCount = 2)  ' True
        Console.WriteLine(invoice1(0) Is article1)    ' True
        Console.WriteLine(invoice1(1) Is article2)    ' True
        Console.WriteLine(invoice1.GetTotal() = 560D) ' True
        '
        Console.ReadLine()
    End Sub
End Module
            
Class Article
    Private _Price As Decimal
    Public Property Price() As Decimal
        Get
            Price = _Price
        End Get
        Set(ByVal value As Decimal)
            _Price = value
        End Set
    End Property
End Class
 
Module InvoiceTestFixture
    Sub Main()
        Dim invoice1 As New Invoice
        Console.WriteLine(invoice1.ArticleCount = 0)  ' True
        Console.WriteLine(invoice1.GetTotal() = 0D)   ' True
        '
        Dim article1 As New Article
        article1.Price = 100D
        invoice1.Add(article1, 5)
        Console.WriteLine(invoice1.ArticleCount = 1)  ' True
        Console.WriteLine(invoice1(0) Is article1)    ' True
        Console.WriteLine(invoice1.GetTotal() = 500D) ' True
        '
        Dim article2 As New Article
        article2.Price = 20D
        invoice1.Add(article2, 3)
        Console.WriteLine(invoice1.ArticleCount = 2)  ' True
        Console.WriteLine(invoice1(0) Is article1)    ' True
        Console.WriteLine(invoice1(1) Is article2)    ' True
        Console.WriteLine(invoice1.GetTotal() = 560D) ' True
        '
        Console.ReadLine()
    End Sub
End Module
 

Kan iemand hiermee verder helpen?
Alles zou uiteindelijk true moeten eindigen zoals in de comments is weergegeven.

1 antwoord

Gesponsorde links

Ontani - 19/12/2009 17:31

-1

vb.net code - Bekijk de code zonder highlighting - Klap code in



    Public Class Invoice
        Inherits List(Of Article)

        Dim _Pricing As New Dictionary(Of Article, Integer)

        Public Function ArticleCount() As Integer
            Return Me.Count
        End Function

        Public Function GetTotal() As Decimal
            Dim total As Decimal = 0
            For Each art As KeyValuePair(Of Article, Integer) In Me._Pricing
                total += art.Key.Price * art.Value
            Next
            Return total
        End Function

        Public Overloads Sub Add(ByVal art As Article, ByVal number As Integer)
            Me.Add(art)
            Me._Pricing.Add(art, number)
        End Sub

    End Class

Public Class Invoice
        Inherits List(Of Article)
 
        Dim _Pricing As New Dictionary(Of Article, Integer)
 
        Public Function ArticleCount() As Integer
            Return Me.Count
        End Function
 
        Public Function GetTotal() As Decimal
            Dim total As Decimal = 0
            For Each art As KeyValuePair(Of Article, Integer) In Me._Pricing
                total += art.Key.Price * art.Value
            Next
            Return total
        End Function
 
        Public Overloads Sub Add(ByVal art As Article, ByVal number As Integer)
            Me.Add(art)
            Me._Pricing.Add(art, number)
        End Sub
 
    End Class

Bedankt door: Jimbo

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten