'.....
'Werte einlesen:
GVar.ACVRingspeicher(i - 1) = GVar.Multimeter.readACVoltage() 'Wechselspannung 
' lesen
'dann sollen Statistische Werte für später berechnet werden:
Dim StatBA As New claDescripedStat(GVar.ACVSortspeicher, GVar.Ringspeicherlänge)             
'.....

Public Class claDescripedStat 'Klasse für die Deskriptive Statistik
 
    Dim ArrayIntern() As Double
    Dim HelpArray() As Double
    Dim Summe As Double = 0
    Dim aritMit As Double = 0
    Dim harmMit As Double = 0
    Dim geomMit As Double = 1
    Dim StandAb As Double = 0
    Dim Vari As Double = 0
    Dim Minimum As Double = 0
    Dim Maximum As Double = 0
    Dim Anz As Integer
 
    Public Sub New(ByVal ArrayIn() As Double, ByVal ArraylängeIn As Integer)
        Dim i As Integer
 
        ArrayIntern = ArrayIn
        HelpArray = ArrayIn
        Anz = ArraylängeIn
        'Array wird sortiert:
 
 
        Quicksort(HelpArray, 0, Anz - 1) 'Hier ist das Problem
        'Monitor.write("Sortierte Werte:")
        'For i = 0 To Anz - 1
        '    Monitor.write(Format$(HelpArray(i)) & " ")
        'Next i
 
        'Alles wird berechnet:
        SummeBerechnen()
        ArithMittelBerechnen()
        StAbwUndVarianzBerechnen()
        If AlleKomGrNull() = True Then 'Wenn alle Komponenten größer Null sind 
        ' werden beide Werte gebildet, ansonsten bekommen beide Werte -1
            HarmMittelBerechnen()
            GeoMittelBerechnen()
        End If
        MaximumBerechnen()
        MinimumBerechnen()
 
    End Sub