magnificent
Mitglied
Hallo.
Ich Versuche den Returnwert einer Funktion einem 2dim. Array zu zuweisen, allerdings bekomme ich immer folgenden Fehler (bei der Zuweisung):
Der Code sieht im Ausschnitt wie folgt aus:
Des weiteren wird ich gern die 'VDet' per Schleife erhöhen, aber wie kann ich die Vektorbezeichnung mit der Schleifenvariable verbinden, so dass von VDet1 bis VDet20 durchgelaufen wird?
Danke euch
Ich Versuche den Returnwert einer Funktion einem 2dim. Array zu zuweisen, allerdings bekomme ich immer folgenden Fehler (bei der Zuweisung):
System Null Reference Exception: Der Objektverweis wurde nicht auf eine Objektinstanz
Der Code sieht im Ausschnitt wie folgt aus:
Code:
Public Function fct_KorrWertBerechnen(ByVal V1() As Single, ByVal V2() As Single) As Single
Dim V1Mittelwert As Single = 0
Dim V2Mittelwert As Single = 0
Dim SumZaehler As Single = 0
Dim SumNenner1 As Single = 0
Dim SumNenner2 As Single = 0
Dim KorrWert As Single = 0
For Spalte = 0 To UBound(V1)
V1Mittelwert = V1Mittelwert + V1(Spalte)
V2Mittelwert = V2Mittelwert + V2(Spalte)
Next Spalte
V1Mittelwert = V1Mittelwert / (UBound(V1) + 1)
V2Mittelwert = V2Mittelwert / (UBound(V2) + 1)
For Spalte = 0 To UBound(V1)
SumZaehler = SumZaehler + (V1(Spalte) - V1Mittelwert) * (V2(Spalte) - V2Mittelwert)
SumNenner1 = SumNenner1 + (V1(Spalte) - V1Mittelwert) * (V1(Spalte) - V1Mittelwert)
SumNenner2 = SumNenner2 + (V2(Spalte) - V2Mittelwert) * (V2(Spalte) - V2Mittelwert)
Next Spalte
KorrWert = SumZaehler / (System.Math.Sqrt(SumNenner1) * System.Math.Sqrt(SumNenner2))
Return KorrWert
End Function
Public Function fct_KorrMatrixBerechnen() As Single(,)
Dim KorrMatrix(,) As Single
Dim Korrelation As Single
For Zeile = 0 To 19
For Spalte = 0 To 19
--> Fehlermeldung-->> KorrMatrix(Zeile, Spalte) = fct_KorrWertBerechnen(VDet1, VDet2)
Next Spalte
Next Zeile
Return KorrMatrix
End Function
Des weiteren wird ich gern die 'VDet' per Schleife erhöhen, aber wie kann ich die Vektorbezeichnung mit der Schleifenvariable verbinden, so dass von VDet1 bis VDet20 durchgelaufen wird?
Danke euch
