Position am Start ca. 4000 auf der X-Achse...

enIking1998 · 2. Juli 2013, 15:05

Hallo liebes Forum,
mein Problem ist im Moment, dass wenn ich dem Stack ein Rectangle zufügen, oder schon bevor ich dieses tue,
die Position des Ellipses ca. 4000 auf der X-Achse liegt.

Diesen Code verwende ich,

VB.NET-Quellcode

Public Class Form1
Dim Ellipse(300) As Rectangle
Dim PosX(300) As Double
Dim PosY(300) As Double
Dim Loop_ As Boolean = True
Dim Collision1 As Boolean
Dim Collision2 As Boolean
Dim Collision3 As Boolean
Dim Collision4 As Boolean
'---Multi_Pi's---
Dim Stack_Ellipse As New Stack(Of Rectangle)
Dim Arr As Integer = -1
Private Sub Loop_Sub()
Do While Loop_ = True
Application.DoEvents()
Collision()
Loop
End Sub
Private Sub Collision()
For i = 0 To 300
If PosX(i) > 411 Then
Collision1 = True
ElseIf PosY(i) < 0 Then
Collision1 = False
Collision2 = True
ElseIf PosX(i) < 0 Then
Collision1 = False
Collision2 = False
Collision3 = True
ElseIf PosY(i) > 240 Then
Collision1 = False
Collision2 = False
Collision3 = False
Collision4 = True
End If
If Collision1 = True Then
PosX(i) -= 0.25
PosY(i) -= 0.25
ElseIf Collision2 = True Then
PosX(i) -= 0.25
PosY(i) += 0.25
ElseIf Collision3 = True Then
PosX(i) += 0.25
PosY(i) += 0.25
ElseIf Collision4 = True Then
PosX(i) += 0.25
PosY(i) -= 0.25
Else
PosX(i) += 0.25
PosY(i) = 200
End If
Next
Me.Invalidate()
End Sub
Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If Arr = 300 Then
Else
Arr += 1
Stack_Ellipse.Push(Ellipse(Arr))
End If
End Sub
Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
DoubleBuffered = True
For Each Rec As Rectangle In Stack_Ellipse
Rec = New Rectangle(CInt(PosX(Arr)), CInt(PosY(Arr)), 30, 30)
e.Graphics.FillEllipse(Brushes.Green, Rec)
Next
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Focus()
Me.Show()
Loop_Sub()
End Sub
End Class

Mit einem Rectangle funktioniert es.
Nur will ich 301-Rectangles gleichzeitig animieren.

EDIT:
Nun funktioniert es, nur mit einem.
Ich hab die Doublewerte als Array definiert.
Und jeden Click +1 Array.
Nur animiert er trotzdem nur Einen .- ...

Hoffe auf Antworten.

Mfg.eniking1998

RodFromGermany · 2. Juli 2013, 15:19

Dann setze einen Haltepunkt rein und verfolge die Properties der Ellipse von ihrer "Geburt" an.

enIking1998 · 2. Juli 2013, 15:20

Ja das tat ich.
Jetzt funktioniert es nur mit Einem.
Siehe Edit.

Mfg.eniking1998

RodFromGermany · 2. Juli 2013, 15:31

Du hast beliebig viele Bälle, aber sie sind alle identisch.

enIking1998 · 2. Juli 2013, 15:39

Jop, habs grad entdecken können.
Wie kann ich diese unterschiedlich, spricht zur unterschiedlichen Zeit, animieren?

Die Rectangles werden zur selben Position animiert.
Ist es möglich dieses asynchron oder ebend, voneinander getrennt auszuführen?

Mfg,eniking1998

RodFromGermany · 2. Juli 2013, 15:41

enIking1998 schrieb:

animieren?

Mach Dir mal ein kleines Testprojekt mit genau 2 Bällen und probier, die gegeneinander laufen zu lassen.
Gib ihnen zunächst 2 definierte Startpositionen, z.B. die Mausposition.

enIking1998 · 2. Juli 2013, 16:18

Hi,
hier:

VB.NET-Quellcode

Public Class Form1
Dim Ellipse(1) As Rectangle
Dim PosX1 As Double
Dim PosY1 As Double
Dim PosX2 As Double
Dim PosY2 As Double
Dim Loop_ As Boolean
'---Collison---
Dim Hit_1_Pi1 As Boolean
Dim Hit_2_Pi2 As Boolean = True
Dim Geschwindigkeit As Double
Private Sub Animate()
If PosY1 > 258 Then
Hit_1_Pi1 = True
ElseIf PosY1 < 0 Then
Hit_1_Pi1 = False
End If
If Hit_1_Pi1 = True Then
PosY1 -= 0.2
Else
PosY1 += 0.2
End If
If PosY2 > 258 Then
Hit_2_Pi2 = True
ElseIf PosY2 < 0 Then
Hit_2_Pi2 = False
End If
If Hit_2_Pi2 = True Then
PosY2 -= 0.2
Else
PosY2 += Geschwindigkeit
End If
Me.Invalidate()
End Sub
Private Sub Loop_Sub()
Do While Loop_ = True
Application.DoEvents()
Animate()
Loop
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Show()
Loop_ = True
Loop_Sub()
End Sub
Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
PosX1 = e.X
PosX2 = e.X
Geschwindigkeit = 0.2
Me.Invalidate()
End Sub
Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
DoubleBuffered = True
Ellipse(0) = New Rectangle(CInt(PosX1), CInt(PosY1), 30, 30)
Ellipse(1) = New Rectangle(CInt(PosX2), CInt(PosY2), 30, 30)
e.Graphics.FillEllipse(Brushes.Black, Ellipse(0))
e.Graphics.FillEllipse(Brushes.Green, Ellipse(1))
End Sub
End Class

Problem hierbei,
wenn ich die Angaben bezüglich der Geschwindigkeit, nahezu identisch setze,
überdecken sich die Ellipsen .- ...

EDIT:
Der Trick war, den zweiten Ball etwas später zu gravieren.
Nun, im Projekt aber, werden die Bälle sowieso unterschiedlich freigegeben.
Trotzdem überdecken sie sich...

Mfg.eniking1998

RodFromGermany · 2. Juli 2013, 17:32

@enIking1998:
Häng mal an alle Double-Werte einen rund-machenden Faktor dran (5) und mach dann aus den Double-Werten Integer-Werte.
Nicht
Dim PosX1 As Double; Dim PosY1 As Double
sondern
Dim Pos1 As Point; Dim Pos2 As Point
und
Pos1 = e.Location
und Dim rc = New Rectangle(PosA, new Size(30, 30))
---
Probier mal, für sich bewegende Punkte eine Klasse zu erstellen
und
für jeden einzelnen Punkt eine Instanz davon.

enIking1998 · 2. Juli 2013, 19:52

Naja...
Ich werd wohl eine Klasse schreiben müssen, indessen ich dann im Main,die Instanzen nacheinander aufrufe...
Scheint mir OOP ...

Mfg.eniking1998

RodFromGermany · 3. Juli 2013, 07:09

enIking1998 schrieb:

Scheint mir OOP ...

Dein Problem schreit nach OOP.
Fangen wir es an.

enIking1998 · 3. Juli 2013, 12:09

Hi,
ist es die Tatsache, unsauber zu sein, wenn ein Array von Instanzen vorliegt?
Also,

VB.NET-Quellcode

Dim AddPI(300) As ClassName.Klasse

...

Hoffe auf Antworten...

EDIT: Ja ist es, meiner Meinung nach.
Ich hab ein Array von Integern.
Trotzdem selbiges Problem .- ...
Sie überdecken sich bäh ...

Mfg.eniking1998

RodFromGermany · 3. Juli 2013, 13:00

Warum sollte das unsauber sein?
Du kannst auch eine List(Of ...) davon anlegen, da bist Du weniger limitiert.

enIking1998 · 3. Juli 2013, 23:02

.- ...
Hier mein Code,

Spoiler anzeigen

Klasse:

VB.NET-Quellcode

Option Strict On
Public Class Class1
Public PosX As Integer
Public PosY As Integer
Dim Collision1 As Boolean
Dim Collision2 As Boolean
Dim Collision3 As Boolean
Dim Collision4 As Boolean
Dim Geschwindigkeit As Double = 1.0
Public Sub AddPI()
If PosX > 411 Then
Collision1 = True
ElseIf PosY < 0 Then
Collision1 = False
Collision2 = True
ElseIf PosX < 0 Then
Collision1 = False
Collision2 = False
Collision3 = True
ElseIf PosY > 240 Then
Collision1 = False
Collision2 = False
Collision3 = False
Collision4 = True
End If
If Collision1 = True Then
PosX -= CInt(Geschwindigkeit)
PosY -= CInt(Geschwindigkeit)
ElseIf Collision2 = True Then
PosX -= CInt(Geschwindigkeit)
PosY += CInt(Geschwindigkeit)
ElseIf Collision3 = True Then
PosX += CInt(Geschwindigkeit)
PosY += CInt(Geschwindigkeit)
ElseIf Collision4 = True Then
PosX += CInt(Geschwindigkeit)
PosY -= CInt(Geschwindigkeit)
Else
PosX += CInt(Geschwindigkeit)
PosY = 200
End If
End Sub
End Class

Aufruf:

VB.NET-Quellcode

Imports PhysikPi
Public Class Form1
Dim Add As New PhysikPi.Class1
Dim Rec(1) As Rectangle
Dim PosX As Integer
Dim PosY As Integer
Dim Arr As Integer = -1
Dim bool_ As Boolean
Private Sub Loop_()
Do While True
Application.DoEvents()
Add.AddPi()
PosX = Add.PosX
PosY = Add.PosY
Me.Invalidate()
Loop
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Show()
Loop_()
End Sub
Private Sub Form1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
Arr += 1
bool_ = True
End Sub
Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
DoubleBuffered = True
If bool_ = True Then
Rec(Arr) = New Rectangle(PosX, PosY, 30, 30)
e.Graphics.FillEllipse(Brushes.Black, Rec(Arr))
End If
End Sub
End Class

Wird nicht animiert...

Hoffe auf Antworten...

Mfg.eniking1998

RodFromGermany · 4. Juli 2013, 07:04

enIking1998 schrieb:

Wird nicht animiert...

Bei mir schon.
Mach mal Dim Geschwindigkeit As Integer = 1
und
CInt(Geschwindigkeit) ==> Geschwindigkeit
"Geschwindigkeit" ist keine Geschwindigkeit, sondern ein DeltaPosition.
Überleg mal, Dein Delta abhängig von der Position zu machen, also mach eine Reflexion.

FreakJNS · 4. Juli 2013, 08:02

In einer Endlosschleife .Invalidate aufrufen und .DoEvents verwenden ist schon dünnes Eis. Ein Timer wäre hier eher angebracht. Der Grund ist einfach, dass es hier sehr schnell zu einem Verhalten des Programms kommt, das nichtmehr vorhersehbar ist. Eine eigene Klasse zu schreiben war jedenfalls der erste Schritt in die richtige Richtung^^

Collison1 bis 4 ist auch nicht so leicht zu handhaben, schau dir mal Enums an:

VB.NET-Quellcode

Dim trefferRichtung As eTrefferRichtung = eTrefferRichtung.Links
if trefferRichtung = eTrefferRichtung.Rechts then
'....
end if
Public Enum eTrefferRichtung
Oben
Unten
Rechts
Links
End Enum

RodFromGermany · 4. Juli 2013, 08:20

FreakJNS schrieb:

ist schon dünnes Eis.

Besonders dann, wenn er rechts oben auf das Kreuz klickt.

enIking1998 · 10. Juli 2013, 03:44

Hey Leute,
Es will einfach nicht:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports PhysikPi
Public Class Form1
Dim Physik_ As New PhysikPi.Class1
Dim Rec(300) As Rectangle
Dim Clicked As Boolean = False
Dim Array_ As Integer
Dim BufferX(300) As Integer
Dim BufferY(300) As Integer
Dim bool As Boolean = True
Private Sub loop_()
Do While bool = True
Application.DoEvents()
Physik_.AddPI()
BufferX(Array_) = Physik_.PosX
BufferY(Array_) = Physik_.PosY
Me.Invalidate()
Loop
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Array_ += 1
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Show()
loop_()
End Sub
Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
DoubleBuffered = True
Rec(Array_) = New Rectangle(BufferX(Array_), BufferY(Array_), 30, 30)
e.Graphics.FillEllipse(Brushes.Red, Rec(Array_))
End Sub
End Class

Das Problem scheint mir, die Instanziierung der Klasse zu sein.
Hab's versucht einen Array an Instanzen zu Erzeugen, leider war dieses nicht möglich => Die Schleife wurde nach dem ersten Mal abgebrochen.

Hoffe auf Antworten.

EDIT:
Neuer Versuch:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports PhysikPi
Public Class Form1
Dim x1_ As New Class1
Dim x2_ As New Class1
Dim Rec(300) As Rectangle
Dim Clicked As Boolean = False
Dim Array_ As Integer
Dim BufferX1 As Integer
Dim BufferY1 As Integer
Dim BufferX2 As Integer
Dim BufferY2 As Integer
Dim bool As Boolean = True
Dim Counter As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Clicked = True
BufferX1 = 0
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Show()
End Sub
Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
DoubleBuffered = True
Rec(0) = New Rectangle(BufferX1, BufferY1, 30, 30)
e.Graphics.FillEllipse(Brushes.Green, Rec(0))
If Clicked = True Then
Rec(1) = New Rectangle(BufferX2, BufferY2, 30, 30)
e.Graphics.FillEllipse(Brushes.Red, Rec(1))
Else
End If
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
x1_.AddPI()
x2_.AddPI()
BufferX1 = x1_.PosX
BufferY1 = x1_.PosY
BufferX2 = x2_.PosX
BufferY2 = x2_.PosY
Counter += 1
Me.Invalidate()
End Sub
End Class

KLAPPPT NICHT...
Die Werte werden synchronisiert.
Obwohl ich 2 verschiedene Instanzen deklariert habe.

Mfg.eniking1998

Lösung:
Die Lösung ist simpel...
Eine If-Abfrage tat's:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports PhysikPi
Public Class Form1
Dim x1_ As New Class1
Dim x2_ As New Class1
Dim Rec(300) As Rectangle
Dim Clicked As Boolean = False
Dim Array_ As Integer
Dim BufferX1 As Integer
Dim BufferY1 As Integer
Dim BufferX2 As Integer
Dim BufferY2 As Integer
Dim bool As Boolean = True
Dim Counter As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Clicked = True
BufferX1 = 0
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Show()
End Sub
Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
DoubleBuffered = True
Rec(0) = New Rectangle(BufferX1, BufferY1, 30, 30)
e.Graphics.FillEllipse(Brushes.Green, Rec(0))
If Clicked = True Then
Rec(1) = New Rectangle(BufferX2, BufferY2, 30, 30)
e.Graphics.FillEllipse(Brushes.Red, Rec(1))
Else
End If
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
x1_.AddPI()
BufferX1 = x1_.PosX
BufferY1 = x1_.PosY
If Clicked = True Then
x2_.AddPI()
BufferX2 = x2_.PosX
BufferY2 = x2_.PosY
Else
End If
Me.Invalidate()
End Sub
End Class

Mfg.eniking1998

Mfg.eniking1998

TheLianos · 10. Juli 2013, 07:12

Ich möchte noch etwas anmerken.

Eine Vergleich prüft immer, ob das verglichene True oder False (In C: 0 oder != 0) ist.
Deshalb ist es nicht nötig

VB.NET-Quellcode

if Clicked = True Then

zu schreiben

Ein einfaches

VB.NET-Quellcode

if Clicked Then

reicht aus.

RodFromGermany · 10. Juli 2013, 07:41

enIking1998 schrieb:

Die Lösung ist simpel...

Fein.
Wenn Dein Problem nun gelöst ist, klick doch bitte auf den Erledigt-Button.

Position am Start ca. 4000 auf der X-Achse...

Position am Start ca. 4000 auf der X-Achse...

VB.NET-Quellcode

enIking1998 schrieb:

VB.NET-Quellcode

enIking1998 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

enIking1998 schrieb:

VB.NET-Quellcode

FreakJNS schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

enIking1998 schrieb:

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben