GDI Grundlagen Problem

paulkoch95 · 31. März 2012, 19:12

Hallo Community,
Ich versuche mir nun seit kurzem (heute:D) gdi anzueignen und stehe vor einem naja, Grundlagen Problem.
Ich habe versucht mir dir Aufgage zu stellen eine animierte Linie zu erstellen stehe aber vor einem logischen Problem, denn die ich nenne sie mal
"Ausgangszahlen" für meine Animation werden zwar erhöht mit jedem Programmdurchlauf, allerdings wird die Linie nicht neugezeichnet, ich hoffe ihr könnt mir helfen, denn ich
glaub ich stehe logisch dort grad aufem Schlauch (Für das Application.DoEvents() dürft ihr mich gerne schlagen.... :pinch: )

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim aa As Integer
aa = 100
Dim bb As Integer
bb = 200
Dim Punkt1 As New Point(CInt(aa), CInt(aa))
Dim Punkt2 As New Point(CInt(bb), CInt(bb))
With e.Graphics
While True
.DrawLine(Pens.Black, Punkt1, Punkt2)
aa = aa + 1
bb = bb + 1
MsgBox("Gezeichnet! " & "Wert Punkt1 : " & aa & " Punkt2: " & bb, MsgBoxStyle.Information)
Application.DoEvents()
End While
End With
End Sub
End Class

Mit freundlichen Grüßen
paulkoch95
Ps: ich erbitte möglichst nur den logischen Ansatz, ich möchts schliesslich lernen und keine sourcecode kopieren^^

Myrax · 31. März 2012, 19:18

Du zeichnest nur einmal - dafür wäre ein Timer geeignet (Me.Invalidate() ist die Methode, die du brauchst, um neuzuzeichnen)

skyscater · 31. März 2012, 19:20

wenn dann musst du statt aa=aa+1:

VB.NET-Quellcode

Punkt1 = new point(Punkt1.x+1,Punkt1.x+1)

schreiben.
Aber du solltest im Paint event nur die Zeichenrei erledigen und mit nem Timer zB. oder in der FormLoad Sub mit deiner While-Schleife eine Variable rauf zählen.

Gelöschter Benutzer · 31. März 2012, 19:22

@Myrax:

yo are doin it wrong.(timer)

Myrax · 31. März 2012, 19:24

So machts eigentlich keinen Sinn, wie skyscater bereits sagte, denn du solltest im Paint-Event nur zeichnen - und alles andere wie Variablenhochzählung mit nem Timer machen.
Ne Variable vom Typen Point sollte man wohl eher so hochzählen: Point1 = New Point(Point1.X + 1, Point1.Y + 1)

@kinsi: nicht umbedingt, für sowas ist ein Timer ganz in Ordnung.

Krissel095 · 31. März 2012, 19:24

Dein Problem ist eher die Endlosschleife im Paint-Event

Wie sollte dein Programm jemals eine fertige Zeichnung ausgeben, wenn es in einer Endlosschleife festhängt?

MfG

paulkoch95 · 31. März 2012, 19:25

@skyscater
Gut, danke für den Tipp, schon ein erster Erfolg ist zu sehen^^
@kinsi
Ein Timer?? ich glaub dass ist net die sauberste Methode..:)
@Krissel095
aber wie dann?

Gelöschter Benutzer · 31. März 2012, 19:25

@Krissel095:

he used applicaton.doevents(). blargh btw

Myrax · 31. März 2012, 19:27

Du zeichnest im Paint-Event und mit nem Timer zählst du hoch und sagst: Form, zeichne dich neu.

paulkoch95 · 31. März 2012, 19:34

Jup, danke, mit einem Timer funktionierts, aber gibt es nicht auch eine bessere performantere Methode?
btw, bisheriger funzender Quellcode:

VB.NET-Quellcode

Option Strict On
Public Class Form1
Public aa As Integer = 100
Public bb As Integer = 200
Public Punkt1 As New Point(CInt(aa), CInt(aa))
Public Punkt2 As New Point(CInt(bb), CInt(bb))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim aa As Integer
aa = 100
Dim bb As Integer
bb = 200
With e.Graphics
.DrawLine(Pens.Black, Punkt1, Punkt2)
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Invalidate()
Punkt1 = New Point(Punkt1.X + 1, Punkt2.X + 1)
Punkt2 = New Point(Punkt2.X + 1, Punkt1.X + 1)
End Sub
End Class

FreakJNS · 31. März 2012, 19:36

mega! xD

Ohne Genau Vorstellung, was du da genau machen willst (ich meine "eine Linie animiert darstellen" ist recht dürftig) will ich nichtmal ne antwort darauf geben xD

Ein Timer ist auf jeden Fall tausend prozent besser als deine schleife da. Also Timer erstellen, der die variablen hochzählt und .invalidate (zum neuzeichnen) aufruft. Damit würde sich die Linie bewegen - sogar mit relativ konstanter Geschwindigkeit wenn man es mit einer bloßen While-Schleife vergleicht die auf einem schnellerem Prozessor öfters durchlaufen wird...

Und nochwas zu deinem Code:

Dim aa As Integer
aa = 100
..wird zu: Dim aa As Integer = 100
ist leserlicher und spart platz

das Cint(..) kannst du dir sparen - es handelt sich ja bereits um einen integer. Schalte option strict on, dann siehst du wo du wirklich umwandeln musst^^ ps: nicht cstr oder so nutzten, es gibt .tostring

edit: Warum brauchst du was performanteres? Wenn du tausen frames pro sekunde rendern willst wird der PC das schon iwie schaffen - dein auge nicht. Dein Problem ist offenbar, dass sich die Linie nicht "schnell" genug bewegt. da musst du dann größere Schritte machen.
Tipp: berechnungen auslagern und evtl mit kommazahlen rechnen. Erst die Ergebnisse in integer converten. So werden langsame bewegungen möglich. Wie gesagt, ohne zu wissen was du da genau machst kann man dir keine musterlösung geben

paulkoch95 · 31. März 2012, 19:47

@FreakJNS4
wie dir aufgefallen sein sollte ist option strict on on:D Deshalb ist da ja das cint, vorher wars da nicht:D
Mit animierter linie meinte ich nichts weiter als eine Linie die sich schräg über dir Form bewegt und genau das klappt jetzt..
mfg paulkoch95

Niko Ortner · 31. März 2012, 20:51

Zum Konzept:

VB.NET-Quellcode

Dim YourVar As Integer = bla
Dim YourOtherVar As Integer = blup
Dim WithEvents GameTimer As New Timer With {.Interval = 30, .Enabled = True} 'Ein Intervall von 30ms gibt ca. 33 Frames pro Sekunde
Private Sub GameTick() Handles GameTimer.Tick
DoSomething(YourVar)
DoSomethingElse(YourOtherVar)
Me.Invalidate()
End Sub
Private Sub PaintSomeStuff(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint
e.Graphics.DrawSomeStuff(YourVar, YourOtherVar)
End Sub

Das ist das Grundkonzept.

@kinsi: Bitte erkläre mir wie Du ein geregeltes, gleichmäßiges Neuzeichnen der Form ohne Timer machst? Mit einem Thread, der in einer Endlosschleife läuft und immer wieder Me.Invoke(Sub() GameTick()) aufruft? Genau das macht ein Timer auch.

@paulkoch95: wieder:

Bei Dir würde das obrige Konzept angewandt so aussehen:

VB.NET-Quellcode

Dim Pos1 As Single = 100
Dim Pos2 As Single = 200
Dim WithEvents GameTimer As New Timer With {.Interval = 30, .Enabled = True}
Private Sub GameTick() Handles GameTimer.Tick
Pos1 += 0.5 'oder so
Me.Invalidate()
End Sub
Private Sub PaintSomeStuff(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint
e.Graphics.DrawLine(Pens.Black, Pos1, Pos1, Pos2, Pos2)
End Sub

Noch was zu den Variablen, die an die Draw* Methoden übergeben werden:

Integer funktioniert immer (bzw. Rectangle, Size, etc.).

Wenn es genauer her gehen muss kannst Du Single verwenden (bzw. RectangleF, SizeF, etc.).

Wenn es noch genauer hergehen muss, oder aus anderen Gründen zu viele Konvertierungen von z.B. Double nach Single vorkommen, dann kannst Du Double nehmen.
Dafür gibt's dann keine Structures wie Rectangle oder Size.
Die musst Du separat erstellen. Und wenn Du wie in dem Beispiel eine Variable direkt übergibst muss die zu Single konvertiert werden (Integer wäre wieder ungenau).

VB.NET-Quellcode

Dim Pos1 As Double = 100
Dim Pos2 As Double = 200
Dim WithEvents GameTimer As New Timer With {.Interval = 30, .Enabled = True}
Private Sub GameTick() Handles GameTimer.Tick
Pos1 += 0.5 'oder so
Me.Invalidate()
End Sub
Private Sub PaintSomeStuff(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint
'So:
e.Graphics.DrawLine(Pens.Black, CSng(Pos1), CSng(Pos1), CSng(Pos2), CSng(Pos2))
'Oder So:
Dim Pos1Sng As Single = CSng(Pos1) 'Bei aufwendigen Konvertierungen lohnt sich das enorm, weil nur einmal konvertiert werden muss.
Dim Pos2Sng As Single = CSng(Pos2)
e.Graphics.DrawLine(Pens.Black, Pos1Sng, Pos1Sng, Pos2Sng, Pos2Sng)
End Sub

Noch ein Tipp:
e.Graphics.SmoothingMode gibt an, ob und wie gezeichnetes geglättet wird.
Zeichne mal mit
e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.NearestNeighbour
und einmal mit
... .AntiAlias
Was nötig ist / schöner ist musst Du wissen.

paulkoch95 · 31. März 2012, 21:03

@niko
danke für die hilfreich und umfassende antwort, sachen wie das anti aliasing habe ich mir schon angeguckt nur halt noch net gebraucht....:=D
schönen abend an alle
mfg
paulkoch95

RodFromGermany · 1. April 2012, 10:49

Sieh Dir mal außerdem die Überladungen von Me.Invalidate() an, da kannst Du Rechtecke und Regionen (Überlagerungen von Rechtecken) übergeben, und nur dort wird neu gezeichnet.
Das erhöht die Performance sehr.

GDI Grundlagen Problem

GDI Grundlagen Problem

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

6 Benutzer haben hier geschrieben