(Rechtschreibfehler urheberrechtlich geschützt)

Dim Werte() As Double = {100, 200.5, 300, 800, 1900} ' Millimeterangaben als 
' Beispiel
Dim Teilung AS Double = 200.5

  Function _SplitWerte(ByVal Werte() As Double, ByVal Teilung As Double) As _
    Double(,)
        Dim MaxWert As Integer = Werte.GetUpperBound(0)
        Dim i, j As Integer
 
        For i = 0 To MaxWert
            If Werte(i) < Teilung Then
                ReDim _SplitWerte(j, i)
                _SplitWerte(j, i) = Werte(i)
            Else
                j = j + 1
                Teilung = j * Teilung
                ReDim _SplitWerte(j, i)
                _SplitWerte(j, i) = Werte(i)
            End If
            Me.listRaster.Items.Add(_SplitWerte(j, i))
        Next i
    End Function

    Function _SplitWerte(ByVal Werte() As Double, ByVal Teilung As Double) As _
      Double(,)
        Dim MaxWert As Integer = Werte.GetUpperBound(0)
        ' Dim _SplitWerte(,) As Double
        Dim i, j As Integer
        For i = 0 To MaxWert
            If Werte(i) < Teilung Then
                ReDim _SplitWerte(j, i)
                _SplitWerte(j, i) = Werte(i) ' <----- j hier in rot unterstrichen
            Else
                j = j + 1
                Teilung = j * Teilung
                ReDim _SplitWerte(j, i)
                _SplitWerte(j, i) = Werte(i) ' <----- j hier in rot unterstrichen
            End If
            Me.listRaster.Items.Add(_SplitWerte(j, i))' <----- j hier in rot 
            ' unterstrichen
        Next i
    End Function

    Private Property _SplitWerte(j As Integer, i As Integer) As Double
        Get
            Return __SplitWerte
        End Get
        Set(value As Double)
            __SplitWerte = value
        End Set
    End Property

(Rechtschreibfehler urheberrechtlich geschützt)

   Function Splitwerte(ByVal werte() As Double, _
                       ByVal Teilung As Double, _
                       ByRef splits As List(Of Double)) As Double(,)
 
        splits = New List(Of Double)
 
        Dim iTeilung As Double = Teilung
        Dim j As Integer = 0
 
        'Erforderliche Arraydimension ermitteln
        For i As Integer = 0 To werte.GetUpperBound(0)
            If werte(i) >= iTeilung Then
                j = j + 1
                iTeilung = j * iTeilung
            End If
        Next i
 
        'Array für Rückgabe einrichten
        Dim ret(j, werte.GetUpperBound(0)) As Double
 
        j = 0 'reinit
 
        For i As Integer = 0 To werte.GetUpperBound(0)
            If werte(i) < Teilung Then
                ret(j, i) = werte(i)
            Else
                j = j + 1
                Teilung = j * Teilung
                ret(j, i) = werte(i)
            End If
            splits.Add(ret(j, i))
        Next i
 
        Return ret
    End Function

  Dim Werte() As Double = {100, 200.5, 300, 800, 1900} ' Millimeterangaben als 
 
  Dim Teilung As Double = 200.5
 
  Dim splits As List(Of Double) = Nothing
 
  'Operation durchführen - Ergebnis im Array "sw" und im Ref-Param. "splits"
  Dim sw As Double(,) = Splitwerte(Werte, Teilung, splits)
 
  'Anzeige der gelisteten Splitwerte in einer Listbox (Datenbindung)
  Dim splitlist As New ListBox With {.Parent = Me}
  splitlist.DataSource = splits

Zitat:

Nun taucht halt immer folgende Fehlermeldung auf! Der Wert vom Typ "Integer" kann nicht in "1-dimensionales Array von Double" konvertiert werden. Leider kann ich den Fehler nicht nachvollziehen! Ich hoffe ihr könnt mir helfen. Gruß TzeRo

  Function SplitWerte(Werte() As Double, Teilung As Double) As Double()()
    Dim swl As New List(Of Double())
    Dim a() As Double, t = Teilung, z = 1, i = 0
    Do
      t = z * Teilung : z += 1
      a = Werte.Skip(i).TakeWhile(Function(x) x <= t).ToArray
      swl.Add(a)
      i += a.Length
    Loop Until t > Werte.Last
    Return swl.ToArray
  End Function

    Dim a = {200, 300, 400, 400.5, 500, 801, 900, 1200, 1640}
    Dim t = 400
    Console.WriteLine("Werte: {0}", String.Join(", ", a))
    Console.WriteLine("Teilung: {0}", t)
    Console.WriteLine()
    Dim res = SplitWerte(a, t)
    For Each w In res
      Console.WriteLine("{0} Werte: {1}", w.Length, String.Join(" ", w))
    Next

Werte: 200, 300, 400, 400,5, 500, 801, 900, 1200, 1640
Teilung: 400
 
3 Werte: 200 300 400
2 Werte: 400,5 500
3 Werte: 801 900 1200
0 Werte:
1 Werte: 1640

Zitat:

Hallo TZeRo, hier ein kleines Beispiel, wie man es auch lösen kann (ab FW 3.5): Function SplitWerte(Werte() As Double, Teilung As Double) As Double()() Dim swl As New List(Of Double()) Dim a() As Double, t = Teilung, z = 1, i = 0 Do t = z * Teilung : z += 1 a = Werte.Skip(i).TakeWhile(Function(x) x <= t).ToArray swl.Add(a) i += a.Length Loop Until t > Werte.Last Return swl.ToArray End Function und so wird es aufgerufen: Dim a = {200, 300, 400, 400.5, 500, 801, 900, 1200, 1640} Dim t = 400 Console.WriteLine("Werte: {0}", String.Join(", ", a)) Console.WriteLine("Teilung: {0}", t) Console.WriteLine() Dim res = SplitWerte(a, t) For Each w In res Console.WriteLine("{0} Werte: {1}", w.Length, String.Join(" ", w)) Next und das ist die Ausgabe: Werte: 200, 300, 400, 400,5, 500, 801, 900, 1200, 1640 Teilung: 400   3 Werte: 200 300 400 2 Werte: 400,5 500 3 Werte: 801 900 1200 0 Werte: 1 Werte: 1640