Angepinnt [Sammelthread] Code-Korrektur

  • VB.NET

Es gibt 123 Antworten in diesem Thema. Der letzte Beitrag () ist von FormFollowsFunction.

    [Sammelthread] Code-Korrektur

    Da man häufiger User sieht die (funktionierenden) Code posten welcher aber leider eher schlecht als recht umgesetzt wurde, dachte ich mir mal ein Code-Korrektur-Sammel-Thread zu eröffnen. Grade als Programmieranfänger hat man es ja schwer den eigenen Code einzuschätzen - funktionieren ist eben nicht alles.

    Das soll hier möglichst kein Diskussion-Thread werden. Wenn ein Helfer Fehler macht kann man ja eine PN statt einen Post schreiben - nur so bleibt hier eine gewisse Übersicht bestehen. Wenn der Thread gut läuft hätte man irgendwann eine Art Sammlung "guter Code vs. schlechter Code" von der man wiederum viel lernen kann.

    Wie stelle ich mir das hier vor?

    Der Hilfe suchende: postet einen Code-Ausschnitt der folgende Kriterien erfüllt:
    - der Code muss Option Strict On programmiert sein - wird langweilig immer wieder zu sagen dass 'String + Double kein Integer ergibt'
    - der Code "funktioniert" aber man ist sich nicht sicher ob er auch gut umgesetzt ist
    - keine gezielte Frage zum Code, dafür ist das Forum besser geeignet!
    - ein relativ kurzer Code-Ausschnitt der ein bestimmtes Problem löst - niemand will hier Romane verbessern. Wer alles in eine 3km hohe Methode packt, dem ist nicht mehr zu helfen^^
    - Controls und Variablen sollten anständig benannt sein. Evtl das ein oder andere Kommentar setzten, damit klar wird um welche Controls es sich handelt
    - Der Code muss anständig formatiert sein! Es gibt einen Vorschau-Button um das vor dem posten zu prüfen und eine kleine Anleitung für Unwissende
    - Eine kleine Beschreibung was der Code überhaupt bezwecken soll wäre angebracht


    Der Helfende: Er und seine Antwort sollte auch ein paar Punkte erfüllen:
    - Helfer soll mehr Wissen haben als der Hilfsbedürftige - man geht schließlich auch nicht ins Cockpit um dem Piloten zu sagen wie er fliegen soll
    - möglichst keine "Einzeiler-Antworten" (außer der Code ist wirklich hoffnungslos oder fehlerfrei)
    - den bestehenden Code übernehmen und entsprechend kommentieren - was wurde gut/schlecht umgesetzt, wo sind die Fehler? Was könnte man anders machen, etc
    - vllt auch eine abgeänderte oder eigene Version posten - aber bitte mit Kommentaren UND Option Strict On
    - evtl nicht alles zu hart anpacken. Die groben Fehler raus, Kleinigkeiten ( My-Namespace statt System.IO etc ) aufzeigen.
    - wenn möglich ein paar hilfreiche Links nennen


    Beispiel

    Der 'Hilfsbedürftige' (da muss ein VBPler den Kopf für hinhalten, sry^^):

    Spoiler anzeigen
    Hallo. Der Code soll prüfen ob eine Trial-Version meines Programms abgelaufen ist. In der Data_z.cfg wird dazu beim ersten Programmstart das Ablaufdatum (also Jetzt + Gültigkeitsdauer) hinterlegt und bei jedem Programmstart mit der aktuellen Zeit vergleichen. Ist die Gültigkeitsdauer überschritten wird das Programm einfach beendet.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO
    4. Public Class Form1
    5. Dim Datum_Erststart As Date = Date.Now.Date
    6. Dim Datei As String
    7. Dim Pfad As String = "C:\Users\zeus\Desktop\Neuer Ordner (8)\Data_z.cfg"
    9. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. Label1.Text = CStr("Aktuelles Datum: " & Datum_Erststart)
    11. 'Ermitteln ob Datei vorhanden ist,wenn ja auslesen und vergleichen mit heutigem Datum!
    12. If My.Computer.FileSystem.FileExists(Pfad) Then
    13. Datei = File.ReadAllText(Pfad)
    14. Label2.Text = CStr("Ablaufdatum: " & Datei)
    15. If Datum_Erststart > CDate(Datei) Then
    16. MsgBox("Ihre Testphase ist abgelaufen")
    17. End
    18. Else
    19. End If
    20. Else
    21. Dim Msg, Number, StartDate As String
    22. Dim Days As Double
    23. Dim SecondDate As Date = Datum_Erststart
    24. Dim IntervalType As DateInterval
    25. IntervalType = DateInterval.DayOfYear 'Monat-Tag-usw- als Interval einstellbar !
    26. StartDate = CStr(Datum_Erststart) 'Zeit bei Start
    27. SecondDate = CDate(StartDate)
    28. Number = "20" 'Zeit in Tagen die hinzugerechnet wird (( DayOfYear ))
    29. Days = Val(Number)
    30. Msg = CStr(DateAdd(IntervalType, Days, SecondDate)) 'Neues erstelltes Datum (+20Tage)
    31. 'Datei erstellen und datum reinschreiben mit +20 Tage
    32. Dim txt As String = Msg
    33. Dim fss As StreamWriter = File.CreateText(Pfad) 'Später ins Gemüse wos keiner findet !
    34. fss.Write(txt)
    35. fss.Close()
    36. 'Ermitteln ob Datei vorhanden ist,wenn ja auslesen und vergleichen mit heutigem Datum!
    37. Datei = File.ReadAllText(Pfad)
    38. If Datum_Erststart > CDate(Datei) Then
    39. End
    40. End If
    41. End If
    42. 'Restzeit bis Ablauf !
    43. Dim Differenz_Zeit As Long = DateDiff("d", Datum_Erststart, Datei)
    44. Label3.Text = CStr("Restzeit: " & Differenz_Zeit)
    45. End Sub
    46. 'Label1 und Label2 sind nicht nötig !
    47. End Class


    Der Helfer:
    Spoiler anzeigen
    Hallo PersonXYZ (am besten immer den Namen nenne damit der Bezug erhalten bleibt). Hier erstmal die Dinge dir mir an deinem Code aufgefallen sind:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO
    4. Public Class Form1
    5. Dim Datum_Erststart As Date = Date.Now.Date 'könnte auch in anderen Methoden verwendung finden - ansonsten: globale deklaration unnötig
    6. Dim Datei As String 'Die Variable wird NUR in der Prüf-Methode gebraucht. Globales deklarieren ist unangebracht
    7. Dim Pfad As String = "C:\Users\zeus\Desktop\Neuer Ordner (8)\Data_z.cfg" 'ganz schlecht, besser in den Settings oder relativ zur .exe speichern
    9. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. Label1.Text = CStr("Aktuelles Datum: " & Datum_Erststart) 'es gibt auch eine .toString-Methode^^
    12. If My.Computer.FileSystem.FileExists(Pfad) Then 'Die IO.FileInfo kann das auch - My-Namespace ist nicht so schön
    13. Datei = File.ReadAllText(Pfad) 'Variable komisch benannt. Caste doch am besten direkt zu Date, den Dateiinhalt braucht man eh nie wieder
    14. Label2.Text = CStr("Ablaufdatum: " & Datei) 'es gibt auch eine .toString-Methode^^
    15. If Datum_Erststart > CDate(Datei) Then 'das CDate würde wegfallen.. ACHTUNG: KURIOSITÄT xD
    16. MsgBox("Ihre Testphase ist abgelaufen")
    17. End
    18. Else
    19. End If
    20. Else
    21. Dim Msg, Number, StartDate As String 'warum deklarieren aber keinen Wert zuweisen? Bei lokalen Variablen finde ich das sehr unschön
    22. Dim Days As Double 'Days soll sicher ein Integer sein?
    23. Dim SecondDate As Date = Datum_Erststart 'warum wird hier eine Variable einfach nur verdoppelt? Benutze doch weiterhin Datum_Erststart
    25. 'Der Teil ist wirklich hässlich. Mit einer Timespan ließe sich das in zwei Zeilen machen - übersichtlich und nachvollziehbar
    26. Dim IntervalType As DateInterval
    27. IntervalType = DateInterval.DayOfYear
    28. StartDate = CStr(Datum_Erststart)
    29. SecondDate = CDate(StartDate)
    30. Number = "20"
    31. Days = Val(Number) 'Cint oder .TryParse ist besser - glaube Val ist eine dieser "bösen Funktionen" aus VB6-Zeiten
    32. Msg = CStr(DateAdd(IntervalType, Days, SecondDate))
    36. Dim txt As String = Msg 'schon wieder unnötigerweise eine Variable verdoppelt. Msg könnte statt txt weiterverwendet werden, du änderst ja nichts
    37. Dim fss As StreamWriter = File.CreateText(Pfad) '[Später ins Gemüse wos keiner findet !] <= Das ich nicht lache: Programmabsturz wahrscheinlich, ILSpy oder andere Tools und man hat den Pfad definitiv!
    38. fss.Write(txt)
    39. fss.Close()
    41. Datei = File.ReadAllText(Pfad) 'relativ trivial da du vor zwei zeilen ein dir bekanntes Datum in die Datei geschrieben hast
    42. If Datum_Erststart > CDate(Datei) Then 'CDate könnte auch hier wegfallen
    43. End
    44. End If
    45. End If
    47. 'Restzeit bis Ablauf !
    48. Dim Differenz_Zeit As Long = DateDiff("d", Datum_Erststart, Datei) 'DateDiff ist untypisiert - gefällt mir nicht. Timespan sollte auch klappen.
    49. Label3.Text = CStr("Restzeit: " & Differenz_Zeit) 'es gibt auch eine .toString-Methode^^
    51. End Sub
    53. End Class


    ACHTUNG: KURIOSITÄT Wenn in der cfg-Datei 'murks' steht wird das Programm am CDate scheitern und eine Exception werfen. Lustigerweise arbeitest du im Form_Load-Event und dieses hat ein spezielles Verhalten: es ignoriert die Exception einfach. Das bedeutet: Wenn die Datei existiert und einen ungültigen Inhalt hat wird dein Programm an dieser Stelle immer aus der Methode rausspringen und die Trial-Version somit niemals ablaufen.

    Ich würde so vorgehen:


    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Public Const PFAD_ABLAUFDATUM As String = "ablaufdatum.txt" 'die bessere Alternative: ein Eintrag in den Settings. Ist aber alles unsicher.
    6. Public Const DAUER_TRIAL_TAGE As Integer = 30 'Die Trial soll 30 Tage gültg sein
    8. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    10. 'Try
    11. trialCheck() 'prüft ob die Trial-Version abgelaufen ist und beendet das Programm ggf
    12. 'Catch ex As Exception
    13. ' 'ein Fehler könnte auf manipulation hinweisen.
    14. 'End Try
    16. End Sub
    18. Public Sub trialCheck()
    20. Dim istAbgelaufen As Boolean = False
    21. Dim fi As New IO.FileInfo(PFAD_ABLAUFDATUM)
    22. Dim ablaufDatum As Date = Now + TimeSpan.FromDays(DAUER_TRIAL_TAGE)
    24. If fi.Exists Then
    25. 'Die Datei existiert
    26. Using reader As New IO.StreamReader(fi.OpenRead)
    27. Dim tmp As String = reader.ReadToEnd
    28. ablaufDatum = Date.Parse(tmp) 'TryParse wäre besser. Ist die Datei fehlerhaft könnte man auf manipulation tippen und die Trial als abgelaufen ansehen
    29. istAbgelaufen = (ablaufDatum <= Now)
    30. reader.Close()
    31. End Using
    32. Else
    33. 'Die Datei existiert nicht
    34. Using writer As New IO.StreamWriter(fi.OpenWrite)
    35. 'ablaufDatum = Now + TimeSpan.FromDays(DAUER_TRIAL_TAGE)
    36. writer.Write(ablaufDatum)
    37. writer.Flush()
    38. writer.Close()
    39. End Using
    40. End If
    42. If istAbgelaufen Then
    43. MsgBox("die Trial-Version ist abgelaufen")
    44. Me.Close()
    45. Else
    46. Dim ts As TimeSpan = ablaufDatum - Now
    47. MsgBox("die Trial ist noch " & CInt(ts.TotalDays) & " Tage gültig")
    48. End If
    50. End Sub
    52. End Class


    Der Code ist auch nicht 100% korrekt. Beispielsweise können immer noch Lese/Schreib-Fehler auftreten (z.B. wenn das Programm keine entsprechenden Rechte hat) die du abfangen solltest. Eine Textdatei ist auch nicht soo geeignet - ein Eintrag in den Settings wäre besser. Sicher ist das allerdings alles nicht - selbst ein "verstecken der Datei im Gemüse" ist unsicher und sorgt für verärgerte Nutzer wenn du ihnen das Dateisystem verhunzt^^ Um der angesprochenen Kuriosität zu entgehen ist es besser du arbeitest im Shown-Event (da fällt eine Exception nicht unter den Tisch) und/oder baust Try-Catch'es gezielt ein. TryParse-Methoden sind dem natürlich vorzuziehen.

    lg

    Links:
    [VB.NET] TryCatch ist ein heißes Eisen



    Ich hoffe der Thread wird seinen Zweck erfüllen. lg FreakJNS

    Ich finde das ist eine gute Idee und wollte es schon länger mal nutzen.
    Das hier ist einer der ersten Codes, die ich geschrieben habe und der ist an vielen Stellen mit heißer Nadel gestrickt und manche Probleme sind im Nachhinein wohl eher nicht elegant gelöst. Ich würde den Code (auch wenn er ganz solide funktioniert) ganz gerne nochmal etwas überarbeiten.

    Der Hintergrund:
    Das soll ein Programm sein, mit dem man die Merkfähikeit testen kann. Es wird eine Anordnung aus 3x3 Feldern grafisch dargestellt, eins nach dem anderen, danach soll der User sich erinnern und kann Panels anklicken und sie schwarz oder weiss machen um die Erinnerung anzugeben. Unten ist ein Bild. Zur Darstellung benutze ich Panels und ich nutze die BackColor Eigenschaft um die Farben Schwarz oder Weiss zu machen. Die Anordnugenen sollen vom User übrigens mental rotiert werden. Die Richtung wird durch einen zuvor eingeblendeten Pfeil vorgegeben. Also nochmal der Ablauf:
    1. Ein Pfeil zeigt die Richtung (links oder rechts)
    2. Mehrere 3x3 Felder werden nacheinander dargeboten
    3. Ein Response Screen erscheint wo man die Erinnerungen eingeben kann (mental rotiert)
    4. Der User bekommt ein Feedback um sein Erinnerungen mit den tatsächlichen Reizen abzugleichen
    5. Die Antworten werden gespeichert



    Ich bin nich so glücklich damit, dass ich Strings benutze um die Aufgaben zu speichern. Ich habe hier mal nur die wichtigsten Stellen aus dem Code herauskopiert. Ich hoffe der ist auch so nicht zu lang. Bin gespannt auf eure Kommentare.

    code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class SWM2
    2. Private Panelset(9) As Panel
    3. Private Responseset(36) As Panel
    4. Public WMAufgabenset(17) As String
    5. Private Rotateinfo() As Integer = {1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1}
    7. Private current_task As Integer = 0
    8. Private Uebung As Boolean
    9. Private Jetzt As Date
    10. Private Const responsetime As Integer = 60000
    11. Private SWMstartzeit As String
    12. Private Points As Integer = 0
    15. 'On LoAD
    16. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. Panelset = New Panel() {PanelA01, PanelA02, PanelA03, PanelA04, PanelA05, PanelA06, PanelA07, PanelA08, PanelA09}
    20. WMAufgabenset(0) = "111000000"
    21. WMAufgabenset(1) = "001011001"
    22. WMAufgabenset(2) = "000011000 100100100"
    23. WMAufgabenset(3) = "011000000 001001001"
    24. WMAufgabenset(4) = "110100000"
    25. WMAufgabenset(5) = "000001110"
    26. WMAufgabenset(6) = "000101010"
    27. WMAufgabenset(7) = "111000000 001010000"
    28. WMAufgabenset(8) = "001001001 110100000"
    29. WMAufgabenset(9) = "010011010 000100110"
    30. WMAufgabenset(10) = "000001011 001001001"
    31. WMAufgabenset(11) = "000100110 000010111 100100100"
    32. WMAufgabenset(12) = "111000000 011001000 000000011"
    33. WMAufgabenset(13) = "001001001 100010000 100110100"
    34. WMAufgabenset(14) = "011000000 000001011 010100000"
    35. WMAufgabenset(15) = "001001001 011100000 000100100 110100000"
    36. WMAufgabenset(16) = "000001011 100100000 000000111 010001000"
    38. AntwortBox1.Hide()
    39. AntwortBox2.Hide()
    40. AntwortBox3.Hide()
    41. AntwortBox4.Hide()
    42. GroupBoxAufgabe.Hide()
    43. PictureBox1.Hide()
    44. lblAchtung.Hide()
    45. GroupBoxStart.Show()
    46. cmdStart.Visible = False
    47. End Sub
    50. 'Stellt die Aufgaben Grafisch dar, input ist ein String aus 1er und 0er mit Leerzeichen dazwischen. rotateinfo ist 1 oder 2 für links oder rechts.
    51. Sub Aufgabe_Auswerten(ByVal input As String, ByVal rotateinfo As Integer)
    53. Dim panelcount As Integer = 0
    55. If rotateinfo = 1 Then
    56. PictureBox1.Image = My.Resources.rotate_left_2
    57. ElseIf rotateinfo = 2 Then
    58. PictureBox1.Image = My.Resources.rotate_right_2
    59. End If
    60. GroupBoxAufgabe.Hide()
    61. PictureBox1.Show() 'erstmal rotierrichtung für 3 Sekunden anzeigen
    62. Application.DoEvents()
    63. Threading.Thread.Sleep(3000)
    64. PictureBox1.Hide()
    66. For i = 0 To 40 '40 = die maximale Länge des Input-Strings
    67. If i > input.Length - 1 Then 'Aufgabe anzeigen, wenn Input-String am Ende
    68. panelcount = 0
    69. lblAufgabe.Text = (i \ 9).ToString
    70. GroupBoxAufgabe.Show()
    71. Application.DoEvents()
    72. Threading.Thread.Sleep(4000)
    73. Exit For
    74. ElseIf input.Chars(i) = " " Then 'Aufgabe anzeigen, wenn Lücke im Input-String
    75. panelcount = 0
    76. lblAufgabe.Text = (i \ 9).ToString
    77. GroupBoxAufgabe.Show()
    78. Application.DoEvents()
    79. Threading.Thread.Sleep(4000)
    80. ElseIf input.Chars(i) = "1" Then 'Schwarz
    81. Panelset(panelcount).BackColor = Color.Black
    82. 'DirectCast(Panelset(panelcount), Panel).BackColor = Color.Black
    83. panelcount += 1
    84. ElseIf input.Chars(i) = "0" Then 'Weiss
    85. Panelset(panelcount).BackColor = Color.White
    86. 'DirectCast(Panelset(panelcount), Panel).BackColor = Color.White
    87. panelcount += 1
    88. End If
    89. Next
    90. End Sub
    93. 'Rotiert je nach Argument
    94. Function rotate(ByVal foo As String, ByVal direction As Integer) As String 'string maximal länge 9; direction 1 für links, 2 für rechts
    95. rotate = foo
    96. If direction = 1 Then 'rotate left
    97. rotate = foo.Chars(2) & foo.Chars(5) & foo.Chars(8) & foo.Chars(1) & foo.Chars(4) & foo.Chars(7) & foo.Chars(0) & foo.Chars(3) & foo.Chars(6)
    98. ElseIf direction = 2 Then 'rotate right
    99. rotate = foo.Chars(6) & foo.Chars(3) & foo.Chars(0) & foo.Chars(7) & foo.Chars(4) & foo.Chars(1) & foo.Chars(8) & foo.Chars(5) & foo.Chars(2)
    100. End If
    102. End Function
    105. 'Task Controlling Machine
    106. Sub Aufgabenmaschiene(Optional ByVal Again As Boolean = False)
    108. '1.) Achtung!
    109. Application.DoEvents()
    110. System.Threading.Thread.Sleep(250)
    111. lblAchtung.Show()
    112. Application.DoEvents()
    113. System.Threading.Thread.Sleep(500)
    114. lblAchtung.Hide()
    115. Application.DoEvents()
    116. System.Threading.Thread.Sleep(250)
    118. '2.) Aufgabe darstellen
    119. Aufgabe_Auswerten(WMAufgabenset(current_task), Rotateinfo(current_task)) 'Erstmal Aufgabe darstellen
    121. '3.) Antwortbox darstellen
    123. Select Case WMAufgabenset(current_task).Length Mod 9 'zeigt die Response-Matrizen je nach Länge der aktuellen Aufgabe
    124. Case 0
    125. Responseset = New Panel() {Panel111, Panel112, Panel113, Panel114, Panel115, Panel116, Panel117, Panel118, Panel119}
    126. For Each i In Responseset 'resettet die Farben der Responsepanels
    127. i.BackColor = Color.White
    128. Next
    129. AntwortBox1.Show()
    130. Case 1
    131. Responseset = New Panel() {Panel211, Panel212, Panel213, Panel214, Panel215, Panel216, Panel217, Panel218, Panel219, Panel221, Panel222, Panel223, Panel224, Panel225, Panel226, Panel227, Panel228, Panel229}
    132. For Each i In Responseset 'resettet die Farben der Responsepanels
    133. i.BackColor = Color.White
    134. Next
    135. AntwortBox2.Show()
    136. Case 2
    137. Responseset = New Panel() {Panel311, Panel312, Panel313, Panel314, Panel315, Panel316, Panel317, Panel318, Panel319, Panel321, Panel322, Panel323, Panel324, Panel325, Panel326, Panel327, Panel328, Panel329, Panel331, Panel332, Panel333, Panel334, Panel335, Panel336, Panel337, Panel338, Panel339}
    138. For Each i In Responseset 'resettet die Farben der Responsepanels
    139. i.BackColor = Color.White
    140. Next
    141. AntwortBox3.Show()
    142. Case 3
    143. Responseset = New Panel() {Panel411, Panel412, Panel413, Panel414, Panel415, Panel416, Panel417, Panel418, Panel419, Panel421, Panel422, Panel423, Panel424, Panel425, Panel426, Panel427, Panel428, Panel429, Panel431, Panel432, Panel433, Panel434, Panel435, Panel436, Panel437, Panel438, Panel439, Panel441, Panel442, Panel443, Panel444, Panel445, Panel446, Panel447, Panel448, Panel449}
    144. For Each i In Responseset 'resettet die Farben der Responsepanels
    145. i.BackColor = Color.White
    146. Next
    147. AntwortBox4.Show()
    148. End Select
    150. 'TIMER restriction
    151. Jetzt = DateTime.Now
    152. ProgressBar1.Value = 0
    153. ProgressBar2.Value = 0
    154. ProgressBar3.Value = 0
    155. ProgressBar4.Value = 0
    156. If current_task > 3 Then
    157. TimerRestriction.Start()
    158. End If
    160. cmdOK1.Show()
    161. GroupBoxAufgabe.Hide()
    162. End Sub


    Edit: auf Wunsch habe ich das Projekt angehängt
    Dateien

    • SWMpt.zip

      (221,78 kB, 528 mal heruntergeladen, zuletzt: )

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

    (mein gott, bin ich schlecht in dem Spiel!)
    jdfs. die codierung der Aufgaben als String findich garnicht schlecht. Irgendeine codierung muss man finden, und Strings sind wunnebar anschaulich beim Debuggen.

    Mehr Beschwerden habich mit wieviele Panels du brauchst, und dass du mit Thread.Sleep und Application.DoEvents() unterwegs bist.

    Imo müssteman das ganz anners organieieren, nämlich als Workflow - so heißt das glaubich, und gibts sogar ein Extra-Framework für - aber habich keine Ahnung von.

    Jedenfalls müssten die Aufgaben aus einer Datei eingelesen werden, und dann wird ein AblaufPlan erstellt, der bestimmt, was grad angezeigt wird. Der AblaufPlan kann per Timer voranschreiten, aber an bestimmten Punkten im Workflow auch per Ok-Button.
    Irgendwie so ungefähr.

    Ich habe neulich dieses Snippet für ein kleines Experiment gefunden und versucht damit ein Bild, das so etwa Desktopgröße besitzt, damit umzuwandeln so das es dunkler wird, jedoch musste ich feststellen, dass die Geschwindigkeit mit der das ganze abläuft mit 5 Sekunden untragbar für meine Zwecke ist. Welche anderen Methoden wären hier zu wählen für eine bessere Performance?

    VB.NET-Quellcode

    1. Function dimmcolor(ByVal parameter As Integer, ByVal down As Integer)
    2. If parameter - down < 0 Then
    3. parameter = 0
    4. ElseIf parameter - down > 255 Then
    5. parameter = 255
    6. Else
    7. parameter = parameter - down
    8. End If
    9. Return parameter
    10. End Function
    11. Function dimm(ByVal img As Bitmap, ByVal variable As Integer)
    12. Dim imgn As New Bitmap(img.Width, img.Height)
    13. Try
    14. For x As Integer = 0 To img.Width - 1
    15. For y As Integer = 0 To img.Height - 1
    16. imgn.SetPixel(x, y, Color.FromArgb(dimmcolor(img.GetPixel(x, y).R, variable), dimmcolor(img.GetPixel(x, y).G, variable), dimmcolor(img.GetPixel(x, y).B, variable)))
    17. Next
    18. Next
    19. Catch ex As Exception
    20. Me.Text = ex.ToString
    21. End Try
    22. Return imgn
    23. End Function

    8-) faxe1008 8-)

    Die Bitmap-Methoden Get/SetPixel sind sehr langsam. Hier rufst du GetPixel noch pro Pixel mehrmals auf... xD
    Schau mal hier rein: [VB 2010] Tutorial: LockBits
    Vor allem der Code von blaze würde dein Problem sehr einfach lösen, du brauchst nur eine Filter-Methode schreiben und schon läuft das Ganze^^

    Hinweis: Auch Methodenaufrufe kosten Zeit. Wenn du es noch schneller haben möchtest, dann musst du das selbst implementieren, sodass nur wenige Methodenaufrufe entstehen (also alles mehr oder weniger in einer größeren Methode passiert). Verwendest du den Code von blaze wird für jeden Pixel (mindestens) eine Methode aufgerufen.
    lg

    Ohne jz wieder herummeckern zu wollen, weise ich dich dennoch darauf hin, dass du Option Strict On aktivieren solltest :/

    @faxe1008
    Das am Anfang mit dem Parameter-Zeugs lässt sich auch sehr gut mit Math.Max und Math.Min umsetzen. Außerdem könntest du eigentlich auch das Try/Catch entfernen.

    @Gather: Das war wie gesagt das Snippet, wie ich es gefunden habe. Ich habe standardmäsig Strict auf on und verwurschtele keinerlei Trys rein.

    @FreakJNS: Danke wetde mich heute in einer freien Stunde reinarbeiten :thumbup:

    8-) faxe1008 8-)

    So, jetzt möchte ich auch mal einen Code posten, der eigentlich super funktioniert, ich aber nicht weiss, ob er sauber geschrieben ist.

    Das Programm fügt einem XML-File ein Attribute an einem bestimmten Node hinzu, oder löscht es wieder. Je nachdem, welcher Radiobutton auf der Form gewählt wurde.
    Vor dem Hinzufügen oder löschen des Attributes, wird noch ein Backup des XML-Files erstellt.

    Hier nun der Code.

    VB.NET-Quellcode

    1. '### Expand or Collapse all Lineups
    2. '### Es werden alle Lineups entweder geöffnet, oder geschlossen
    4. Imports System.Xml
    5. Imports System.IO.File
    6. Imports System.IO
    7. Imports System.Windows.Forms
    9. Public Class frmExpandCollapseLineups
    10. Dim xmlAttrib As XmlAttribute
    11. Dim RemoveAttrib As XmlAttribute
    12. Dim openfilename As String
    13. Dim a3sXml As New Xml.XmlDocument
    14. Dim startpath As String = "Mein Pfad"
    15. Dim fd As New System.Windows.Forms.OpenFileDialog
    16. Dim listofstreams As Xml.XmlNodeList = a3sXml.SelectNodes("//alternative_set")
    19. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    20. With fd
    21. .Title = "Choose A3S File"
    22. .Filter = "A3S Files (*.a3s)|*.a3s"
    23. .InitialDirectory = startpath
    24. .FileName = "A3S-Files"
    25. End With
    27. If Not fd.ShowDialog = DialogResult.OK Then
    28. Else
    29. openfilename = fd.FileName.ToString
    30. Backup()
    31. If RadioButton2.Checked Then
    32. Expand()
    33. ElseIf RadioButton1.Checked Then
    34. Collapse()
    35. End If
    36. End If
    37. End Sub
    39. Sub Collapse()
    40. a3sXml.Load(openfilename)
    41. For Each node As XmlNode In listofstreams
    42. xmlAttrib = a3sXml.CreateAttribute("open")
    43. xmlAttrib.Value = "1"
    44. node.Attributes.RemoveNamedItem("open")
    45. Next
    46. a3sXml.Save(openfilename)
    47. Application.Exit()
    48. End Sub
    50. Sub Expand()
    51. a3sXml.Load(openfilename)
    52. For Each node As XmlNode In listofstreams
    53. xmlAttrib = a3sXml.CreateAttribute("open")
    54. xmlAttrib.Value = "1"
    55. node.Attributes.Append(xmlAttrib)
    56. Next
    57. a3sXml.Save(openfilename)
    58. Application.Exit()
    59. End Sub
    61. Sub Backup()
    62. Dim FileExt As String = Path.GetExtension(openfilename)
    63. Dim SaveFileName = Path.GetFileNameWithoutExtension(openfilename) & FileExt
    64. Dim diBackup = New DirectoryInfo(Path.Combine(Path.GetDirectoryName(openfilename), "Backup"))
    65. diBackup.Create()
    66. Dim dateien = New DirectoryInfo(diBackup.ToString)
    67. Dim newfilename As String = Path.Combine(diBackup.FullName, SaveFileName)
    68. If File.Exists(newfilename) Then
    69. If File.Exists(newfilename) Then
    70. Dim fileName = Path.GetFileNameWithoutExtension(newfilename)
    71. Dim fileNumber = 0
    72. Do
    73. fileNumber += 1
    74. newfilename = Path.Combine(diBackup.FullName, String.Format("{0} ({1}){2}", fileName, fileNumber, FileExt))
    75. Loop While File.Exists(newfilename)
    76. File.Copy(openfilename, newfilename)
    77. End If
    78. Else
    79. File.Copy(openfilename, newfilename)
    80. End If
    81. End Sub
    82. End Class

    jo, hübsche aufgabe - ich find jdfs. 2 Themen daran interessant: Einmal die Xml-Verarbeitung - da kannman sich dolle dran verkünsteln. Etwa dass du da 2 mal zu 90% identischen Code hast - das kann man redundanzfreier hinkriegen.
    Und dann natürlich rumprobieren, was mit XDocument und Konsorten zu reißen ist - aber dazu müsstest du eine Beispiel-Anwendung anhängen, inklusive Datenbeispiel, weil so aus der Luft kann man höchstens bischen die Zeilen reorganisieren, aber nix neu entwickeln aus einem anneren Ansatz heraus.

    Das annere ist die Backupperei - ich hab heute glaub 3h an 15 Zeilen Code gesessen, die nun aber auch jede String-Sammlung durchchecken, und an neuen Strings dann Nümmerken dranhängen, damit der neue keine Namens-Kollision bewirkt.
    Ist offensichtlich ein gelegentlich wiederkehrendes kniffliges Problem :thumbup:

    TomWi schrieb:


    VB.NET-Quellcode

    1. Dim a3sXml As New Xml.XmlDocument
    2. Dim listofstreams As Xml.XmlNodeList = a3sXml.SelectNodes("//alternative_set")


    Hm, ich stehe gerade auf dem Schlauch wohl. Solange das Dokument nicht geöffnet wurde, ist die Liste doch "Nothing" oder? Danach wird sie nicht mehr aktualisiert.
    Warum funktioniert der Code trotzdem?

    Hallo Sonne75, auf deine Frage kann ich dir leider keine Antwort geben. Ich hoffe ein anderer User hier, kann da weiterhelfen.

    Anbei ist jetzt die Testanwendung mit Beispieldatei


    Edit by ErfinderDesRades: Executable entfernt - nichts für ungut - sowas ist nur im ShowRoom zulässig

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

    sonne75 schrieb:

    Warum funktioniert der Code trotzdem?

    Weil die Variable listofstreams sonst nirgendwo mehr im gezeigten Code auftaucht, womit es dann egal ist, ob sie Nothing ist oder nicht.

    Mir sind an dem Code einige Designsachen aufgefallen, die mir eigentlich egal wären, aber da hier explizit danach gefragt wird:

    Fast sämtliche Instanzvariablen - also Variablen auf Klassen- statt auf Funktionsebene - kann man wegwerfen und stattdessen besser lokale Variablen dafür verwenden.
    startpath kann bleiben, würde ich aber als Konstante deklarieren, und openfilename wird tatsächlich Funktionsübergreifend gebraucht, wäre hier aber vermutlich besser als Funktionsparameter zu übergeben.

    In der Zeile Dim SaveFileName = Path.GetFileNameWithoutExtension(openfilename) & FileExt würde ich eher auf IO.Path.ChangeExtension() gehen, aber das ist Makulatur.

    If File.Exists(newfilename) Then taucht exakt so zwei Mal hintereinander auf, was in der Form redundant ist. Das zweite If wird hier auf jeden Fall immer zu True aufgelöst, wenn es ausgeführt wird, kann also ersatzlos gestrichen werden.

    Und solange hier

    VB.NET-Quellcode

    1. If Not fd.ShowDialog = DialogResult.OK Then
    2. Else
    nichts zwischen steht, würde ich dann doch lieber eine Zeile If fd.ShowDialog = DialogResult.OK Then draus machen.

    Ansonsten gibt es aber meiner Meinung nach nichts zu beanstanden. Sehr penible Menschen würden vermutlich noch bemängeln, dass du dich bei den Bezeichnern nicht an die Microsoft-Designguides gehalten hast... ;)
    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.

    Arby schrieb:

    Weil die Variable listofstreams sonst nirgendwo mehr im gezeigten Code auftaucht, womit es dann egal ist, ob sie Nothing ist oder nicht.

    Natürlich taucht sie auf:

    TomWi schrieb:

    VB.NET-Quellcode

    1. Sub Collapse()
    2. a3sXml.Load(openfilename)
    3. For Each node As XmlNode In listofstreams

    TomWi schrieb:

    VB.NET-Quellcode

    1. Sub Expand()
    2. a3sXml.Load(openfilename)
    3. For Each node As XmlNode In listofstreams


    Sonst hätte ich das nicht geschrieben.