List(Of Class)

  • VB.NET

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

    List(Of Class)

    Hallo Zusammen

    Ich komme mit dem folgenden Problem einfach nicht weiter.
    Ich habe eine unbekannte Anzahl an Datensätzen. Und jeder Datensatz kann wiederum eine unbekannte Anzahl an Messwerten haben.

    Ich habe mir mal eine Klasse mit Properties angelegt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class MathSensCalc
    2. Public Sub New()
    3. _ID = -1
    4. _MaxItems = 0
    5. _Values = New List(Of Double)
    6. _AddValue = 0
    7. End Sub
    9. Private _ID As Integer
    10. Public Property ID As Integer
    11. Get
    12. Return _ID
    13. End Get
    14. Set(value As Integer)
    15. _ID = value
    16. End Set
    17. End Property
    19. Private _MaxItems As Integer
    20. Public Property MaxItems As Integer
    21. Get
    22. Return _MaxItems
    23. End Get
    24. Set(value As Integer)
    25. _MaxItems = value
    26. LimitValues()
    27. End Set
    28. End Property
    30. Private _Values As List(Of Double)
    31. Public Property Values As List(Of Double)
    32. Get
    33. Return _Values
    34. End Get
    35. Set(value As List(Of Double))
    36. _Values = value
    37. LimitValues()
    38. End Set
    39. End Property
    41. Private _AddValue As Double
    42. Public WriteOnly Property AddValue As Double
    43. Set(value As Double)
    44. Dim v As List(Of Double) = Me.Values
    45. v.Add(value)
    46. Me.Values = v
    47. End Set
    48. End Property
    50. Private Sub LimitValues()
    51. If _Values.Count > _MaxItems Then
    52. If _MaxItems = 0 Then 'Delete!
    53. _ID = -1
    54. _Values.RemoveRange(0, _Values.Count)
    55. Else 'Limit to MaxItems
    56. While _Values.Count > _MaxItems
    57. _Values.RemoveAt(0)
    58. End While
    59. End If
    60. End If
    61. End Sub
    62. End Class


    Darin kann man ID und MaxItems speichern.
    Wird MaxItems verändert, oder ein Wert hinzugefügt, wird automatisch mit der Funktion LimitValues die maximale Anzahl an Einträgen begrenzt.

    Das funktioniert.

    Nun muss ich "nur noch" eine List(of dieserKlasse) machen.
    Das sieht bei mir so aus:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Dim LM As New List(Of MathSensCalc)
    4. Dim MathTmp As New MathSensCalc
    6. MathTmp.ID = 1
    7. MathTmp.MaxItems = 10
    8. For i As Integer = 0 To 15
    9. MathTmp.AddValue = i
    10. Next
    11. LM.Add(MathTmp)
    12. Stop
    13. MathTmp.MaxItems = 0
    15. MathTmp.ID = 2
    16. MathTmp.MaxItems = 3
    17. For i As Integer = 0 To 15
    18. MathTmp.AddValue = i
    19. Next
    20. LM.Add(MathTmp)
    21. MathTmp.MaxItems = 0
    22. Stop
    23. End Sub
    24. End Class


    Lasse ich das bis zum ersten Stop laufen, ist alles gut. In LM stehen alle Werte korrekt.
    Steppe ich danach aber weiter, bis MathTmp.MaxItems = 0 ausgeführt wird, dann wird auch in LM alle Werte gelöscht.

    Was mache ich Anfänger hier falsch?

    Veronesi

    Hallo Sonne75

    Danke :)
    Aber die Daten kommen bereits aus einem DataSet.
    Ich wollte hier eine Art "Zwischenspeicher" mit speziell ausgewählten Daten haben, die dann in einem zweiten Thread verrechnet werden.
    Dann kann ich nicht mehr auf das erste DataSet zugreifen, weil diese Daten sich dann laufend (während der komplizierten Berechnung) verändern.

    Klar, ich könnte ein zweites DataSet nehmen und dort die Daten einspeichern. Wäre vielleicht die Beste Methode.
    Aber warum läuft das Andere nicht?

    Veronesi schrieb:

    VB.NET-Quellcode

    1. Dim LM As New List(Of MathSensCalc)
    Pack diese Zeile aus der Prozedur in die Klasse.
    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!

    Hey,

    Du musst schon jedes mal eine neue Instanz Deiner Klasse erstellen. Momentan arbeitest Du stets mit der selben Instanz.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Veronesi schrieb:

    Dim MathTmp As New MathSensCalc

    An dieser (einzigen) Stelle instanzierst du dein MathSensCalc-Objekt. Du änderst ein paar seiner Eigenschaften, dann fügst du es der List(Of MathSensCalc) hinzu.

    Nun verhält es sich aber so, dass MathTmp eigentlich nur ein Verweis auf dein oben erstelltes Objekt ist. Wenn du also nach dem ersten Stop anfängst, seine Werte zu ändern und es mit den geänderten Werten erneut der Liste hinzufügst, hast du eigentlich nur dasselbe Objekt zwei Mal in deiner Liste. Und durch die Änderung der Eigenschaften hast du zudem auch die Eigenschaften des zuerst hinzugefügten Elements geändert.

    Füge nach dem ersten Stop

    VB.NET-Quellcode

    1. MathTmp = New MathSensCalc()
    ein und dein Beispiel sollte wie gewünscht funktionieren.
    Oder allgemeiner: Wann immer du ein neues MathSensCalc-Objekt brauchst, um es deiner Liste hinzuzufügen, solltest du auch entsprechend eine neue Instanz (Schlüsselwort New) erstellen.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.