Objekte auf Hintergrund mit GDI (Suche nach Optimierungsmöglichkeiten)

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Nijin.

    Objekte auf Hintergrund mit GDI (Suche nach Optimierungsmöglichkeiten)

    Hallo Community!

    Erstmal freu ich mich nun auch hier zu sein. Gute Tutorials hab ich mir hier bereits als Gast angeschaut.
    Da ich mich laaaangsam in richtung Spieleprogrammierung vorantasten möchte, habe ich damit angefangen eine klitzekleine Spiele-Engine zu schreiben.

    Ziel von ihr soll es sein, dass man mehrere "Objekte" hat, die auf einem Hintergrundbild dargestellt werden. (Die soll man dann in späteren Schritten auch bewegen können. Aber das sollte ich dann wahrscheinlich selbst hinbekommen.)

    Das Programm ist auch soweit, dass es Ergebnise anzeigt. :)
    Das Problem liegt momentan aber noch in 2 Punkten:
    1.) Wenn ich die Objekte zeichne, "flackern" diese. Irgentwie würde sich das Problem mit einem "Bilderbuffer" lösen lassen. Aber ist das dafür wirklich die inteligenteste Lösung?
    2.) Die Performance. Bereits bei einem Objekt meldet der Taskmanager eine CPU-Auslastung von knapp 8%. Wenn später noch weitere Prgrammteile dazukommen fürchte ich, dass sich das doch sehr stark hochschaukelt.

    Deswegen wollte ich mal fragen ob jemand mir hier Vorschläge geben kann, wie ich das Programm verbessern kann.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Structure Bildobjekte_struct 'Die späteren Objekte
    3. Public info As String 'Hier kann z.B. ein Name
    4. Public bild As Image 'Das aussehen des Objekts
    5. Public x As Int16 'Wo es in X-Richtugn ist
    6. Public y As Int16 'und in y-richtung
    7. Public gesch As Double 'Die geschwindikeit. Noch ohne Zweck
    8. Public winkel As Double 'Die Richtung, noch ohne Zweck
    9. End Structure
    10. Const ziel_fps As Int16 = 50 'Die gewünschten Bilder pro Sekunde
    13. Dim Anzahl_bildobjekte As Int16 = 0
    14. Dim Bildobjekte() As Bildobjekte_struct
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. Timer1.Enabled = True 'male das Hintergrundbild.
    19. End Sub
    20. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    21. 'Hiermit wird ein neues Bildobjekt erstellt.
    22. ReDim Bildobjekte(Anzahl_bildobjekte)
    23. Bildobjekte(Anzahl_bildobjekte).info = InputBox("Wie soll das Objekt heißen?", "Informationen benötigt.", "Fußball")
    24. With Bildobjekte(Anzahl_bildobjekte)
    25. .bild = My.Resources.fussball2
    26. .x = InputBox("X-Position", "Informationen benötigt.", "10")
    27. .y = InputBox("Y-Position", "Informationen benötigt.", "10")
    28. .gesch = 0
    29. .winkel = 0
    30. End With
    31. Anzahl_bildobjekte += 1
    32. End Sub
    34. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    35. 'Dieser Timer malt alle ziel_fps Sekunden das Bild.
    36. Timer1.Interval = ziel_fps 'stellt die gewünschten FPS ein.
    37. Dim graphic As Graphics = Me.CreateGraphics
    38. Dim bg As Image = My.Resources.Background
    39. Zeichne_BG(bg, graphic)
    40. Zeichne_Bildobjekte(graphic)
    41. End Sub
    42. Public Sub Zeichne_BG(ByVal bg As Image, ByVal graphic As Graphics)
    43. Dim nullpunkt As Point
    44. nullpunkt.X = 0
    45. nullpunkt.Y = 0
    46. graphic.DrawImage(bg, nullpunkt)
    47. End Sub
    48. Public Sub Zeichne_Bildobjekte(ByVal graphic As Graphics)
    49. If Not Anzahl_bildobjekte = 0 Then
    50. For c As Int16 = 0 To Anzahl_bildobjekte - 1
    51. Dim punkt As Point
    52. punkt.X = Bildobjekte(c).x
    53. punkt.Y = Bildobjekte(c).y
    54. graphic.DrawImage(Bildobjekte(c).bild, punkt)
    55. Next c
    56. End If
    57. End Sub
    58. End Class


    My.Resources.Background ist ein hintergrundbild mit farbübergängen (bmp)
    My.Resources.fussball2 ein png-Bild eines Fußballes mit Transparents.

    Ich hoffe, das ist kein komplett Hoffnungsloser Fall :) (Bitte möglichst umfangreich/einfach antworten - mit Grafik habe ich noch nie etwas gemacht.)

    das das bild nicht falckert muss:

    VB.NET-Quellcode

    1. Public Sub Zeichne_Bildobjekte(ByVal graphic As Graphics)
    2. If Not Anzahl_bildobjekte = 0 Then
    3. For c As Int16 = 0 To Anzahl_bildobjekte - 1
    4. Dim punkt As Point
    5. punkt.X = Bildobjekte(c).x
    6. punkt.Y = Bildobjekte(c).y
    7. graphic.DrawImage(Bildobjekte(c).bild, punkt)
    8. Next c
    9. End If

    durch das:

    VB.NET-Quellcode

    1. Public Sub Zeichne_Bildobjekte(ByVal graphic As Graphics)
    2. If Not Anzahl_bildobjekte = 0 Then
    3. For c As Int16 = 0 To Anzahl_bildobjekte - 1
    4. Dim punkt As Point
    5. punkt.X = Bildobjekte(c).x
    6. punkt.Y = Bildobjekte(c).y
    7. graphic.DrawImage(Bildobjekte(c).bild, punkt)
    8. Timer1.Stop()
    9. Next c
    10. End If
    12. End Sub

    ersetzt werden.
    wie gehts: Ich hab nur ein timer.stop event eingefügt, sonst wird das bild immer wieder gemalt.
    ich hoffe ich konnte dir helfen.

    ganz einfach -> mach das Zeichnen im Paint Event, dann wird es auch nur gezeichnet, wenn nötig(bzw. evtl. im Timer Event mit einem Me.Invalidate) das Flackern verhinderst du mit Me.SetStyle und DoubleBuffering ;)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Hallo UFO, danke für den Vorschlag, aber das bewirkt, dass der Timer komplett angehalten hat. Was nicht ganz meine Absicht war, da z.B. weitere Grafikelemente nicht geladen werden.

    Hallo jvbsl, auch dir danke. Das mit dem DoubleBuffering habe ich mir auch schon überlegt, jedoch keine zufriedenstellende Lösung für mich gefunden.

    Ich habe das Grundkonzept nunmal komplett überarbeitet und einen absolut neuen Code dafür. (Nachdem ich endlich ein Tutorial zum Erstellen von eigenen Klassen gefunden habe mit dem ich genau das gerlernt habe was ich brauchte.)

    Der neue Code selbst hat momentan noch 1 oder 2 unbeabsichtigte Efekte - angenommen ich würde dafür weitere Hilfe brauchen (ich versuchs jetzt erstmal noch weiter mit rumprobieren udn googlen) - sollte man dann ein neues Thema eröffnen oder hier reinposten? Die Problematik ist dann ja etwas anderes.
    (Ihr könnt auch gerne per PM antworten, wenn es sonst heir zu unübersichtlich wird)

    Wünsche euch einen schönen Start in die Woche :)

Facebook
Telefonspende