zusammenfassen/kürzen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Infinity.

    zusammenfassen/kürzen

    Hallo,
    ich habe im folgenden Code einige Schleifen gebildet die ich gerne zusammenfassen bzw. kürzen würde.
    Wie ist mir egal auch gerne mit Linq.

    VB.NET-Quellcode

    1. If Sch.Statuz = Status.One Then
    2. If Sizees.Count < Sch.B.Length Then Sizees.Add(Sch.SizeOne) Else Exit While
    3. ElseIf Sch.Statuz = Status.Up Then
    4. For i As Integer = Sch.SizeOne To Sch.SizeTwo
    5. For a As Integer = 1 To 10
    6. If Not i = Sch.SizeTwo AndAlso Sizees.Count < Sch.B.Length Then Sizees.Add(i) Else Exit For
    7. Next
    8. Next
    9. ElseIf Sch.Statuz = Status.Two Then
    10. For i As Integer = Sch.SizeTwo To Sch.SizeOne Step -1
    11. For a As Integer = 1 To 10
    12. If Not i + 1 = Sch.SizeOne AndAlso Sizees.Count < Sch.B.Length Then Sizees.Add(i) Else Exit For
    13. Next
    14. Next
    15. ElseIf Sch.Statuz = Status.Three Then
    16. For i As Integer = Sch.SizeOne To Sch.SizeTwo
    17. If Sizees.Count < Sch.B.Length Then Sizees.Add(i)
    18. Next
    19. For i = Sch.SizeTwo To Sch.SizeOne Step -1
    20. If Sizees.Count < Sch.B.Length Then Sizees.Add(i)
    21. Next
    22. ElseIf Sch.Statuz = Status.Four Then
    23. If Sizees.Count < Sch.B.Length Then Sizees.Add(rand.Next(10, 20)) Else Exit While
    24. End If


    Bestehen da irgendwelche Möglichkeiten das zu kürzen?

    Ich danke im Vorraus!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „striker1995“ ()

    Ich bin mir nicht sicher was dein Code macht, aber auf jeden Fall kannst du den If-Block durch einen Select-Case-Block ersetzen.

    Was die Schleifen betrifft, wie gesagt, ich weiß nicht genau was du mit dem Code bezweckst, aber man könnte sie evtl. in eine eigene Funktion auslagern. Manchmal kommt man allerdings nicht darum herum, eine etwas längere Funktion zu schreiben.

Facebook
Telefonspende