Programmablauf abbrechen

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

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

    Programmablauf abbrechen

    Moin moin

    Ich bin wieder bei meinem Programm und suche nun nach der " besten / saubersten " Lösung wie ich den Programmablauf unterbrechen kann. Eigentlich nicht notwendig aber ich habe gelesen, das man immer Programmabschnitte auch "Abbrechen" können muss.
    Habe es im Moment so gelöst. Wäre für bessere Lösungen dankbar.


    Pseudocode
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Dim Abort As Boolean = False
    3. Private Sub Btn_Abbruch_Click(sender As Object, e As EventArgs) Handles Btn_Abbruch.Click
    4. Mainclass.Abort = True
    5. End Sub
    7. Private Async Sub Tueetwas()
    8. 'Zur Sicherheit nochmal auf FALSE
    9. Mainclass.Abort = False
    10. Await Threading.Tasks.Task.Run(Sub() TueNochetwas())
    11. 'Todo's nach Beenden oder nach Abbruch
    12. If Mainclass.Abort Then
    13. AfterAbort()
    14. Else
    15. AfterDo()
    16. End If
    17. End Sub
    19. Private Sub TueNochetwas()
    20. If Mainclass.IsDriveReady(Mainclass.Laufwerk) Then
    21. Dim Root = Mainclass.HDDS
    22. Mainclass.PutFilesIntoListBoxFrom(New IO.DirectoryInfo(Mainclass.Laufwerk.ToString), Mainclass.Fileextension)
    23. For Each Datei In Mainclass.TargetFiles
    25. If Mainclass.Abort Then Exit Sub
    27. Try
    28. 'some Code
    29. 'some Code
    30. 'some Code
    31. Catch UAEx As UnauthorizedAccessException
    32. Mainclass.ExceptionToFile(UAEx.ToString)
    33. Mainclass.ErrorHandling()
    34. End Try
    35. 'some Code
    36. 'some Code
    37. Next
    38. End If
    40. End Sub

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    EDIT: 14:55 UHR
    -------------------------------------

    Habe es hinbekommen. So wir die Suche abgebrochen, wie ich es mir vorstellte.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim cToken As CancellationTokenSource = New CancellationTokenSource()
    2. Dim token As CancellationToken = cToken.Token
    4. Private Sub Frm_Mainform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. 'Zum Test mal fixgesetzt
    6. Mainclass.CurrentDrive = "Y:\"
    7. Mainclass.Fileextension = "*.jpg"
    8. End Sub
    10. Private Async Sub Btn_Suchen_Click(sender As Object, e As EventArgs) Handles Btn_Suchen.Click
    11. Mainclass.TargetFiles.Clear()
    12. Mainclass.InaccessibleDirectories.Clear()
    13. cToken = New CancellationTokenSource
    14. Await Task.Run(Sub() SearchFiles(cToken.Token), token)
    15. End Sub
    17. Private Sub Btn_Abbruch_Click(sender As Object, e As EventArgs) Handles Btn_Abbruch.Click
    18. cToken.Cancel()
    19. End Sub
    21. #Region "FilsSearch"
    22. Private Sub SearchFiles(cToken As CancellationToken)
    23. If Mainclass.IsDriveReady(Mainclass.CurrentDrive) Then
    24. Try
    25. Me.BeginInvoke(Sub() Me.Cursor = Cursors.WaitCursor)
    26. Dim Root = Mainclass.HDDS
    27. Mainclass.PutFilesIntoListBoxFrom(New IO.DirectoryInfo(Mainclass.CurrentDrive.ToString), Mainclass.Fileextension)
    28. cToken.ThrowIfCancellationRequested()
    29. Me.BeginInvoke(Sub() LstBox_Searchfiles.Items.AddRange(Mainclass.TargetFiles.Select(Function(x) x.FullName).ToArray))
    30. Me.BeginInvoke(Sub() Lbl_Response.Visible = True)
    31. Me.BeginInvoke(Sub() Lbl_Response.Text = (Language.CountFoundFiles & LstBox_Searchfiles.Items.Count))
    32. If LstBox_Searchfiles.Items.Count = 0 Then
    33. Me.BeginInvoke(Sub() Lbl_Response.Visible = True)
    34. Me.BeginInvoke(Sub() Lbl_Response.Text = (Language.CountFoundFiles & LstBox_Searchfiles.Items.Count))
    35. Me.BeginInvoke(Sub() Btn_Suchen.Enabled = True)
    36. Me.BeginInvoke(Sub() Me.Cursor = Cursors.Default)
    37. Else
    38. Me.BeginInvoke(Sub() Me.Cursor = Cursors.Default)
    39. End If
    40. Catch ex As Exception
    41. Me.BeginInvoke(Sub() Me.Cursor = Cursors.Default)
    42. Mainclass.ExceptionToFile(ex.Message)
    43. Mainclass.ErrorHandling()
    44. Exit Sub
    45. Finally
    46. 'Zum TEST einbe MsgBox
    47. MessageBox.Show("Abbruch durch Benutzer")
    48. End Try
    49. Else
    50. Mainclass.ExceptionToFile(Language.DeviceErr)
    51. Mainclass.ErrorHandling()
    52. End If
    53. End Sub



    toteditierten Beitrag wiederhergestellt ~VaporiZed
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „VaporiZed“ ()

    @Amelie Was soll der Unsinn?
    Du machst eine Async Methode und invokst jede Zeile Deines Codes.
    Mach da eine synchrone Methode draus und sie läuft wesentlich schneller.
    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 Sammle die komplette Information nebenläufig ein und stelle sie im GUI-Thread dar. Da dürfte dann nix mehr einfrieren.

    VB.NET-Quellcode

    1. Mainclass.PutFilesIntoListBoxFrom(New IO.DirectoryInfo(Mainclass.CurrentDrive.ToString), Mainclass.Fileextension)
    Ist das die einzige Zeile, die tatsächlich nebenläufig arbeitet?
    Kannst Du mal die komplette Klasse, sofern allein lauffähig, posten?
    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!

    In dem Teil meines Programms ja.
    Es sind eigentlich nur noch eine Combobox für Dateiendungen und ein Treeveiw für die Laufwerksauswahl.

    Das "suchen und auflisten" hier ist nur ein Teil.
    In einem anderen Teil wird dann auch mit Await gezippt.
    Sogeshen funktioniert ja alles. Wollte jetzt nur noch ein paar Feinheiten machen. Wie das Abbrechen ...
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Wie gesagt ja soweit funktioniert das "suchen" und das "zippen", "löschen" so wie ich mir das vorstellte. ;)
    der ganze Code ist halt noch sehr durcheinader und solche Funktionen wie Abbrechen etc fehlen noch.
    Eher noch ein Sammelsurium "hihihi"
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    solche Funktionen wie Abbrechen
    haben welche Priorität?
    Bei meinen Programmen gibt es eine Abbruch-Funktion nur bei Messungen, die sehr lange (Minuten bis Stunden) dauern, ansonsten nicht.
    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!

    Priorität: eigentlich gering bzgl der Funktion, weil ich sie nicht brauche.
    Für mich wäre das nur ein goody ABER zur Übung und zum Verständnis sehr lehrreich, weswegen ich das gerne einbauen würde.

    Ich überlege auch ob ich von VB weg soll und zu C# wechsel... weil fast alles im web immer über C# ist und ich erst immer umbauen muss ;(

    @RodFromGermany
    Edit 23:10
    Habe nun nochmal einiges ausprobiert aber ohne das Async friert mir das Form immer ein, also muss ich mit Invoke arbeiten..
    Also wenn es da etwas anderes gibt....???
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Amelie schrieb:

    Also wenn es da etwas anderes gibt....???
    Poste mal das Projekt.
    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!

    Das hier ist der Abschnitt " Dateien suchen " der funktioniert.
    @RodFromGermany
    EDIT: 7:55 Uhr

    Habe nochmal umgebaut und alles etwas schlanker gemacht.

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Amelie schrieb:

    Das hier ist der Abschnitt " Dateien suchen " der funktioniert.
    Bei mir nicht.
    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!

    Also bei mir klappt das
    Habe das vergessen... ist nur zum Test so im Code fest hinterlegt

    VB.NET-Quellcode

    1. ​
    2. Private Sub Frm_Mainform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Mainclass.CurrentDrive = "y:\"
    4. Mainclass.Fileextension = "*.jpg"
    5. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Also bei mir klappt das
    Der Code, den Du postest, ist in sich nicht vollständig!
    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:

    Hier ist alles
    Leider nicht.
    Überzeuge Dich davon, dass der Code in einem leeren Projekt mit den entsprechenden GUI-Elementen compiliert.
    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

    So nun mal bereinigt und gezipt. Das zip nochmal geprüft und nun hochgeladen.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    @Amelie Warum ist der Abbruch-Button ge-disabled?
    Warum lässt sich Deine Form Frm_Mainform nicht im Designer öffnen?
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Mainform
    2. Private WithEvents Helper As New Mainclass
    3. Private AbortToken As New CancellationTokenSource()
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. Helper.CurrentDrive = "d:\"
    7. Helper.Fileextension = "*.dll"
    8. End Sub
    10. #Region "FilsSearch"
    11. Private Async Sub Btn_Suchen_Click(sender As Object, e As EventArgs) Handles Btn_Suchen.Click
    12. LstView_Searchfiles.Items.Clear()
    13. Btn_Abbruch.Enabled = True
    14. Lbl_Response.Text = ""
    15. AbortToken = New CancellationTokenSource
    16. Await Task.Run(Sub() SearchFiles(AbortToken.Token))
    17. End Sub
    19. Private Sub SearchFiles(AbortToken As CancellationToken)
    20. If Helper.IsDriveReady(Helper.CurrentDrive) Then
    21. Try
    22. Helper.TargetFiles.Clear()
    23. Helper.InaccessibleDirectories.Clear()
    24. Dim Root = Helper.HDDS
    25. Helper.PutFilesIntoListBoxFrom(New DirectoryInfo(Helper.CurrentDrive.ToString), Helper.Fileextension)
    26. Catch ex As Exception
    27. 'Todo Fehlerausgabe
    28. End Try
    29. Else
    30. 'ToDo Fehlerausgabe
    31. End If
    33. If Not AbortToken.IsCancellationRequested Then
    34. Me.BeginInvoke(Sub() AfterSearch())
    35. End If
    36. End Sub
    38. #End Region
    40. Private Sub AfterSearch()
    41. For Each file As FileInfo In Helper.TargetFiles
    42. LstView_Searchfiles.Items.Add(New ListViewItem(file.FullName))
    43. Next
    44. LstView_Searchfiles.Items.Item(LstView_Searchfiles.Items.Count - 1).EnsureVisible()
    45. LstView_Searchfiles.Items.Item(LstView_Searchfiles.Items.Count - 1).Selected = True
    46. Lbl_Response.Text = ("Anzahl : " & LstView_Searchfiles.Items.Count)
    47. Btn_Abbruch.Enabled = False
    48. End Sub
    50. Private Sub Btn_Abbruch_Click(sender As Object, e As EventArgs) Handles Btn_Abbruch.Click
    51. AbortToken.Cancel()
    52. MessageBox.Show("Abbruch", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
    53. AbortToken.Dispose()
    54. ClearListview()
    55. End Sub
    57. Private Sub ClearListview()
    58. Lbl_Response.Text = "User abort"
    59. Btn_Abbruch.Enabled = False
    60. LstView_Searchfiles.Items.Clear()
    61. Helper.TargetFiles.Clear()
    62. Helper.InaccessibleDirectories.Clear()
    63. End Sub
    65. End Class
    Und: Nur ein einziges Invoke!
    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!