Sortieralgorithmen in Visual Basic

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Beep!.

    Sortieralgorithmen in Visual Basic

    Hallo!

    Ich beschäftige mch seit Kurzem mit der Sortierung von Zahlen. Recht schnell habe ich mit auch bereits meinen eigenen Insertionsort-Algorithmus geschrieben:

    VB.NET-Quellcode

    1. Function Sort(ByVal Liste As List(Of Integer)) As List(Of Integer)
    3. Dim Ziel As List(Of Integer) = New List(Of Integer)
    4. Dim index As Integer
    6. For Each Wert In Liste
    7. index = 0
    8. For Each Zielwert In Ziel
    9. If Wert > Zielwert Then index += 1
    10. Next
    11. Ziel.Insert(index, Wert)
    12. Next
    14. Return Ziel
    16. End Function


    Meine Frage ist nun:

    Welche Sortieralgorithmen kann man in Visual Basic (2010 Express) umsetzen, d.h. als einigermaßen Fortgeschrittener ohne Hilfe selbst schreiben? Welche sind (in Visual Basic) schnell und arbeiten effizient? Kann ich meinen vielleicht noch verbessern?

    MfG Markus

    Das geht einfach mit einer Klasse, die von Klass Comparer (Of T) abgeleitet wird.
    Beispiel:

    VB.NET-Quellcode

    1. Private Sub Test()
    2. Dim myList As New List(Of Integer)
    3. Dim myIntegerComparer As New IntegerComparer
    4. Dim rdm As New Random
    5. Dim x As Integer
    7. For index As Integer = 0 To 50
    8. x = rdm.Next(0, 1000)
    9. myList.Add(x)
    10. Next
    12. Debug.WriteLine("")
    13. Debug.WriteLine(Now.ToString)
    14. Debug.WriteLine("======================================")
    15. For Each zahl As Integer In myList
    16. Debug.WriteLine("Unsortiert: " & zahl.ToString(""))
    17. Next
    19. myList.Sort(myIntegerComparer)
    20. Debug.WriteLine("======================================")
    21. For Each zahl As Integer In myList
    22. Debug.WriteLine("Sortiert: " & zahl.ToString(""))
    23. Next
    24. End Sub
    26. Private Class IntegerComparer
    27. Inherits Comparer(Of Integer)
    29. Public Overrides Function Compare(ByVal x As Integer, ByVal y As Integer) As Integer
    30. Return x.CompareTo(y)
    31. End Function
    32. End Class

Facebook