Schleife zu schnell | Invoke und Delegat

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Eistee.

    Schleife zu schnell | Invoke und Delegat

    Hallo erstmal,

    ich hab da ein kleines Problem mit meinem Code den ich umschreibe muss nur ich weiß noch nicht ganz wie.
    Ich erzeuge in einem Sub Werte mit Random und verarbeite diese dann in einer Schleife direkt.
    Das Problem dabei ist das die Schleife alles zu schnell abarbeitet.

    Wie könnte ich das am simpelsten steuern,
    also wie lange die Schleife "pro runde" braucht?

    Mein Poseudo Code:

    VB.NET-Quellcode

    1. Sub
    3. Random zahl1
    5. Wenn Random zahl1 ist blabla dann
    6. Random zahl2
    7. sonst
    8. Random zahl3
    9. Ende
    11. Random zahl3
    12. Wenn sonst blablablubb..
    14. noch zwei sachen
    16. Wenn das dann
    17. For
    18. "Create"
    19. Next
    20. Sonst
    21. For
    22. "Create"
    23. Next
    24. Ende


    Was ich damit verdeutlichen will ist alle Schritte bis zur Schleife müssen durchlaufen werden bevor die Schleife startet.
    Habe es schon mit Thread Sleep versucht aber das geht garnicht (hängt die Darstellung auf die mit "Create" erzeugt wird).

    Weiß jemand rat?

    Gruß Eistee

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Eistee“ ()

    Also meiner Meinung nach gibt es da keine Zeit Probleme.
    Alle Befehle werden in einer Sub der reihe nach abgearbeitet. Da nirgens zu erkennen das du auf einen Response warten müsstest.

    Ich denke der fehler liegt woanders.

    Hi!
    Pseudocode zur Verdeutlichung einer Lösung habe ich schon öfters gesehen. Aber Pseudocode, um uns dein Problem zu schildern... alle Achtung.

    Es ist für mich nicht mal ansatzweise zu verstehen, was du hier versuchst...
    Versuchst du eine Art Spielzug zu programmieren, der zu schnell abläuft? Dann setze deine Anweisungen in einen Timer.
    Gibt es Probleme mit den erzeugten Zufallszahlen? Dann zeig uns den Code, der diese Zahlen erzeugt (komplett).

    Grüsse, der_Kurt

    Ok das ganze leuft ohne fehler nur es ist zu schnell..

    Hier mal der Ganze Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Buildlevel()
    3. 'Random
    4. TopLevelx = Rnd1.Next(10, 200) '60
    7. 'Ziel wird gesetzt + Modolo
    8. If TopLevelx <= 125 Then
    9. Ziel = Rnd1.Next(130, 180)
    10. RestZiel = Ziel Mod 2
    11. If RestZiel <> 0 Then
    12. Ziel = Ziel - 1
    13. End If
    14. Else
    15. Ziel = Rnd1.Next(10, 110)
    16. RestZiel = Ziel Mod 2
    17. If RestZiel <> 0 Then
    18. Ziel = Ziel - 1
    19. End If
    20. End If
    23. 'Stufe wird erzeugt
    24. Stufengröße = Rnd1.Next(2, 20)
    25. RestStufengröße = Stufengröße Mod 2
    26. If RestStufengröße <> 0 Then
    27. Stufengröße = Stufengröße - 1
    28. End If
    30. O20.Top = TopLevelx
    31. O20.Height = Höhe
    34. 'Runter in Stufen
    35. If TopLevelx < Ziel Then
    36. For i = TopLevelx To Ziel Step Stufengröße
    37. O20.Top = O20.Top + Stufengröße
    38. Call CreateLevel()
    39. Next
    40. End If
    43. 'Hoch in Stufen
    44. If Ziel < TopLevelx Then
    45. For i = Ziel To TopLevelx Step Stufengröße
    46. O20.Top = O20.Top - Stufengröße
    47. Call CreateLevel()
    48. Next
    49. End If
    52. End Sub


    Die geschwindigkeit der letzten beiden Schleifen (wo immer nur eine laufen kann wegen dem if) sollte ich irgentwie festlegen können aber OHNE das das Programm einschläft.

    Ich habe versucht den geposteten Code ein einem Extra Thread abzukapseln
    und diesen dann einschlafen zu lassen aber irgendwie will das nicht klappen.

    Habe mir das im Internet angesehen und es sieht jetzt so aus:

    VB.NET-Quellcode

    1. Imports System.Threading
    2. Dim A As Thread = New Thread(AddressOf Buildlevel)
    4. Private Sub Buildlevel()
    6. For i = Ziel To TopLevelx Step Stufengröße
    7. O20.Top = O20.Top - Stufengröße
    8. Thread.Sleep(300)
    9. Call CreateLevel()
    10. Next
    12. End Sub


    Aber irgendwie hängt sich immernoch das Gesamte Programm auf wobei ja nur "Sub Buildlevel()" einschlafen soll.
    Kann mir jemand sagen wie das richtig geht?

    Rufst du Buildlevel() direkt auf?
    -> Dann ist das das Problem. Du musst den thread mit Thread.Start() starten.

    PS: In Threads, die nicht der GUI-Thread sind, darf man niemals auf Controls zugreifen!!!

    Viele Grüße, Phil.

    Ach dafür ist Delegate gut ?!
    Hab das mal gelesen und wollte das mir auch mal anschauen.. passt ja.

    habe mir den MSDN Eintrag angesehen aber irgentwie komm ich einfach nicht hinter die richtige strucktur (syntax)


    Ich versuche von O20(Panel) die Top Eigenschaft zu ändern. Mein Code besteht jetzt aus folgendem:

    VB.NET-Quellcode

    1. Public Delegate Sub Top_Ändern_Delegate(ByVal zahl As Integer)
    3. Public Sub Top_Ändern_Ausführen(ByVal zahl2 As Integer)
    4. O20.Top = zahl2
    5. End Sub
    7. Public Sub Top_Ändern(ByVal zahl As Integer)
    8. O20.Invoke(New Top_Ändern_Delegate(AddressOf Top_Ändern_Ausführen,zahl)
    9. End Sub


    Aufgerufen wird alles im "nicht Main Thread" so:

    VB.NET-Quellcode

    1. O20.Invoke(Top_Ändern(TopLevelx))


    TopLevelx ist der Wert den O20.Top erhalten soll.
    Hoffe ihr könnt mir dazu die *richtige* "syntax" posten oder mir sagen wo ich was ändern sollte.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Eistee“ ()

Facebook
Telefonspende