Share via

Aggregatiebewerkingen (Visual Basic)

  • Artikel

Een aggregatiebewerking berekent één waarde uit een verzameling waarden. Een voorbeeld van een aggregatiebewerking is het berekenen van de gemiddelde dagelijkse temperatuur op basis van de dagelijkse temperatuurwaarden van een maand.

In de volgende afbeelding ziet u de resultaten van twee verschillende aggregatiebewerkingen voor een reeks getallen. Met de eerste bewerking worden de getallen opgeteld. De tweede bewerking retourneert de maximumwaarde in de reeks.

Illustration that shows LINQ aggregation operations.

De standaardqueryoperatormethoden die aggregatiebewerkingen uitvoeren, worden weergegeven in de volgende sectie.

Methoden

Methodenaam Beschrijving Syntaxis van Visual Basic-queryexpressie Meer informatie
Samenvoegen Voert een aangepaste aggregatiebewerking uit op de waarden van een verzameling. Niet van toepassing. Enumerable.Aggregate

Queryable.Aggregate
Gemiddeld Berekent de gemiddelde waarde van een verzameling waarden. Aggregate … In … Into Average() Enumerable.Average

Queryable.Average
Tellen Telt de elementen in een verzameling, optioneel alleen de elementen die voldoen aan een predicaatfunctie. Aggregate … In … Into Count() Enumerable.Count

Queryable.Count
LongCount Telt de elementen in een grote verzameling, optioneel alleen de elementen die voldoen aan een predicaatfunctie. Aggregate … In … Into LongCount() Enumerable.LongCount

Queryable.LongCount
Max of MaxBy Bepaalt de maximumwaarde in een verzameling. Aggregate … In … Into Max() Enumerable.Max
Enumerable.MaxBy
Queryable.Max
Queryable.MaxBy
Min of MinBy Bepaalt de minimumwaarde in een verzameling. Aggregate … In … Into Min() Enumerable.Min
Enumerable.MinBy
Queryable.Min
Queryable.MinBy
Sum Berekent de som van de waarden in een verzameling. Aggregate … In … Into Sum() Enumerable.Sum

Queryable.Sum

Voorbeelden van syntaxis van query-expressie

Gemiddeld

In het volgende codevoorbeeld wordt de Aggregate Into Average component in Visual Basic gebruikt om de gemiddelde temperatuur te berekenen in een matrix met getallen die temperaturen vertegenwoordigen.


Dim temperatures() As Double = {72.0, 81.5, 69.3, 88.6, 80.0, 68.5}

Dim avg = Aggregate temp In temperatures Into Average()

' Display the result.
MsgBox(avg)

' This code produces the following output:

' 76.65

Tellen

In het volgende codevoorbeeld wordt de Aggregate Into Count component in Visual Basic gebruikt om het aantal waarden in een matrix te tellen dat groter is dan of gelijk is aan 80.


Dim temperatures() As Double = {72.0, 81.5, 69.3, 88.6, 80.0, 68.5}

Dim highTemps As Integer = Aggregate temp In temperatures Into Count(temp >= 80)

' Display the result.
MsgBox(highTemps)

' This code produces the following output:

' 3

LongCount

In het volgende codevoorbeeld wordt de Aggregate Into LongCount component gebruikt om het aantal waarden in een matrix te tellen.


Dim temperatures() As Double = {72.0, 81.5, 69.3, 88.6, 80.0, 68.5}

Dim numTemps As Long = Aggregate temp In temperatures Into LongCount()

' Display the result.
MsgBox(numTemps)

' This code produces the following output:

' 6

Max

In het volgende codevoorbeeld wordt de Aggregate Into Max component gebruikt om de maximumtemperatuur te berekenen in een matrix met getallen die temperaturen vertegenwoordigen.


Dim temperatures() As Double = {72.0, 81.5, 69.3, 88.6, 80.0, 68.5}

Dim maxTemp = Aggregate temp In temperatures Into Max()

' Display the result.
MsgBox(maxTemp)

' This code produces the following output:

' 88.6

Min

In het volgende codevoorbeeld wordt de Aggregate Into Min component gebruikt om de minimumtemperatuur te berekenen in een matrix met getallen die temperaturen vertegenwoordigen.


Dim temperatures() As Double = {72.0, 81.5, 69.3, 88.6, 80.0, 68.5}

Dim minTemp = Aggregate temp In temperatures Into Min()

' Display the result.
MsgBox(minTemp)

' This code produces the following output:

' 68.5

Sum

In het volgende codevoorbeeld wordt de Aggregate Into Sum component gebruikt om het totale onkostenbedrag te berekenen van een matrix met waarden die uitgaven vertegenwoordigen.


Dim expenses() As Double = {560.0, 300.0, 1080.5, 29.95, 64.75, 200.0}

Dim totalExpense = Aggregate expense In expenses Into Sum()

' Display the result.
MsgBox(totalExpense)

' This code produces the following output:

' 2235.2

Zie ook