Timer arbeiten langsamer, warum?

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

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von vandi13.

    Timer arbeiten langsamer, warum?

    Hallo Leute, ich komme mit einem Problem nicht weiter.

    Kurze Erklärung des noch relativ "einfachen" Programms:

    Es gibt einen Button, und mit jedem Klick auf den Button wird ein neues Objekt einer selbst erstellten Klasse "gegner" generiert. Das sind einfach Kreise mit einer Progressbar und die laufen mit konstanter Geschwindigkeit durch meine Form. Doch desto mehr Gegner ich hinzufüge, desto langsamer werden auch alle anderen. Ab ca. 30-40 Buttonklicks bewegt sich kaum noch etwas. Woran kann das liegen?

    So sieht die Implementierung aus:

    Die Form1:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.VisualBasic.PowerPacks
    2. Public Class Form1
    3. Dim lol As gegner
    4. Dim gegnercount As Integer = 1
    5. Dim canvas As ShapeContainer
    8. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. canvas = New ShapeContainer
    10. canvas.Name = "OverallCanvas"
    11. canvas.Parent = Me
    12. End Sub
    14. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    15. spawnNewEnemy()
    16. End Sub
    18. Private Sub spawnNewEnemy()
    19. lol = New gegner
    20. lol.zeichne(Me, Level.startpoint, enemycount, canvas)
    21. lol.startMoving()
    22. enemycount = enemycount + 1
    23. End Sub


    Level.startpoint ist dabei eine Location aus der Klasse "Level", die ich hier nicht aufführe da sie relativ simpel ist und nur Variablen beinhaltet.

    So jetzt zur gegner Klasse

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.VisualBasic.PowerPacks
    2. Public Class gegner
    3. Dim life As Integer = 100
    4. Dim speed As Integer = 20 ' Enemy speed
    5. Dim moveTimer As Timer
    6. Dim theShape As RectangleShape
    7. Dim lifebar As ProgressBar
    8. Dim startX As Integer
    9. Dim form As Form
    10. Dim startY As Integer
    11. Dim canvas As ShapeContainer
    13. Public Sub zeichne(ByVal pForm As Form, ByVal pSpawn As Point, ByVal pID As Integer, ByVal pCanvas As ShapeContainer)
    14. theShape = New RectangleShape
    15. form = pForm
    16. theShape.Parent = pCanvas
    17. theShape.Name = "enemy" & pID
    18. theShape.Size = New System.Drawing.Size(5, 5)
    19. theShape.Location = pSpawn
    20. theShape.CornerRadius = 12
    21. startX = pSpawn.X
    22. startY = pSpawn.Y
    23. lifebar = New ProgressBar
    24. lifebar.Parent = form
    25. lifebar.Size = New System.Drawing.Size(10, 5)
    26. lifebar.Name = "lifebarenemy" & pID
    27. lifebar.Location = New System.Drawing.Point(theShape.Location.X - 2.5, theShape.Location.Y - 5)
    28. lifebar.Value = life
    29. canvas = pCanvas
    30. End Sub
    33. Public Sub startMoving()
    34. moveTimer = New Timer()
    35. moveTimer.Interval = 10
    36. moveTimer.Start()
    37. AddHandler moveTimer.Tick, AddressOf moverek
    38. End Sub
    40. Public Sub moverek()
    41. If theShape.Location.X < 750 And theShape.Location.Y = startY Then
    42. move(theShape.Location.X + speed / 20, theShape.Location.Y)
    43. ElseIf theShape.Location.X > 749 And theShape.Location.Y > 400
    44. move(theShape.Location.X, theShape.Location.Y - speed / 20)
    45. ElseIf theShape.Location.X > 50 And theShape.Location.Y = 400
    46. move(theShape.Location.X - speed / 20, theShape.Location.Y)
    47. ElseIf theShape.Location.X < 51 And theShape.Location.Y > 200
    48. move(theShape.Location.X, theShape.Location.Y - speed / 20)
    49. ElseIf theShape.Location.X < 750 And theShape.Location.Y = 200
    50. move(theShape.Location.X + speed / 20, theShape.Location.Y)
    51. End If
    52. End Sub
    55. Public Sub move(ByVal pX As Integer, ByVal pY As Integer)
    56. theShape.Location = New System.Drawing.Point(pX, pY)
    57. lifebar.Location = New System.Drawing.Point(theShape.Location.X - 2.5, theShape.Location.Y - 5)
    58. End Sub
    60. End Class


    Sorry falls der Code noch nicht professionell ist, bin Anfänger und nur am rumprobieren.

    Aber dieses Problem kriege ich einfach nicht weg... Danke schonmal für eure Aufmerksamkeit!
    :saint:

    Die Kreise bewegen sich einfach langsamer mit jedem neuen der dazu kommt. Ist nur ein Gegner vorhanden, bewegt er sich mit 10 Pixeln pro Sekunde nach rechts. Sobald aber mehrere drin sind, bewegt sich kaum einer um auch nur ein paar Pixel.

    Da die Objekte sich ja "in" dem Timer bewegen, dachte ich es muss irgendwie am Timer liegen dass es langsamer läuft. Daher der Betreff
    :saint:

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

    vandi13 schrieb:

    mit jedem neuen der dazu kommt.
    Vielleicht solltest Du den Algorithmus optimieren.
    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!

    Okay ich verstehe was du meinst. Aber weiß nicht wie ich es umsetzen soll. Es sind doch eigentlich mehrere Timer die PARALLEL zueinander laufen. Warum schränken die sich gegenseitig ein?

    Wenn ich die Bewegung jedes Kreises in den selben Timer stecken würde wäre es klar dass es langsamer wird, aber bei parallelen Methoden?

    Prozessorlast permanent unter 4%.
    :saint:

    vandi13 schrieb:

    Es sind doch eigentlich mehrere Timer die PARALLEL zueinander laufen.
    Von wievielen Timern reden wir?
    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!

    Rainman schrieb:

    genau einen Timer
    Ja, das ginge in die richtige Richtung.
    @vandi13 Z.B. könntest Du vom zentralen Timer Ticks an jedes Objekt senden und dort in einer Task tun, was zu tun ist.
    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!

    Hat auch nicht geholfen. Wurde trotzdem ausgebremst.Habe jetzt einfach die Timer weggeschmissen und alles mit Threads augestattet. Jetzt klappt es wunderbar.
    :saint:

    ThuCommix schrieb:

    Ich nehme an du baust ein Spiel? Für was genau brauchst du mehrere Threads?


    Richtig. Aber da die Frage jetzt nicht direkt mit Spieleprogrammierung zusammen stand, hab ich sie hier gepostet.
    :saint:

Facebook