Code vereinfachen

  • VB.NET

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

    Code vereinfachen

    Hallo,

    Kann mir bitte jemand zeigen wie man diesen Code vereinfachen kann?

    Ich habe unter My.Settings ca. 100 Boolean Werte. Rated0 bis Rated100

    Aktuell habe ich noch 100 mal den gleichen Code


    If My.Settings.Rated0 = True And Treeview1.SelectedNode.Tag = 0 Then
    btnRate.Enabled = False
    End If

    If My.Settings.Rated1 = True And Treeview1.SelectedNode.Tag = 1 Then
    btnRate.Enabled = False
    End If

    usw... bis 100

    Wie vereinfache ich es, damit ich mit ein paar Zeilen alle Settings überprüfen kann?

    Und dann noch das hier:

    If My.Settings.Rated0 = False And Treeview1.SelectedNode.Tag = 0 Or My.Settings.Rated1 = False And Treeview1.SelectedNode.Tag = 1 Or ...
    btnRate.Enabled = True
    End If

    usw. bis 100

    Wie vereinfache ich das, damit ich mit ein paar Zeilen alle Settings überprüfen kann?

    Danke für eure Hilfe!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Loquax“ ()

    Würde helfen, wenn du etwas über Dein Programm erzählst, was es machen soll. Evtl. ein bisschen mehr Code und nen Screenshot, damit man ne Vorstellung bekommt. So sieht es nach einem ziemlichen "Programmdesign-Fehler" aus. Sinnvolle Hilfe braucht etwas mehr Info.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Also ich habe ein Treeview in dem man Sachen auswählen und anschließend bewerten kann. Allerdings soll man dies nur einmal können. Deshalb speichere ich beim Klick auf den Bewerten Button in My.Settings Booleans für die jeweilige Sache ab, die ich dann später wieder überprüfe.

    Sache 10 => Rated10 usw.

    Wenn Rated10 True ist, dann wird der Bewertenbutton deaktiviert, wenn Rated10 False ist, dann wird der Bewertenbutton aktiviert.

    Die Sachen identifiziere ich über die Node Tags, in denen die ID steht (0-100).

    If My.Settings.Rated1 = True And Treeview1.SelectedNode.Tag = 1 Then
    btnRate.Enabled = False
    End If

    Heißt zum Beispiel: Wenn die 2. Sache im Treeview schon bewertet wurde und die 2. Sache ausgewählt ist, dann deaktiviere den Bewertungsbutton.


    If My.Settings.Rated0 = False And Treeview1.SelectedNode.Tag = 0 Or My.Settings.Rated1 = False And Treeview1.SelectedNode.Tag = 1 Or ...
    btnRate.Enabled = True
    End If

    Heißt zum Beispiel: Wenn die 1. oder 2. Sache im Treeview noch nicht bewertet wurde und die 1. oder 2. Sache ausgewählt ist, dann aktiviere den Bewertungsbutton.

    Mir ist bewusst, dass die Methode nicht das Gelbe vom Ei ist. Ursprünglich wollte ich es innerhalb von wenigen Zeilen mit PHP und MySQL abhandeln, aber leider bin ich auf ein Problem gestoßen, das noch niemand lösen konnte, deshalb habe ich nun versucht es lokal zu lösen.

    Danke für eure Hilfe.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Loquax“ ()

    Ist das TreeViewControl unbedingt erforderlich? Ich hab das nie benutzt und kann darüber kaum was sagen. Ich glaube nicht, dass dieses Control DataBinding richtig unterstützt. Pefekt wäre es, wenn Du Dich für ein DataGridView entscheiden würdest, dann könntest die ganzen Vorteile von Databinding nutzen, ohne überhaupt viel Code schreiben zu müssen.

    Ansonsten. Erstelle Dir z. B. eine Klasse "RatingItem", kapsle dort Deine gewünschten Properties und speichere Deine Daten in einer Textdatei, XML-Datei... oder sonst wo. Der Weg über My.Settings ist hier in meinen Augen nicht der Richtige.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Was soll bei Neustart des Programms passieren?
    Sind die vielen Settings überhaupt erforderlich?
    Pack die Dir in eine DataTable, die Du q&e speichern und laden kannst, in die Settings kannst Du da ggf. eine Prüfsumme eintragen.
    Oder Du hältst die Daten nur im Spaicher, ohne sie abzulegen.
    Wie genau ist Dein Plan?
    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!

    jo, Treeview ist gemein, weil nicht Databindeable.
    Ich hab mal Treeview-Sachen in einem Xml-Document gespeichert (NodeText, IsExpanded).
    Fandich passend, weil Xml ja auch eine Baumstruktur anlegt: Xml+DragnDrop
    Ist leider nicht ganz einfach, und du müsstest das Datenmodell dahingehend erweitern, dass zu einem TreeNode auch eine Bewertung abgespeichert und gelesen werden kann.

    Das hat mir gestern iwi keine Ruhe gelassen. Wie gesagt, das TreeView habe ich nie wirklich verwendet, habs aber trotzdem mal versucht, halbwegs, mit DataBinding aufzustellen. Muss auch dazu sagen, dass ich, was DataBinding angeht, auch nicht wirklich viel Ahnung hab, darum soll es ein Denkanstoss sein, keine gültige Lösung. Ist halt auch kein richtiges DataBinding, sondern so ein DrumRum.... Aber trotzdem zeigt es Dir vielleicht, dass man sein Datenmodell richtig aufstellen sollte, sonst endet es in endlosen "IF-Abfragen".

    In wie weit, dieser Code brauchbar ist, weiss ich nicht.

    Du brauchst ein DataSet, leg dort eine DataTable an (siehe Screenshot).

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private _savePath As String = "items.xml"
    4. Private Sub LoadItems()
    5. 'DataSet füllen.
    6. If IO.File.Exists(_savePath) Then
    7. Me.DataSet11.ReadXml(_savePath)
    8. End If
    10. 'Für jede Row im DataSet einen neuen TreeNode erzeugen
    11. For Each r As DataSet1.RatingItemRow In Me.DataSet11.RatingItem.Rows
    12. AddItem(r)
    13. Next
    14. End Sub
    16. Private Sub AddNewItem()
    17. 'Neue Zeile für das DataSet erzeugen.
    18. Dim r As DataSet1.RatingItemRow = DirectCast(Me.DataSet11.Tables("RatingItem").NewRow, DataSet1.RatingItemRow)
    20. 'Neue Zeile in DataSet einfügen.
    21. Me.DataSet11.RatingItem.AddRatingItemRow(r)
    23. 'Werte für die DataSet-Zeile festlegen.
    24. r.Description = "test" & r.ID.ToString()
    25. r.IsRated = False
    26. r.Rating = 0
    28. 'DataSet speichern
    29. Me.DataSet11.WriteXml(_savePath)
    31. 'Neue Zeile ins TreeView einhängen.
    32. AddItem(r)
    33. End Sub
    35. Private Sub AddItem(ByVal r As DataSet1.RatingItemRow)
    36. 'TreeNode erzeugen
    37. Dim tN As New TreeNode(r.Description)
    39. 'Name (=Key) für den ersten TreeNode festlegen
    40. tN.Name = r.ID.ToString()
    41. 'Als Tag wird die Zeile im DataSet festgelegt
    42. tN.Tag = r
    44. 'Hier prüfen, ob bereits gevoted wurde
    45. If r.IsRated Then
    46. 'wenn ja, einen ChildTreeNode anhängen, welcher als Tag wieder die aktuelle Zeile im DataSet erhält.
    47. Dim tN1 As New TreeNode(r.Rating.ToString())
    49. tN1.Tag = r
    51. tN.Nodes.Add(tN1)
    52. End If
    54. 'TreeNode ins TreeView einhängen.
    55. Me.TreeView1.Nodes.Add(tN)
    56. End Sub
    58. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    59. LoadItems()
    60. End Sub
    62. 'In dieser Sub wird abgestimmt.
    63. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    64. Dim rating As Integer = 0
    66. 'Rating aus der TextBox holen, nur wenn gültiger Integer
    67. If Not Integer.TryParse(Me.TextBox1.Text, rating) Then
    68. Exit Sub
    69. End If
    71. If Not IsNothing(Me.TreeView1.SelectedNode) Then
    72. 'Aus dem Tag die Zeile im DataSet holen.
    73. Dim r As DataSet1.RatingItemRow = DirectCast(Me.TreeView1.SelectedNode.Tag, DataSet1.RatingItemRow)
    75. 'Rating festlegen.
    76. r.Rating = rating
    78. 'Hier abfragen, ob bereits gevoted wurde. Ich finde es besser, wenn man auch bereits gevotete Werte
    79. 'in Nachhinein ändern kann. Also die Sache mit dem Button disablen ist nicht schön in meinen Augen.
    80. 'Jedoch kannst hier, falls Du es wünscht, den Button disablen.
    81. If Not r.IsRated Then
    82. 'Wenn noch nicht gevoted, eine neues Child einhängen.
    83. Dim tN As New TreeNode(r.Rating.ToString())
    85. 'Das Child bekommt auch wieder den Tag der akutellen Zeile im DataSet
    86. tN.Tag = r
    88. 'Festlegen, dass bereits gevoted wurde
    89. r.IsRated = True
    91. 'Child einhängen
    92. Me.TreeView1.SelectedNode.Nodes.Add(tN)
    93. Else
    94. 'Wenn bereits gevoted wurde, das Rating entsprechend aktualisieren.
    95. Me.TreeView1.Nodes.Find(r.ID.ToString(), False)(0).Nodes(0).Text = r.Rating.ToString()
    96. End If
    98. 'DataSet speichern.
    99. Me.DataSet11.WriteXml(_savePath)
    100. End If
    101. End Sub
    103. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    104. 'Hier können Einträge wieder gelöscht werden.
    105. If Not IsNothing(Me.TreeView1.SelectedNode) Then
    106. 'Tag der selektierten Node in die Zeile des DataSets casten.
    107. Dim r As DataSet1.RatingItemRow = DirectCast(Me.TreeView1.SelectedNode.Tag, DataSet1.RatingItemRow)
    109. 'Eintrag aus dem TreeView löschen. ID = eindeute Bezeichnung der Node.
    110. Me.TreeView1.Nodes.RemoveByKey(r.ID.ToString())
    111. 'Zeile aus dem DataSet löschen
    112. Me.DataSet11.RatingItem.Rows.Remove(r)
    113. 'DataSet speichern.
    114. Me.DataSet11.WriteXml(_savePath)
    115. End If
    116. End Sub
    118. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    119. 'Ein neues, leeres, Item hinzfügen.
    120. AddNewItem()
    121. End Sub
    122. End Class


    Ich hab Dir jede Menge Kommentare in den Code geschrieben.
    Bilder

    • Unbenannt.JPG

      11,73 kB, 151×105, 165 mal angesehen
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende