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

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

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

    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

    1. Public Class Form1
    2. Dim Ellipse(300) As Rectangle
    3. Dim PosX(300) As Double
    4. Dim PosY(300) As Double
    5. Dim Loop_ As Boolean = True
    6. Dim Collision1 As Boolean
    7. Dim Collision2 As Boolean
    8. Dim Collision3 As Boolean
    9. Dim Collision4 As Boolean
    10. '---Multi_Pi's---
    11. Dim Stack_Ellipse As New Stack(Of Rectangle)
    12. Dim Arr As Integer = -1
    14. Private Sub Loop_Sub()
    15. Do While Loop_ = True
    16. Application.DoEvents()
    17. Collision()
    18. Loop
    19. End Sub
    20. Private Sub Collision()
    21. For i = 0 To 300
    22. If PosX(i) > 411 Then
    23. Collision1 = True
    24. ElseIf PosY(i) < 0 Then
    25. Collision1 = False
    26. Collision2 = True
    27. ElseIf PosX(i) < 0 Then
    28. Collision1 = False
    29. Collision2 = False
    30. Collision3 = True
    31. ElseIf PosY(i) > 240 Then
    32. Collision1 = False
    33. Collision2 = False
    34. Collision3 = False
    35. Collision4 = True
    36. End If
    38. If Collision1 = True Then
    39. PosX(i) -= 0.25
    40. PosY(i) -= 0.25
    41. ElseIf Collision2 = True Then
    42. PosX(i) -= 0.25
    43. PosY(i) += 0.25
    45. ElseIf Collision3 = True Then
    46. PosX(i) += 0.25
    47. PosY(i) += 0.25
    48. ElseIf Collision4 = True Then
    49. PosX(i) += 0.25
    50. PosY(i) -= 0.25
    51. Else
    52. PosX(i) += 0.25
    53. PosY(i) = 200
    54. End If
    55. Next
    56. Me.Invalidate()
    57. End Sub
    59. Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    60. If Arr = 300 Then
    61. Else
    62. Arr += 1
    63. Stack_Ellipse.Push(Ellipse(Arr))
    65. End If
    66. End Sub
    67. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    68. DoubleBuffered = True
    69. For Each Rec As Rectangle In Stack_Ellipse
    71. Rec = New Rectangle(CInt(PosX(Arr)), CInt(PosY(Arr)), 30, 30)
    72. e.Graphics.FillEllipse(Brushes.Green, Rec)
    73. Next
    74. End Sub
    75. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    76. Me.Focus()
    77. Me.Show()
    78. Loop_Sub()
    79. End Sub
    80. 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

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

    Dann setze einen Haltepunkt rein und verfolge die Properties der Ellipse von ihrer "Geburt" an.
    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!

    Du hast beliebig viele Bälle, aber sie sind alle identisch.
    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!

    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

    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.
    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!

    Hi,
    hier:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Ellipse(1) As Rectangle
    3. Dim PosX1 As Double
    4. Dim PosY1 As Double
    5. Dim PosX2 As Double
    6. Dim PosY2 As Double
    7. Dim Loop_ As Boolean
    9. '---Collison---
    10. Dim Hit_1_Pi1 As Boolean
    11. Dim Hit_2_Pi2 As Boolean = True
    12. Dim Geschwindigkeit As Double
    14. Private Sub Animate()
    15. If PosY1 > 258 Then
    16. Hit_1_Pi1 = True
    17. ElseIf PosY1 < 0 Then
    18. Hit_1_Pi1 = False
    19. End If
    21. If Hit_1_Pi1 = True Then
    22. PosY1 -= 0.2
    23. Else
    24. PosY1 += 0.2
    25. End If
    28. If PosY2 > 258 Then
    29. Hit_2_Pi2 = True
    30. ElseIf PosY2 < 0 Then
    31. Hit_2_Pi2 = False
    32. End If
    34. If Hit_2_Pi2 = True Then
    35. PosY2 -= 0.2
    36. Else
    37. PosY2 += Geschwindigkeit
    38. End If
    39. Me.Invalidate()
    42. End Sub
    43. Private Sub Loop_Sub()
    44. Do While Loop_ = True
    45. Application.DoEvents()
    46. Animate()
    48. Loop
    49. End Sub
    50. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    51. Me.Show()
    53. Loop_ = True
    54. Loop_Sub()
    56. End Sub
    57. Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    58. PosX1 = e.X
    59. PosX2 = e.X
    60. Geschwindigkeit = 0.2
    61. Me.Invalidate()
    62. End Sub
    63. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    64. DoubleBuffered = True
    65. Ellipse(0) = New Rectangle(CInt(PosX1), CInt(PosY1), 30, 30)
    66. Ellipse(1) = New Rectangle(CInt(PosX2), CInt(PosY2), 30, 30)
    67. e.Graphics.FillEllipse(Brushes.Black, Ellipse(0))
    68. e.Graphics.FillEllipse(Brushes.Green, Ellipse(1))
    69. End Sub
    71. 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

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

    @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.
    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!

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

    Mfg.eniking1998

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

    enIking1998 schrieb:

    Scheint mir OOP ...
    Dein Problem schreit nach OOP.
    Fangen wir es an.
    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!

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

    VB.NET-Quellcode

    1. 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

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

    Warum sollte das unsauber sein?
    Du kannst auch eine List(Of ...) davon anlegen, da bist Du weniger limitiert.
    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!

    .- ...
    Hier mein Code,
    Spoiler anzeigen
    Klasse:

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Class1
    3. Public PosX As Integer
    4. Public PosY As Integer
    6. Dim Collision1 As Boolean
    7. Dim Collision2 As Boolean
    8. Dim Collision3 As Boolean
    9. Dim Collision4 As Boolean
    10. Dim Geschwindigkeit As Double = 1.0
    12. Public Sub AddPI()
    13. If PosX > 411 Then
    14. Collision1 = True
    15. ElseIf PosY < 0 Then
    16. Collision1 = False
    17. Collision2 = True
    18. ElseIf PosX < 0 Then
    19. Collision1 = False
    20. Collision2 = False
    21. Collision3 = True
    22. ElseIf PosY > 240 Then
    23. Collision1 = False
    24. Collision2 = False
    25. Collision3 = False
    26. Collision4 = True
    27. End If
    29. If Collision1 = True Then
    30. PosX -= CInt(Geschwindigkeit)
    31. PosY -= CInt(Geschwindigkeit)
    32. ElseIf Collision2 = True Then
    33. PosX -= CInt(Geschwindigkeit)
    34. PosY += CInt(Geschwindigkeit)
    36. ElseIf Collision3 = True Then
    37. PosX += CInt(Geschwindigkeit)
    38. PosY += CInt(Geschwindigkeit)
    39. ElseIf Collision4 = True Then
    40. PosX += CInt(Geschwindigkeit)
    41. PosY -= CInt(Geschwindigkeit)
    42. Else
    43. PosX += CInt(Geschwindigkeit)
    44. PosY = 200
    45. End If
    46. End Sub
    48. End Class


    Aufruf:

    VB.NET-Quellcode

    1. Imports PhysikPi
    3. Public Class Form1
    4. Dim Add As New PhysikPi.Class1
    5. Dim Rec(1) As Rectangle
    7. Dim PosX As Integer
    8. Dim PosY As Integer
    9. Dim Arr As Integer = -1
    11. Dim bool_ As Boolean
    13. Private Sub Loop_()
    14. Do While True
    15. Application.DoEvents()
    16. Add.AddPi()
    17. PosX = Add.PosX
    18. PosY = Add.PosY
    19. Me.Invalidate()
    22. Loop
    23. End Sub
    25. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    26. Me.Show()
    27. Loop_()
    29. End Sub
    31. Private Sub Form1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
    32. Arr += 1
    33. bool_ = True
    35. End Sub
    37. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    38. DoubleBuffered = True
    39. If bool_ = True Then
    40. Rec(Arr) = New Rectangle(PosX, PosY, 30, 30)
    41. e.Graphics.FillEllipse(Brushes.Black, Rec(Arr))
    42. End If
    44. End Sub
    45. End Class


    Wird nicht animiert...

    Hoffe auf Antworten...

    Mfg.eniking1998

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

    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.
    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!

    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

    1. Dim trefferRichtung As eTrefferRichtung = eTrefferRichtung.Links
    2. if trefferRichtung = eTrefferRichtung.Rechts then
    3. '....
    4. end if
    6. Public Enum eTrefferRichtung
    7. Oben
    8. Unten
    9. Rechts
    10. Links
    11. End Enum

    FreakJNS schrieb:

    ist schon dünnes Eis.
    Besonders dann, wenn er rechts oben auf das Kreuz klickt. :D
    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!

    Hey Leute,
    Es will einfach nicht:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports PhysikPi
    4. Public Class Form1
    5. Dim Physik_ As New PhysikPi.Class1
    6. Dim Rec(300) As Rectangle
    8. Dim Clicked As Boolean = False
    9. Dim Array_ As Integer
    11. Dim BufferX(300) As Integer
    12. Dim BufferY(300) As Integer
    13. Dim bool As Boolean = True
    15. Private Sub loop_()
    16. Do While bool = True
    17. Application.DoEvents()
    18. Physik_.AddPI()
    19. BufferX(Array_) = Physik_.PosX
    20. BufferY(Array_) = Physik_.PosY
    22. Me.Invalidate()
    23. Loop
    24. End Sub
    26. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    27. Array_ += 1
    28. End Sub
    30. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    31. Me.Show()
    32. loop_()
    34. End Sub
    36. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    37. DoubleBuffered = True
    38. Rec(Array_) = New Rectangle(BufferX(Array_), BufferY(Array_), 30, 30)
    39. e.Graphics.FillEllipse(Brushes.Red, Rec(Array_))
    40. End Sub
    41. 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

    1. Option Strict On
    2. Imports PhysikPi
    4. Public Class Form1
    5. Dim x1_ As New Class1
    6. Dim x2_ As New Class1
    7. Dim Rec(300) As Rectangle
    9. Dim Clicked As Boolean = False
    10. Dim Array_ As Integer
    12. Dim BufferX1 As Integer
    13. Dim BufferY1 As Integer
    15. Dim BufferX2 As Integer
    16. Dim BufferY2 As Integer
    18. Dim bool As Boolean = True
    20. Dim Counter As Integer
    22. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    23. Clicked = True
    24. BufferX1 = 0
    25. End Sub
    27. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    28. Me.Show()
    30. End Sub
    32. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    33. DoubleBuffered = True
    35. Rec(0) = New Rectangle(BufferX1, BufferY1, 30, 30)
    36. e.Graphics.FillEllipse(Brushes.Green, Rec(0))
    38. If Clicked = True Then
    39. Rec(1) = New Rectangle(BufferX2, BufferY2, 30, 30)
    40. e.Graphics.FillEllipse(Brushes.Red, Rec(1))
    41. Else
    42. End If
    45. End Sub
    47. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    48. x1_.AddPI()
    49. x2_.AddPI()
    50. BufferX1 = x1_.PosX
    51. BufferY1 = x1_.PosY
    54. BufferX2 = x2_.PosX
    55. BufferY2 = x2_.PosY
    56. Counter += 1
    57. Me.Invalidate()
    58. End Sub
    59. 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

    1. Option Strict On
    2. Imports PhysikPi
    4. Public Class Form1
    5. Dim x1_ As New Class1
    6. Dim x2_ As New Class1
    7. Dim Rec(300) As Rectangle
    9. Dim Clicked As Boolean = False
    10. Dim Array_ As Integer
    12. Dim BufferX1 As Integer
    13. Dim BufferY1 As Integer
    15. Dim BufferX2 As Integer
    16. Dim BufferY2 As Integer
    18. Dim bool As Boolean = True
    20. Dim Counter As Integer
    22. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    23. Clicked = True
    24. BufferX1 = 0
    25. End Sub
    27. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    28. Me.Show()
    30. End Sub
    32. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    33. DoubleBuffered = True
    35. Rec(0) = New Rectangle(BufferX1, BufferY1, 30, 30)
    36. e.Graphics.FillEllipse(Brushes.Green, Rec(0))
    38. If Clicked = True Then
    39. Rec(1) = New Rectangle(BufferX2, BufferY2, 30, 30)
    40. e.Graphics.FillEllipse(Brushes.Red, Rec(1))
    41. Else
    42. End If
    45. End Sub
    47. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    48. x1_.AddPI()
    50. BufferX1 = x1_.PosX
    51. BufferY1 = x1_.PosY
    52. If Clicked = True Then
    53. x2_.AddPI()
    54. BufferX2 = x2_.PosX
    55. BufferY2 = x2_.PosY
    56. Else
    57. End If
    59. Me.Invalidate()
    60. End Sub
    61. End Class


    Mfg.eniking1998


    Mfg.eniking1998

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

    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

    1. if Clicked = True Then

    zu schreiben

    Ein einfaches

    VB.NET-Quellcode

    1. if Clicked Then



    reicht aus.

    enIking1998 schrieb:

    Die Lösung ist simpel...
    Fein.
    Wenn Dein Problem nun gelöst ist, klick doch bitte auf den Erledigt-Button. :D
    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!