Async, Await

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

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

    Async, Await

    ich probier grad mit Async + Await, aber es zeigt keine Wirkung:

    VB.NET-Quellcode

    1. Private Async Sub btMoveMe_Click(sender As Object, e As EventArgs) Handles btMoveMe.Click
    2. btCancel.Visible = True
    3. ProgressBar1.Visible = True
    4. Dim pt = btMoveMe.Location
    5. Await MoveButton(pt, 100, 1)
    6. btMoveMe.Location = pt
    7. btCancel.Visible = False
    8. ProgressBar1.Visible = False
    9. End Sub
    11. Private Function MoveButton(pt As Point, count As Integer, stp As Integer) As Task
    12. For i = 0 To count - 1
    13. pt.Offset(stp, stp)
    14. 'Me.BeginInvoke(Sub() btMoveMe.Location = pt)
    15. Threading.Thread.Sleep(20)
    16. Next
    17. End Function
    Also das Form blockiert für 2 Sekunden - sonst nix

    Probier mal deine Funktion auch als Async zu markieren. msdn.microsoft.com/de-de/library/hh191564.aspx

    VB.NET-Quellcode

    1. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Await Move(Button2)
    3. End Sub
    5. Private Async Function Move(ByVal bt As Button) As Task
    6. For i As Integer = 0 To 10
    7. bt.Location = New Point(bt.Location.X + 10, bt.Location.Y + 10)
    8. Threading.Thread.Sleep(20)
    9. Next
    10. End Function

    Das klappt bei mir so.
    Edit: Sorry, Schwachsinn :)

    sieht so aus, aber nur scheinbar. Weil das Gui bleibt dabei blockiert, solange die Animation läuft.
    Guck - mit dieser Abwandlung wirds deutlicher:

    VB.NET-Quellcode

    1. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim pt = Button2.Location
    3. Await Move2(Button2)
    4. Button2.Location = pt
    5. End Sub
    6. Private Async Function Move2(ByVal bt As Button) As Task
    7. For i As Integer = 0 To 200
    8. bt.Location = New Point(bt.Location.X + 1, bt.Location.Y + 1)
    9. Threading.Thread.Sleep(20)
    10. Next
    11. End Function
    Währenddessen kann man das Form nicht verschieben.

    Die Move2 methode macht auch nix asynchrones. Dafür müsste der inhalt z.b.als task ausgeführt werden und dieser zurückgegeben werden.


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

    @ErfinderDesRades
    Das ganze ist iwie komisch.
    Ich hab mal Deinen Code etwas modifiziert. 3 Label, 1 Timer.

    VB.NET-Quellcode

    1. Imports System.Threading.Tasks
    3. Public Class Form1
    4. Private value As Long = 0
    5. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Timer1.Interval = 20
    7. value = 0
    8. Timer1.Start()
    9. For i = 1 To 10000
    10. Label1.Text = i.ToString
    11. Label1.Refresh()
    12. If i = 5000 Then
    13. Try
    14. Await UseLabel2()
    15. Catch ex As Exception
    16. End Try
    17. End If
    18. Next
    19. 'Timer1.Stop()
    20. End Sub
    22. Private Function UseLabel2() As Task
    23. For i = 0 To 5000
    24. Label2.Text = i.ToString
    25. Label2.Refresh()
    26. Next
    27. Return New Task(Nothing)
    28. End Function
    30. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    31. Label3.Text = value.ToString
    32. value += 1
    33. End Sub
    34. End Class
    Dies hier ist noch blöder, die Task wird nicht ausgeführt:

    VB.NET-Quellcode

    1. Private Function UseLabel2() As Task
    2. Return New Task(Sub()
    3. For i = 0 To 5000
    4. Label2.Text = i.ToString
    5. Label2.Refresh()
    6. Next
    7. End Sub)
    8. End Function

    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!

    thefiloe schrieb:

    Die Move2 methode macht auch nix asynchrones. Dafür müsste der inhalt z.b.als task ausgeführt werden und dieser zurückgegeben werden.
    meinst du so?

    VB.NET-Quellcode

    1. Private Async Function Move2(ByVal bt As Button) As Task
    2. Return New Task(Sub()
    3. For i As Integer = 0 To 200
    4. bt.Location = New Point(bt.Location.X + 1, bt.Location.Y + 1)
    5. Threading.Thread.Sleep(20)
    6. Next
    7. End Sub)
    8. End Function
    Darauf CompilerFehler:

    Quellcode

    1. 'Return'-Anweisungen in dieser Async-Methode können keinen Wert zurückgeben, da der Rückgabetyp der Funktion 'Task' ist. Ziehen Sie in Betracht, den Rückgabetyp der Funktion in 'Task(Of T)' zu ändern.


    Wenn ich solch in Betracht ziehe, komme ich zu

    VB.NET-Quellcode

    1. Private Async Function Move3(ByVal bt As Button) As Task(Of Integer)
    2. Return New Task(Of Integer)(Function()
    3. For i As Integer = 0 To 200
    4. bt.Location = New Point(bt.Location.X + 1, bt.Location.Y + 1)
    5. Threading.Thread.Sleep(20)
    6. Next
    7. Return 9
    8. End Function)
    9. End Function
    mit dem CompilerFehler

    Quellcode

    1. Da es sich um eine asynchrone Methode handelt, muss der Rückgabeausdruck vom Typ 'Integer' anstelle von 'Task(Of Integer)' sein.


    Ich kann auch die Async-Kennzeichnung wegmachen, dann kompiliert immerhin:

    VB.NET-Quellcode

    1. Private Function Move2(ByVal bt As Button) As Task
    2. Return New Task(Sub()
    3. For i As Integer = 0 To 200
    4. bt.Location = New Point(bt.Location.X + 1, bt.Location.Y + 1)
    5. Threading.Thread.Sleep(20)
    6. Next
    7. End Sub)
    8. End Function
    Aber leider tut sich da zur Laufzeit garnix (ich hätte ja zumindest einen Laufzeitfehler erwartet)

    @Artentus: Ich hab keinen Plan mehr. Ich möchte mit Async einen Button übers Form laufen lassen, ohne CrossThread-Exception und ohne dass das Form einfriert.
    Ist das nicht zu schaffen?

    MoveButton sollte ungefähr so aussehen:

    VB.NET-Quellcode

    1. ​ Private Async Sub MoveButton(pt As Point, count As Integer, stp As Integer)
    2. Await Task.Run(Sub()
    3. For i = 0 To count - 1
    4. pt.Offset(stp, stp)
    5. 'Me.BeginInvoke(Sub() btMoveMe.Location = pt)
    6. Threading.Thread.Sleep(20)
    7. Next
    8. End Sub)
    10. End Sub

    Jo, man braucht also 2 Methoden
    1. die async-Methode, die komisch ist, nämlich beim Await-Aufruf gewissermassen verfrüht returnt
    2. eine Methode, die einen (bereits gestarteten) Task returnt, in dem die eigliche Arbeitsmethode läuft.
      bessere Alternative: normale Arbeitsmethode schreiben, und eine anonyme Methode, die sie aufruft, an Task.Run übergeben.

    VB.NET-Quellcode

    1. Private Async Sub btMoveMe_Click(sender As Object, e As EventArgs) Handles btMoveMe.Click
    2. btCancel.Visible = True
    3. ProgressBar1.Visible = True
    4. ProgressBar1.Maximum = 100
    5. Dim pt = btMoveMe.Location
    6. 'Dim duration = Await GetMoveControlTask(btMoveMe, 100, 1) ' ausführenden Task holen
    8. 'besser: ausführenden Task selbst bilden
    9. Dim duration = Await Task.Run(Function() MoveControl(btMoveMe, 100, 1))
    10. Msg(duration)
    11. btMoveMe.Location = pt
    12. btCancel.Visible = False
    13. ProgressBar1.Visible = False
    14. End Sub
    16. Private Function GetMoveControlTask(ctl As Control, count As Integer, stp As Integer) As Task(Of Long)
    17. Dim pt = ctl.Location
    18. Return Task.Run(Function()
    19. Dim sw = Stopwatch.StartNew
    20. For i As Integer = 0 To count - 1
    21. pt.Offset(stp, stp)
    22. Me.BeginInvoke(Sub()
    23. ctl.Location = pt
    24. ProgressBar1.Increment(1)
    25. End Sub)
    26. Threading.Thread.Sleep(20)
    27. Next
    28. Return sw.ElapsedMilliseconds
    29. End Function)
    30. End Function
    32. Private Function MoveControl(ctl As Control, count As Integer, stp As Integer) As Long
    33. Dim sw = Stopwatch.StartNew
    34. Dim pt = ctl.Location
    35. For i As Integer = 0 To count - 1
    36. pt.Offset(stp, stp)
    37. Me.BeginInvoke(Sub()
    38. ctl.Location = pt
    39. ProgressBar1.Increment(1)
    40. End Sub)
    41. Threading.Thread.Sleep(20)
    42. Next
    43. Return sw.ElapsedMilliseconds
    44. End Function

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

    @Artentus @ErfinderDesRades
    Danke, nun hab ich meinen Ansatz auch auf die Reihe bekommen:

    VB.NET-Quellcode

    1. Imports System.Threading.Tasks
    2. Imports System.Threading.Thread
    4. Public Class Form1
    5. Private value As Long = 0
    6. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Me.Timer1.Interval = 20
    8. Me.value = 0
    9. Me.Timer1.Start()
    11. Me.Button1.Location = New Point(16, 12)
    12. Await Task.Run(Sub() Me.MoveButton(Button1.Location, 200, 1))
    13. End Sub
    15. Private Async Sub MoveButton(pt As Point, count As Integer, stp As Integer)
    16. Await Task.Run(Sub()
    17. For i = 0 To count - 1
    18. pt.Offset(stp, stp)
    19. Me.BeginInvoke(Sub() Button1.Location = pt)
    20. Sleep(20)
    21. Next
    22. Me.Timer1.Stop()
    23. End Sub)
    24. End Sub
    26. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    27. Me.BeginInvoke(Sub()
    28. Me.Label1.Text = Me.value.ToString
    29. Me.value += 1
    30. End Sub)
    31. End Sub
    32. End Class
    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!

    Ich hab mir das jetzt nicht alles durchgelesen, aber probiert statt dem

    VB.NET-Quellcode

    1. Threading.Thread.Sleep
    mal

    VB.NET-Quellcode

    1. Await Task.Delay()


    Getestet und klappt, ist nicht das Gleich wie ihr wolltet, aber ist ja bestimmt kein Problem das umzuschreiben:

    VB.NET-Quellcode

    1. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Await Move()
    3. End Sub
    5. Private Async Function Move() As Task
    6. For i As Integer = 0 To 10
    7. Button1.Top += 5
    8. Await Task.Delay(1000)
    9. Next
    10. End Function

    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..