Rückgabe einer Function als Array oder zwei werte

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Rückgabe einer Function als Array oder zwei werte

    Hallo,
    ich habe eine Function geschrieben die zwei werte definiert.
    Diese möchte ich nun zurück geben.

    Das wollte ich per Array oder einzeln machen.

    Ich hatte das erstmal so gelöst:

    VB.NET-Quellcode

    1. Function GetDelta()As Integer()
    2. ........
    3. Zurueck(0) = y3
    4. Zurueck(1) = x3
    6. Return (Zurueck)
    7. End Function



    Und zum auslesen:

    VB.NET-Quellcode

    1. Array()=GetDelta()



    Leider funktioniert das nicht

    Du musst das Feld anlegen, bevor Du es zurückgibst.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim aa() As Integer = GetDelta()
    3. End Sub
    4. Function GetDelta() As Integer()
    5. Dim Zurueck(2) As Integer
    6. Zurueck(0) = 1
    7. Zurueck(1) = 3
    8. Return (Zurueck)
    9. End Function
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Select Case Fall
    2. Case 1
    3. Dim Delta() As Integer = GetDelta(0, 2, Array)
    4. Case 2
    5. Dim Delta() As Integer = GetDelta(2, 4, Array)
    6. Case 3
    7. Dim Delta() As Integer = GetDelta(4, 6, Array)
    8. Case 4
    9. Dim Delta() As Integer = GetDelta(6, 8, Array)
    10. Case 5
    11. Dim Delta() As Integer = GetDelta(0, 4, Array)
    12. Case 6
    13. Dim Delta() As Integer = GetDelta(6, 10, Array)
    14. Case 7
    15. Dim Delta() As Integer = GetDelta(2, 6, Array)
    16. Case 8
    17. Dim Delta() As Integer = GetDelta(4, 8, Array)
    18. Case 9
    19. Dim Delta() As Integer = GetDelta(0, 7, Array)
    20. End Select
    22. Return (Delta)


    Er sagt mir jedoch bei dem Return, dass Delta nicht definiert seie