Programm Logik nach Fehler brauche Ideen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    Programm Logik nach Fehler brauche Ideen

    Moin moin

    Ich brauche mal eine Hilfe / Idee wie ich mit einer Fehlerbehandlung weiter umgehen kann / muss / soll.

    Folgendes: Beim Starten des Programmes wird geprüft ob die "Settings.XML" vorhanden ist. Wenn nicht, wird diese mit Default-Werten neu erstellt. Diese Defaultwerte kann / sollte der User dann für seine Zwecke ändern.
    Dazu erstelle ich noch ein Formular, welches die Werte dann in die entsprechenden Felder der Class schreibt.

    Die Load-Class schreibt die Werte dann beim Starten in die Felder der Class und die Eingabe-Textboxen des Forms.

    Zur Frage:
    Wie gehe ich weiter vor, wenn hier: Public Sub GetEnvironmentData()​ ein Fehler auftritt :?:
    Oder hole ich hier die Werte aus den Eingabe-Textboxen und nicht aus der Class :?:

    Oder eine ganz andere Vorgehensweise :?:

    Spoiler anzeigen
    ​
    Die Save-Class

    VB.NET-Quellcode

    1. ​
    2. ' Eine Methode zum Speichern der aktuellen Anwendungseinstellungen in einer XML-Datei
    3. Public Class SaveSettings
    4. Private Const SuccessMessage As String = "Die Programm-Konfiguration wurden erfolgreich in {0} gespeichert."
    5. Private Const FailureSaveMessage As String = "Fehler beim Speichern der Programm-Konfiguration in die Datei {0}{1}{2}."
    6. Private Const FailureGetMessage As String = "Fehler beim Laden der Programm-Konfiguration aus der Klasse."
    8. ' Umgebungsvariablen holen
    9. Public Sub GetEnvironmentData()
    10. Try
    11. ' Pfad zur XML-Datei aus der Umgebungsinformationen abrufen
    12. Dim filePath As String = EnvironmentManager.Instance.XmlFilepath
    13. ' Quell- und Ziel-Laufwerke aus der Umgebungsinformationen abrufen
    14. Dim sourceDrive As String = EnvironmentManager.Instance.SourceDrive
    15. Dim targetDrive As String = EnvironmentManager.Instance.TargetDrive
    17. SaveSettings(filePath, sourceDrive, targetDrive)
    19. Catch ex As Exception
    20. ' Fehler protokollieren
    21. GlobalEventLogger.ExceptionToFile(String.Format(FailureGetMessage, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    22. End Try
    23. End Sub
    25. Private Sub SaveSettings(filePath As String, sourceDrive As String, targetDrive As String)
    26. Try
    27. ' Ein neues XmlDocument-Objekt erstellen
    28. Dim xmlDoc As New XmlDocument()
    29. ' Das Wurzelelement für die Einstellungen erstellen
    30. Dim rootNode As XmlNode = xmlDoc.CreateElement("Application")
    31. xmlDoc.AppendChild(rootNode)
    33. ' Das Element für die Laufwerkeinstellungen erstellen
    34. Dim settingsNode As XmlNode = xmlDoc.CreateElement("DriveSettings")
    35. rootNode.AppendChild(settingsNode)
    37. ' Die Quelllaufwerk-Einstellung speichern
    38. Dim sourceNode As XmlNode = xmlDoc.CreateElement("SourceDrive")
    39. sourceNode.InnerText = sourceDrive
    40. settingsNode.AppendChild(sourceNode)
    42. ' Die Ziel-Laufwerk-Einstellung speichern
    43. Dim targetNode As XmlNode = xmlDoc.CreateElement("TargetDrive")
    44. targetNode.InnerText = targetDrive
    45. settingsNode.AppendChild(targetNode)
    47. ' Die XML-Datei speichern
    48. xmlDoc.Save(filePath)
    50. ' Erfolgsmeldung protokollieren
    51. GlobalEventLogger.ExceptionToFile(String.Format(SuccessMessage, filePath), ExceptionStatus.Success)
    52. Catch ex As Exception
    53. ' Fehler protokollieren
    54. GlobalEventLogger.ExceptionToFile(String.Format(FailureSaveMessage, filePath, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    55. End Try
    56. End Sub
    57. End Class


    Die Default-Class

    VB.NET-Quellcode

    1. ​
    2. ' Eine Methode zum Speichern der Standart Anwendungseinstellungen in eine XML-Datei
    3. Public Class DefaultSettings
    4. Private Const SuccessMessage As String = "Die Basis-Konfiguration wurde erfolgreich in {0} gespeichert."
    5. Private Const FailureMessage As String = "Fehler beim Speichern der Basis-Konfiguration in der XML-Datei {0}{1}{2}."
    6. Private Const NewFileMessage As String = "Die Datei für die Programmeinstellungen war nicht vorhanden.{0}Eine neue Datei wurde erstellt."
    8. Public Sub CreateDefaultXmlFile()
    9. ' Pfad zur XML-Datei erstellen
    10. Dim filePath As String = EnvironmentManager.Instance.XmlFilepath
    11. ' Meldung für eine neue Datei protokollieren
    12. GlobalEventLogger.ExceptionToFile(String.Format(NewFileMessage, NewCrlLf), ExceptionStatus.Notice)
    14. Try
    15. ' XML-Datei erstellen
    16. Using writer As New XmlTextWriter(filePath, System.Text.Encoding.UTF8)
    17. writer.Formatting = Formatting.Indented
    18. ' Beginnen des Dokuments
    19. writer.WriteStartDocument()
    21. ' Wurzelelement und Unterlemente erstellen
    22. writer.WriteStartElement("Application")
    23. writer.WriteStartElement("DriveSettings")
    24. writer.WriteElementString("SourceDrive", "C:\")
    25. writer.WriteElementString("TargetDrive", "C:\")
    27. ' Endtag für Elemente schreiben
    28. writer.WriteEndElement()
    29. writer.WriteEndElement()
    31. ' Dokument schließen
    32. writer.WriteEndDocument()
    33. End Using
    35. ' Erfolgsmeldung protokollieren
    36. GlobalEventLogger.ExceptionToFile(String.Format(SuccessMessage, filePath), ExceptionStatus.Success)
    37. Catch ex As Exception
    38. ' Fehler protokollieren
    39. GlobalEventLogger.ExceptionToFile(String.Format(FailureMessage, filePath, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    40. End Try
    41. End Sub
    42. End Class


    Die Load-Class:

    VB.NET-Quellcode

    1. ​
    2. ' Eine Methode zum Laden der Anwendungseinstellungen aus einer XML-Datei
    3. Public Class LoadSettings
    4. Private Const SuccessMessage As String = "Das Laden der Programm-Konfiguration aus der XML-Datei {0} war erfolgreich."
    5. Private Const FailureMessage As String = "Fehler beim Laden der Programm-Konfiguration aus der XML-Datei {0}{1}{2}."
    7. Public Sub LoadSettings()
    8. ' Pfad zur XML-Datei erstellen
    9. Dim filePath As String = EnvironmentManager.Instance.XmlFilepath
    10. Try
    11. ' Ein neues XmlDocument-Objekt erstellen und die XML-Datei laden
    12. Dim xmlDoc As New XmlDocument()
    13. xmlDoc.Load(filePath)
    15. ' Das Element für die Laufwerkeinstellungen auswählen
    16. Dim settingsNode As XmlNode = xmlDoc.SelectSingleNode("//DriveSettings")
    17. If settingsNode IsNot Nothing Then
    18. ' Die Quelllaufwerk-Einstellung laden
    19. Dim sourceDriveNode As XmlNode = settingsNode.SelectSingleNode("SourceDrive")
    20. If sourceDriveNode IsNot Nothing AndAlso Not String.IsNullOrEmpty(sourceDriveNode.InnerText) Then
    21. EnvironmentManager.Instance.SourceDrive = sourceDriveNode.InnerText
    22. Else
    23. EnvironmentManager.Instance.SourceDrive = Nothing
    24. End If
    26. ' Die Ziel-Laufwerk-Einstellung laden
    27. Dim targetDriveNode As XmlNode = settingsNode.SelectSingleNode("TargetDrive")
    28. If targetDriveNode IsNot Nothing AndAlso Not String.IsNullOrEmpty(targetDriveNode.InnerText) Then
    29. EnvironmentManager.Instance.TargetDrive = targetDriveNode.InnerText
    30. Else
    31. EnvironmentManager.Instance.TargetDrive = Nothing
    32. End If
    33. End If
    34. ' Erfolgsmeldung protokollieren
    35. GlobalEventLogger.ExceptionToFile(String.Format(SuccessMessage, filePath), ExceptionStatus.Success)
    36. Catch ex As Exception
    37. ' Fehler protokollieren
    38. GlobalEventLogger.ExceptionToFile(String.Format(FailureMessage, filePath, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    39. End Try
    40. End Sub
    41. End Class




    PS: Ich nutze gerade zum Testen ein Laptop mit Windows 10 und VS 2019 ( Für mich eine Herausforderung :D )
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Oder hole ich hier die Werte aus den Eingabe-Textboxen und nicht aus der Class


    Grundsätzlich erstmal den Fehler dem User melden, wenn das Programm aber trotz des Fehlers noch laufbereit ist, du nutzt dann ja Standard-Werte, den User fragen ob er so denn starten möchte. Controls dienen nicht als Speicher, nur zur Ansicht von ... und Interaktion mit dem User.
    Zitat von mir 2023:
    Was interessiert mich Rechtschreibung? Der Compiler wird meckern wenn nötig :D

    Diese Einstellungen erzeugen im My Project-Ordner eine Setings.settings die xml-artig diese Werte speichert.
    Außerdem wirds nochmal in die App.config geschrieben, was ich nicht ganz verstehe, warum man das zweimal braucht.

    Und beim Kompilieren wandert es dann in die 'Projektname'.dll.config im Build-Ordner (das ist dann eine Kopie der App.config)

    @Amelie Erstell Dir eine Datenklasse, gib der entsprechende Properties und XML-serialisiere sie.
    Feddich.
    Einstellungen einer App speichern - Textdatei, My.Settings, Registry?
    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!

    Hallo und danke für die vielen Tips.

    Ich glaube ich habe mich nicht richtig ausgedrückt. Habe nun die Class für das speichern umgeschrieben. Das Speichen und laden etc. funktionierte ja schon.
    Mir ging es darum, wenn in der Methode ​Public Sub GetEnvironmentData() warum auch immer mal ein Fehler auftritt, wie ich diesen dann behandele.

    So habe ich es nun erstmal gemacht.
    Die Idee dahinter ist:
    Wenn etwas schief geht, wird ggf beim Neustart die "Settings.xml" mit den Defaultwerten neu erstellt oder mit den alten Werten geladen.

    1.) Bin offen für bessere Ideen :)
    2.) Wie kann ich das mal testen :?:

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. ' Eine Methode zum Speichern der aktuellen Anwendungseinstellungen in einer XML-Datei
    3. Public Class SaveManager
    4. ' Eine private, statische Instanz der Klasse, um das Singleton-Muster zu implementieren
    5. Private Shared ReadOnly _instance As New SaveManager()
    7. ' Öffentliche Eigenschaft zum Zugriff auf die Singleton-Instanz
    8. Public Shared ReadOnly Property Instance As SaveManager
    9. Get
    10. Return _instance
    11. End Get
    12. End Property
    14. ' Ereignis, das ausgelöst wird, wenn das Speicher erfolgreich war.
    15. Public Event SaveSuccesfull As EventHandler(Of EventClasses.SaveSuccesfullEventArgs)
    16. ' Meldungstexte
    17. Private Const SuccessMessage As String = "Die Programm-Konfiguration wurden erfolgreich in {0} gespeichert."
    18. Private Const FailureSaveMessage As String = "Fehler beim Speichern der Programm-Konfiguration in die Datei {0}{1}{2}."
    19. Private Const FailureGetMessage As String = "Fehler beim Laden der Programm-Konfiguration aus der Klasse."
    20. Private Const SaveMessage As String = "Das Speichern der Daten war erfolgreich."
    21. Private Const RestartMessage As String = "Es ist ein Fehler aufgetreten. Die Anwendung wird neu gestartet.{0}Schauen Sie ggf. in die LogDatei für weitere Hinweise auf den Fehler"
    23. ' Anzeigen einer MessageBox mit einer Fehlermeldung und dem Neustart
    24. Private Sub HandleErrorAndRestart()
    25. MessageBox.Show(String.Format(RestartMessage, NewCrlLf), "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    26. ' Anwendung neu Starten und dabei ggf mit den Defaultwerten / alten Werten laden
    27. Application.Restart()
    28. End Sub
    30. ' Umgebungsvariablen holen
    31. Public Sub GetEnvironmentData()
    32. Try
    33. ' Pfad zur XML-Datei aus der Umgebungsinformationen abrufen
    34. Dim filePath As String = EnvironmentManager.Instance.XmlFilepath
    35. ' Quell- und Ziel-Laufwerke aus der Umgebungsinformationen abrufen
    36. Dim sourceDrive As String = EnvironmentManager.Instance.SourceDrive
    37. Dim targetDrive As String = EnvironmentManager.Instance.TargetDrive
    39. SaveSettings(filePath, sourceDrive, targetDrive)
    41. Catch ex As Exception
    42. ' Fehler protokollieren
    43. GlobalEventLogger.ExceptionToFile(String.Format(FailureGetMessage, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    44. HandleErrorAndRestart()
    45. End Try
    46. End Sub
    48. Private Sub SaveSettings(filePath As String, sourceDrive As String, targetDrive As String)
    49. Try
    50. ' Ein neues XmlDocument-Objekt erstellen
    51. Dim xmlDoc As New XmlDocument()
    52. ' Das Wurzelelement für die Einstellungen erstellen
    53. Dim rootNode As XmlNode = xmlDoc.CreateElement("Application")
    54. xmlDoc.AppendChild(rootNode)
    56. ' Das Element für die Laufwerkeinstellungen erstellen
    57. Dim settingsNode As XmlNode = xmlDoc.CreateElement("DriveSettings")
    58. rootNode.AppendChild(settingsNode)
    60. ' Die Quelllaufwerk-Einstellung speichern
    61. Dim sourceNode As XmlNode = xmlDoc.CreateElement("SourceDrive")
    62. sourceNode.InnerText = sourceDrive
    63. settingsNode.AppendChild(sourceNode)
    65. ' Die Ziel-Laufwerk-Einstellung speichern
    66. Dim targetNode As XmlNode = xmlDoc.CreateElement("TargetDrive")
    67. targetNode.InnerText = targetDrive
    68. settingsNode.AppendChild(targetNode)
    70. ' Die XML-Datei speichern
    71. xmlDoc.Save(filePath)
    73. RaiseEvent SaveSuccesfull(Me, New EventClasses.SaveSuccesfullEventArgs(SaveMessage))
    74. ' Erfolgsmeldung protokollieren
    75. GlobalEventLogger.ExceptionToFile(String.Format(SuccessMessage, filePath), ExceptionStatus.Success)
    76. Catch ex As Exception
    77. ' Fehler protokollieren
    78. GlobalEventLogger.ExceptionToFile(String.Format(FailureSaveMessage, filePath, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    79. End Try
    80. End Sub
    81. End Class



    @VB1963
    Genau da wollte ich das nicht haben, sondern zentral im Programmverzeichnis.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Genau da wollte ich das nicht haben, sondern zentral im Programmverzeichnis.


    Das ist aber gegen die Sicherheitsphilosophie von Microsoft. Ein Programm sollte keinerlei Schreibrechte auf den Ordner C:\Programme haben. (Auch wenn Du Dein Programm dort nicht hin speicherst.)
    Deshalb werden die Daten in andere Ordner des PC ausgelagert.
    C:\ProgrammData oder C:\users\USERNAME\AppData

    Wie kann ich das mal testen?​

    Die Programmierung kennt dafür den Ansatz Unit-Tests. vb-paradise.de/index.php/Threa…ight=unittest#post1181351
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    @INOPIAE

    OK habe dein Ratschlag bzgl der Verzeichnisse angenommen und das entsprechend geändert.
    Das Log zeigt, das alles so funktionierte wie ich es mir vorstellte.

    Den Rest werde ich mir dann mal ansehen. :thumbup:

    XML-Quellcode

    1. ​
    2. [ 08.05.2024 | 14:41:09 ] Hinweis
    3. EventLogfile für Mai 2024 erstellt.
    5. [ 08.05.2024 | 14:41:10 ] Hinweis
    6. Die Datei für die Programmeinstellungen war nicht vorhanden.
    7. Eine neue Datei wurde erstellt.
    9. [ 08.05.2024 | 14:41:16 ] Erfolgreich
    10. Die Basis-Konfiguration wurde erfolgreich in C:\Users\Amelie\DataBackUp\Settings.xml gespeichert.
    12. [ 08.05.2024 | 14:41:16 ] Erfolgreich
    13. Das Laden der Programm-Konfiguration aus der XML-Datei C:\Users\Amelie\DataBackUp\Settings.xml war erfolgreich.
    15. [ 08.05.2024 | 14:41:27 ] Erfolgreich
    16. Die Programm-Konfiguration wurden erfolgreich in C:\Users\Amelie\DataBackUp\Settings.xml gespeichert.
    18. [ 08.05.2024 | 14:41:27 ] Erfolgreich
    19. Das Laden der Programm-Konfiguration aus der XML-Datei C:\Users\Amelie\DataBackUp\Settings.xml war erfolgreich.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Weißt Du denn, welche Exceptions genau kommen?
    Du kannst auch Defaultwerte zurückgeben, wenn Exceptions gefangen wurden, also in GetEnvironmentData … Eh, Moment. Warum heißt denn die Methode GetEnvironmentData, wenn es eine Sub ist? Get… sollte meines Erachtens nur für Functions verwendet werden.
    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.

    @VaporiZed

    Es war ursprünglich mal eine Function die einen Boolean zurück gab. Habe das dann aber verworfen...

    ​Weißt Du denn, welche Exceptions genau kommen?

    Wo meinst du? In der GetEnvironmentData?
    Nein, weil ich noch nicht weiß wie ich da mal einen Fehler produzieren kann.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Kommen überhaupt Exceptions?
    Wenn nein: Wunderbar.
    Wenn la: Hast Du die ignoriert?
    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!

    Amelie schrieb:

    Nein, weil ich noch nicht weiß wie ich da mal einen Fehler produzieren kann.
    Entweder du schreibst ein Throw New Exception an die Stelle die dich interessiert, dann könntest du aber genauso gut den Try-Block durch den Catch-Block ersetzen
    Oder du ziehst mal die Berechtigungen aus dem XmlFilePath,
    Oder wenn der XmlFilePath nach extern geht, könntest du ein Kabel ziehen.

    Aber bei Laden oder Speichern von ordentlichen Anwendungs-Settings sind Exceptions eher unwahrscheinlich bzw. sehr gut absehbar.

    Nun wo ichs geschrieben habe, fällt mir auf, dass das wenig Sinn macht. Das GetEnvironmentData ist das Laden von Settings?
    Und wenn da was schief geht, willst Default-Settings abspeichern? Das geht dann aller Wahrscheinlichkeit nach auch nicht.

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

    Haudruferzappeltnoch schrieb:

    Entweder du schreibst ein Throw New Exception an die Stelle die dich interessiert
    Wozu?
    Da wäre doch ein Haltepunkt effektiver:
    Debuggen, Fehler finden und beseitigen
    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!

    @RodFromGermany

    In der ​GetEnvironmentData bekomme ich erstmal KEINE Exception!

    Wie ich schon schrieb, funktioniert der Code vom:
    1.) erstellen der Standart Werte
    2.) laden der Standart Werte
    3.) speichern der neuen Werte

    Ich suchte nur eine Möglichkeit der Behandlung wenn in der Methode etwas schief läuft.

    VB.NET-Quellcode

    1. ​
    2. ' Umgebungsvariablen holen
    3. Public Sub GetEnvironmentData()
    4. Try
    5. ' Pfad zur XML-Datei aus der Umgebungsinformationen abrufen
    6. Dim filePath As String = EnvironmentManager.Instance.XmlFilepath
    7. ' Quell- und Ziel-Laufwerke aus der Umgebungsinformationen abrufen
    8. Dim sourceDrive As String = EnvironmentManager.Instance.SourceDrive
    9. Dim targetDrive As String = EnvironmentManager.Instance.TargetDrive
    10. SaveSettings(filePath, sourceDrive, targetDrive)
    11. Catch ex As Exception
    12. ' Fehler protokollieren
    13. GlobalEventLogger.ExceptionToFile(String.Format(FailureGetMessage, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    14. HandleErrorAndRestart()
    15. End Try
    16. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Dann provoziere einen Fehler und reagiere darauf.
    So was gehört zum Testen eines Programms!
    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!

Facebook
Telefonspende