Generics und Listenstrukturen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Generics und Listenstrukturen

    Hallo,
    ich möchte gerne ein Programm um eine Funktion erweitern.
    Und zwar um eine Suchfunktion mit der Methode FindIndex() der Klasse List.
    Im Formular habe ich drei Radiobuttons hinzugefügt (kleiner, gleich oder größer).
    Wenn der Anwender die Option kleiner markiert, soll nach dem Starten der Suche
    der erste Wert in der Liste markiert werden, der kleiner ist als das Suchkriterium.
    Bei der Option gleich soll der erste Wert markiert werden, der mit dem Suchkriterium
    übereinstimmt, und bei der Option größer der erste Wert, der größer ist als das Suchkriterium.
    Falls die Suche kein Ergebnis liefert, soll eine entsprechende Meldung ausgegeben werden.
    Ich frage mich wie ich das am besten programmieren soll. Eventuell mit einer extra Methode
    für die Predicate Delegaten?
    Ich wäre sehr dankbar für eure Hilfe.
    Hier ist der Quellcode und ein Foto von dem Formular.

    VB.NET-Quellcode

    1. Public Class Form1
    3. 'das Feld für die Liste
    4. Private liste As List(Of Integer)
    5. Private zufall As Random
    7. 'eine eigene Methode zum Aktualisieren der Liste
    8. Private Sub listeAktualisieren()
    9. 'alle Einträge löschen
    10. listBox1.Items.Clear()
    12. 'und die Liste neu aufbauen
    13. For schleife As Integer = 0 To liste.Count - 1
    14. listBox1.Items.Add(liste(schleife))
    15. Next
    17. 'den maximalen Wert für das einzelne Einfügen setzen
    18. numericUpDownNeuPosition.Maximum = liste.Count + 1
    20. 'wenn die Liste leer ist, werden die Schaltflächen
    21. 'zum Löschen, Suchen und Sortieren deaktiviert
    22. If liste.Count = 0 Then
    23. buttonSuchen.Enabled = False
    24. buttonSortieren.Enabled = False
    25. buttonLoeschen.Enabled = False
    26. buttonAlleLoeschen.Enabled = False
    28. 'den maximalen Wert zum Löschen setzen
    29. numericUpDownLoeschen.Maximum = 1
    30. Else
    31. buttonSuchen.Enabled = True
    32. buttonSortieren.Enabled = True
    33. buttonLoeschen.Enabled = True
    34. buttonAlleLoeschen.Enabled = True
    36. 'den maximalen Wert zum Löschen setzen
    37. numericUpDownLoeschen.Maximum = liste.Count
    38. End If
    39. End Sub
    41. 'der Konstruktor
    42. Public Sub New()
    43. InitializeComponent()
    45. 'eine neue generische Liste erzeugen
    46. liste = New List(Of Integer)()
    48. 'für die Zufallszahlen
    49. zufall = New Random()
    51. 'die Liste direkt nach dem Start über die eigene Methode aktualisieren
    52. listeAktualisieren()
    53. End Sub
    55. Private Sub buttonNeuAnzahl_Click(sender As Object, e As EventArgs) Handles buttonNeuAnzahl.Click
    56. 'die neuen Elemente in die Liste stellen
    57. For schleife As Integer = 0 To CInt(numericUpDownNeuAnzahl.Value) - 1
    58. liste.Add(zufall.Next(1000))
    59. Next
    61. 'die Liste aktualisieren
    62. listeAktualisieren()
    63. End Sub
    65. Private Sub buttonNeuPosition_Click( sender As Object, e As EventArgs) Handles buttonNeuPosition.Click
    66. 'einen neuen Eintrag an der gewünschten Position einfügen
    67. liste.Insert(CInt(numericUpDownNeuPosition.Value) - 1, zufall.Next(1000))
    69. 'die Liste aktualisieren
    70. listeAktualisieren()
    71. End Sub
    73. Private Sub buttonLoeschen_Click(sender As Object,,e As EventArgs) Handles buttonLoeschen.Click
    74. 'den Eintrag an der gewünschte Position löschen
    75. liste.RemoveAt(CInt(numericUpDownLoeschen.Value) - 1)
    77. 'die Liste aktualisieren
    78. listeAktualisieren()
    79. End Sub
    81. Private Sub buttonSuchen_Click(sender As Object, e As EventArgs) Handles buttonSuchen.Click
    82. 'steht überhaupt etwas im Suchfeld?
    83. If textBox1.Text = String.Empty Then
    84. Return
    85. End If
    87. 'für das Suchergebnis
    88. Dim pos As Integer
    90. 'die Suche durchführen mit dem Wert aus dem Textfeld
    91. pos = liste.IndexOf(CInt(textBox1.Text))
    93. 'wenn etwas gefunden wurde, in der Liste markieren
    94. If pos > -1 Then
    95. listBox1.SelectedIndex = pos
    96. Else
    97. MessageBox.Show("Der Wert befindet sich nicht in der Liste.")
    98. End If
    99. End Sub
    101. Private Sub buttonAlleLoeschen_Click(sender As Object, e As EventArgs) Handles buttonAlleLoeschen.Click
    102. 'alle Einträge in der Liste löschen
    103. liste.Clear()
    105. 'die Liste aktualisieren
    106. listeAktualisieren()
    107. End Sub
    109. Private Sub buttonSortieren_Click(sender As Object, e As EventArgs) Handles buttonSortieren.Click
    110. 'die Liste sortieren
    111. liste.Sort()
    113. 'die Liste aktualisieren
    114. listeAktualisieren()
    115. End Sub
    117. Private Sub buttonBeenden_Click(sender As Object, e As EventArgs) Handles buttonBeenden.Click
    118. 'die Anwendung beenden
    119. Close()
    120. End Sub
    121. End Class


    MfG

    Code zur Lesbarkeit verholfen ~ EaranMaleasi
    Bilder

    • Unbenannt.JPG

      35,64 kB, 505×357, 62 mal angesehen

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

    Am besten macht man sowas mit einem typisierten Dataset und Databinding.
    Aber wäre eine Menge zu lernen - und grad mit einer dummen Liste von Zahlen geht das nicht, weil ein Dataset besteht aus Datensätzen - das sind Klassen, die jeweils mehrere Properties haben, und wenn man sb. eine gefilterte oder sortierte Ansicht will, muss man die Property mit angeben, nach der gefiltert/sortiert sein soll.
    Aber ist das realistischere Szenario, weil ich glaub kaum dass man mit einem Proggi was anfangen kann, was nur eine Zahlen-Liste sortieren/filtern/durchsuchen kann.

    Bei Interesse frag nochma.l

    Da gebe ich dir völlig recht. Mit einer Datenbank wäre es viel einfacher. Leider ist es eine Aufgabe in meinem Fernstudium,
    die leider so gelöst werden muss.
    Den Sinn dahinter erkenn ich auch nicht. Ich zerbreche mir jetzt schon seit Tagen den Kopf darüber aber komme nicht
    auf die Lösung. Ich hab zwar einen Ansatz aber der funktioniert nicht. Vielleicht hast du eine Idee?
    Danke im Voraus

    Hi, anhand dieser Aussage nehme ich mal an, dass du FindIndex benutzen musst:

    Vogel87 schrieb:

    [...] mit der Methode FindIndex() [...]


    In diesem Fall geht dein Gedankengang auf jeden Fall schomal in die richtige Richtung:

    Vogel87 schrieb:

    Eventuell mit einer extra Methode
    für die Predicate Delegaten?


    FindIndex gibt dir den Index des ersten Elements zurück, das eine gewisse Bedingung (dein Predicate) erfüllt. Falls keines der Elemente die Bedingung erfüllt, bekommst du -1 zurück.
    Wenn du jetzt als Predicate deine jeweils nötige Bedingung einsetzt, bekommst du auch den gesuchten Index. (Hinweis: Insgesamt hast du 3 verschiedene Bedingungen wegen den 3 möglichen Suchrichtungen, also wirst du voraussichtlich auch 3 Predicates brauchen).
    Hier mal ein kleiner Denkanstoß, der dich in die richtige Richtung führen könnte:

    Visual Basic-Quellcode

    1. Dim index As Integer = liste.FindIndex(Function(zahl) zahl = 13)
    3. If index = -1 Then
    4. Console.WriteLine("Keine Zahl erfüllt die Bedingung.")
    5. Else
    6. Console.WriteLine($"Die Zahl an Index {index} (Wert = {liste(index)}) erfüllt die Bedingung.")
    7. End If

    Vogel87 schrieb:

    Da gebe ich dir völlig recht. Mit einer Datenbank wäre es viel einfacher.
    Achtung! (da seh ich immer rot)
    Ein typisiertes Dataset ist keine Datenbank.
    Und mit einer Datenbank wäre es mitnichten einfacher, das wäre einfach mit Kanonen auf Spatzen geschossen.

    Aber gut - wenn du an einem Fernstudium leidest, kann man natürlich nicht über die Sinnhaftigkeit der Aufgaben debattieren.

    Wirklich eine Idee hab ich nicht. > 100 Zeilen Code sind mir zuviel, um da so vom Angucken her durchzusteigen, und du hast auch keinen Hinweis gegeben, was genau da nicht funzt.
    (oder ich habs überlesen - ich muss zugeben, bin ein echt schlampiger leser)
    Ich sehe da was von liste.IndexOf(), liste.Sort(), und ListeAktualisieren() - das sieht mir auf dem ersten Blick garnet so verkehrt aus.
    Möglicherweise ein Teufel im Detail - also ich seh ihn grad nicht.

    Du kannst dein Werk aber auch zippen und als DateiAnhang anhängen. Aber bitte ohne den bin-Ordner.Binaries verteilen sehen wir nicht so gerne im Forum.
    Anleitung:
    Forum-Funktionalität – Klick mich!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Hallo,
    also der Code den ich geschickt hatte Funktionniert, so weit alles ok.
    Leider hat mir der Denkanstoss nicht geholfen.
    Ich dachte ich müsste es umgefähr so programmieren aber bekomme viele Fehlermeldungen.

    VB.NET-Quellcode

    1. Private Shared Function findeklein(Zahl As Integer) As Boolean
    3. If Zahl < Sukleiner Then
    4. listBox1.SelectedIndex = pos
    5. Else MessageBox.Show("Der erste Wert aus der Liste ist nicht kleiner als das Suchergebnis")
    6. End If
    7. End Function
    9. Private Shared Function findegleich(Zahl As Integer) As Boolean
    11. If Zahl = Sugleich Then
    12. listBox1.SelectedIndex = pos
    13. Else MessageBox.Show("Der erste Wert aus der Liste ist nicht gleich dem Suchergebnis")
    14. End If
    15. End Function
    17. Private Shared Function findegroesser(Zahl As Integer) As Boolean
    19. If Zahl > Sugroesser Then
    20. listBox1.SelectedIndex = pos
    21. Else MessageBox.Show("Der erste Wert aus der Liste ist nicht größer als das Suchergebnis")
    22. End If
    23. End Function
    25. 'Für die delegaten
    27. Public Shared Sub main()
    28. Dim Sukleiner As New Predicate(Of Integer)(AdressOf findeklein)
    29. Dim Sugleich As New Predicate(Of Integer)(AdressOf findegleich)
    30. Dim Sugroesser As New Predicate(Of Integer)(AdressOf findegroesser)
    31. End Sub


    Wie gesagt ich komme einfach nicht drauf.
    Ich schicke euch mal als Anhang mein Werk. Der Abschnitt der nicht Funktionniert ist ausgeklammert.

    MfG
    Dateien

    Geht bestimmt auch schöner, aber in der buttonSuchen_Click-Prozedur den If pos > -1 Then-Block weg und stattdessen

    VB.NET-Quellcode

    1. Dim FittingListIndex = -1
    2. If rbkleiner.Checked Then FittingListIndex = liste.FindIndex(Function(x) x < Integer.Parse(textBox1.Text))
    3. If rbgroesser.Checked Then FittingListIndex = liste.FindIndex(Function(x) x > Integer.Parse(textBox1.Text))
    4. If rbgleich.Checked Then FittingListIndex = liste.FindIndex(Function(x) x = Integer.Parse(textBox1.Text))
    5. If FittingListIndex = -1 Then MessageBox.Show("keinen passenden Eintrag gefunden") : Return
    6. listBox1.SelectedIndex = FittingListIndex
    Allerdings gefällt mir diese Mischung aus liste-prüfen und ListBox-Manipulieren nicht sonderlich. Das kann früher oder später daneben gehen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende