Multithreading - Richtig?

  • VB.NET

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

    Multithreading - Richtig?

    Also,

    Ich übe gerade multithreading.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim Thread_LangerVorgang As System.Threading.Thread
    5. Thread_LangerVorgang = New System.Threading.Thread(AddressOf MeineSub)
    6. CheckForIllegalCrossThreadCalls = False
    7. Thread_LangerVorgang.Start()
    9. End Sub
    11. Private Sub MeineSub()
    12. Dim i As Integer
    13. For i = 1 To 10000
    14. Threading.Thread.Sleep(1)
    15. Label1.Text = CType(i, String)
    16. Next
    17. End Sub
    18. End Class


    Dieser Code funktioniert, allerdings habe ich oft gehört das CheckForIllegalCrossThreadCalls = False kein schöner programmierstil ist.
    Wie löse ich das richtig/vernünftig?
    C# Developer
    Learning C++

    Probiere es doch einfach mit

    VB.NET-Quellcode

    1. me.invoke(Sub() Label1.Text = CType(i, String))

    und lass das weg :

    VB.NET-Quellcode

    1. CheckForIllegalCrossThreadCalls = False
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Artentus schrieb:

    BeginInvoke(Sub() Label1.Text = i.ToString())

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim Thread_LangerVorgang As System.Threading.Thread
    5. Thread_LangerVorgang = New System.Threading.Thread(AddressOf MeineSub)
    6. ' CheckForIllegalCrossThreadCalls = False
    7. Thread_LangerVorgang.Start()
    9. End Sub
    11. Private Sub MeineSub()
    12. Dim i As Integer
    13. For i = 1 To 10000
    15. Threading.Thread.Sleep(1)
    16. BeginInvoke(Sub() Label1.Text = i.ToString())
    17. Next
    18. End Sub
    19. End Class


    Da erhöht sich der Counter aber iwie nicht? Was mach ich falsch? ?(

    EDIT: Geht doch, aber ich bekomme wenn ich meine Anwendung schließe und der Counter noch am laufen ist diese Exception:

    C# Developer
    Learning C++

    Ja, das ist etwas, dem du vorbeugen musst. Du solltest vor dem Schließen den Thread irgendwie dazu bringen, sich zu beenden (am einfachsten durch eine Boolean-Variable), und dann warten, bis er sich beendet hat. Erst dann kannst du das Programm (und damit die Form) schließen.

    Selber machen:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private isClosing As Boolean
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim Thread_LangerVorgang As System.Threading.Thread
    6. Thread_LangerVorgang = New System.Threading.Thread(AddressOf MeineSub)
    7. Thread_LangerVorgang.Start()
    8. End Sub
    10. Private sub Form1_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
    11. IsClosing = True
    12. End Sub
    14. Private Sub MeineSub()
    15. For i = 1 To 10000
    16. If isClosing Then Return
    17. Threading.Thread.Sleep(1)
    18. BeginInvoke(Sub() Label1.Text = i.ToString())
    19. Next
    20. End Sub
    21. End Class

    So mache ich das immer:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private isClosing As Boolean
    3. Private Thread_LangerVorgang As Thread
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Thread_LangerVorgang = New System.Threading.Thread(AddressOf MeineSub)
    7. Thread_LangerVorgang.Start()
    8. End Sub
    10. Private sub Form1_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
    11. isClosing = True
    12. If Thread_LangerVorgang.Join(100) = False Then
    13. Thread_LangerVorgang.Abort()
    14. End If
    15. End Sub
    17. Private Sub MeineSub()
    18. For i = 1 To 10000
    19. If isClosing Then Return
    20. Threading.Thread.Sleep(1)
    21. BeginInvoke(Sub() Label1.Text = i.ToString())
    22. Next
    23. End Sub
    24. End Class


    In deinem Fall kann noch das Problem auftreten, dass es nen Deadlock geben kann.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Ok, noch ne frage, wenn ich den Button nach Thread-Start disable, und ich ihn, wenn i = 1000 ist wieder enabled = true setze, dann krieg ich diesen Fehler:



    Mein Code:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private isClosing As Boolean
    3. Private Thread_LangerVorgang As Threading.Thread
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Thread_LangerVorgang = New System.Threading.Thread(AddressOf MeineSub)
    7. Thread_LangerVorgang.Start()
    8. Button1.Enabled = False
    9. End Sub
    11. Private Sub Form1_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
    12. isClosing = True
    13. If Thread_LangerVorgang.Join(100) = False Then
    14. Thread_LangerVorgang.Abort()
    15. End If
    16. End Sub
    18. Private Sub MeineSub()
    19. For i = 1 To 1000
    20. If isClosing Then Return
    21. Threading.Thread.Sleep(1)
    22. BeginInvoke(Sub() LabelPrg.Text = i.ToString())
    23. If i = 1000 Then
    24. Button1.Enabled = True
    25. End If
    26. Next
    27. End Sub
    28. End Class
    C# Developer
    Learning C++

    Das ist doch genau das selbe Problem, weswegen du den Thread ursprünglich aufgemacht hast, folglich ists auch die selbe Lösung.
    Auch und übrigens anstatt innerhalb der Schleife abzufragen, ob i 1000 ist, kannst du den Button auch einfach nach der Schleife wieder aktivieren.

    Wenn du Code kopierst welchen du nicht verstehst, musst du fragen.
    Was macht: BeginInvoke(Sub() LabelPrg.Text = i.ToString())?


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    @thefiloe

    Stimmt, ist ja das gleiche, also habs so gemacht:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private isClosing As Boolean
    3. Private Thread_LangerVorgang As Threading.Thread
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Thread_LangerVorgang = New System.Threading.Thread(AddressOf MeineSub)
    7. Thread_LangerVorgang.Start()
    8. Button1.Enabled = False
    9. End Sub
    11. Private Sub Form1_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
    12. isClosing = True
    13. If Thread_LangerVorgang.Join(100) = False Then
    14. Thread_LangerVorgang.Abort()
    15. End If
    16. End Sub
    18. Private Sub MeineSub()
    19. For i = 1 To 1000
    20. If isClosing Then Return
    21. Threading.Thread.Sleep(1)
    22. BeginInvoke(Sub() LabelPrg.Text = i.ToString())
    23. If i = 1000 Then
    24. BeginInvoke(Sub() Button1.Enabled = True)
    25. End If
    26. Next
    27. End Sub
    28. End Class
    C# Developer
    Learning C++

    Artentus schrieb:

    anstatt innerhalb der Schleife abzufragen, ob i 1000 ist, kannst du den Button auch einfach nach der Schleife wieder aktivieren.

    VB.NET-Quellcode

    1. Private Sub MeineSub()
    2. For i = 1 To 1000
    3. If isClosing Then Return
    4. Threading.Thread.Sleep(1)
    5. BeginInvoke(Sub() LabelPrg.Text = i.ToString())
    6. Next
    7. BeginInvoke(Sub() Button1.Enabled = True)
    8. End Sub

    aber dassis doch immer noch Overkill:

    VB.NET-Quellcode

    1. For i = 1 To 1000
    2. If isClosing Then Return
    3. Threading.Thread.Sleep(1)
    4. BeginInvoke(Sub() LabelPrg.Text = i.ToString())
    5. Next
    1000 mal, jede Millisekunde ein Label neu betexten - welche ArmeSau soll das Label angugge ;( ?

    Tatsächlich kommt da nichtmal der Bildschirm hinterher - also es ist reines CPU-Power verbraten.

Facebook
Telefonspende