Objekt entlang eines Pfades bewegen

    • VB.NET

    Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von FreakJNS.

      Objekt entlang eines Pfades bewegen

      Guten Tag^^
      Da ich hier schon öfters "systeme zum bewegen von objekten zwischen zwei punkten" gesehen habe möchte ich euch nun meins vorstellen.
      Alles basiert auf der Pfad-Klasse, sie enthält Ziel- und Ausgangspunkt, die Geschwindigkeit (pixel/step) und eine funktion (getStepArray as point() ) die einen Array aller punkte zwischen den beiden Hauptpunkten wiedergibt...

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Pfad
      3. Sub New()
      5. End Sub
      7. Sub New(ByVal P1 As Point, ByVal P2 As Point)
      8. AusgangsPunkt = P1
      9. ZielPunkt = P2
      10. End Sub
      12. Dim _AusgangsPunkt As Point = New Point(0, 0)
      13. Dim _ZielPunkt As Point = New Point(0, 0)
      15. Dim _PixelPerStep As Decimal = 10
      17. Dim deltaX As Integer = 0 'Unterschied der X-komponente von Ausgangspunkt und Zielpunkt
      18. Dim deltaY As Integer = 0 'Unterschied der Y-komponente von Ausgangspunkt und Zielpunkt
      19. Dim Weglänge As Double = 0
      22. Public Function GetPixelPerStep(ByVal _steps As Integer) As Decimal
      23. Dim PPS As Decimal = CDec(Weglänge / _steps)
      24. Return PPS
      25. End Function 'Gibt die anzahl der PixelPerStep in abhängigkeit der anzahl der stücke in die die linie unterteilt wird zurück
      26. Public Function GetSteps() As Integer
      27. Return CInt(Weglänge / PixelPerStep)
      28. End Function 'gibt die stücke-anzahl zurück
      30. Public Property PixelPerStep() As Decimal
      31. Get
      32. Return _PixelPerStep
      33. End Get
      34. Set(ByVal value As Decimal)
      35. _PixelPerStep = value
      37. End Set
      38. End Property
      39. Public Property AusgangsPunkt() As Point
      40. Get
      41. Return _AusgangsPunkt
      42. End Get
      43. Set(ByVal value As Point)
      44. _AusgangsPunkt = value
      45. deltaX = ZielPunkt.X - AusgangsPunkt.X
      46. deltaY = ZielPunkt.Y - AusgangsPunkt.Y
      47. Weglänge = Math.Sqrt(deltaX * deltaX + deltaY * deltaY) 'Satz des Pythagoras
      48. End Set
      49. End Property
      50. Public Property ZielPunkt() As Point
      51. Get
      52. Return _ZielPunkt
      53. End Get
      54. Set(ByVal value As Point)
      55. _ZielPunkt = value
      56. deltaX = ZielPunkt.X - AusgangsPunkt.X
      57. deltaY = ZielPunkt.Y - AusgangsPunkt.Y
      58. Weglänge = Math.Sqrt(deltaX * deltaX + deltaY * deltaY) 'Satz des Pythagoras
      59. End Set
      60. End Property
      62. Public Function GetStepArray() As Point()
      64. Dim Steps As Integer = GetSteps()
      65. Dim tmp(Steps) As Point
      67. If Steps > 0 Then
      68. Dim StepLengthX As Double = deltaX / Steps
      69. Dim StepLengthY As Double = deltaY / Steps
      71. Dim newLoc As Point = New Point(0, 0)
      73. For i = 0 To Steps
      74. newLoc = New Point(CInt(_AusgangsPunkt.X + i * StepLengthX), CInt(_AusgangsPunkt.Y + i * StepLengthY))
      75. tmp(i) = newLoc
      76. Next
      77. End If
      80. Return tmp.ToArray
      82. End Function 'Erstellt einen Array mit allen positionen zwischen Start und Zielpunkt
      85. End Class




      Um die Funktion der Klasse gleich zeigen zu können, hier der code, der in die Form1 eines Standart VB Projects gehört. Es sollte dann sofort lauffähig sein.
      Zu verwenen sind dann: Mausklicks rechts und links auf die form und das bewegen der Maus bei gedrückter linker maustaste. viel spass beim probieren^^

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form1
      3. Dim P1 As Point = New Point(50, 500)
      4. Dim P2 As Point = New Point(800, 200)
      6. Dim SinglePfad As New Pfad
      8. Friend WithEvents Timer1 As New Timer
      10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      11. Me.Size = New Size(1000, 800)
      12. Me.DoubleBuffered = True
      13. Timer1.Interval = 10
      14. Timer1.Start()
      15. End Sub
      17. Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
      18. setSinglePfad(e.Button, e.Location)
      19. Me.Invalidate()
      20. End Sub
      21. Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
      22. If e.Button = Windows.Forms.MouseButtons.Left Then
      23. setSinglePfad(e.Button, e.Location)
      24. Me.Invalidate()
      25. End If
      26. End Sub
      27. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
      29. If P1 <> Nothing Then
      30. e.Graphics.DrawEllipse(New Pen(Color.Red, 3), P1.X - 10, P1.Y - 10, 20, 20)
      31. End If
      32. If P2 <> Nothing Then
      33. e.Graphics.DrawEllipse(New Pen(Color.Blue, 3), P2.X - 10, P2.Y - 10, 20, 20)
      34. End If
      36. If P1 <> Nothing And P2 <> Nothing Then
      37. SinglePfad.AusgangsPunkt = P1
      38. SinglePfad.ZielPunkt = P2
      40. Dim StepArray() As Point = SinglePfad.GetStepArray
      42. For i = 0 To StepArray.Count - 1
      43. Dim loc As Point = StepArray(i)
      44. e.Graphics.DrawEllipse(New Pen(Color.Gray, 2), loc.X - 5, loc.Y - 5, 10, 10)
      45. Next
      46. End If
      49. If ObjektLoc <> Nothing Then
      50. e.Graphics.DrawRectangle(New Pen(Color.Green, 4), ObjektLoc.X - 15, ObjektLoc.Y - 15, 30, 30)
      51. End If
      55. End Sub
      57. 'Private Sub cPPS_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) handles NumericUpDown1.changevalue
      58. ' SinglePfad.PixelPerStep = CInt(cPPS.Value)
      59. ' Me.Invalidate()
      60. 'End Sub
      62. Sub setSinglePfad(ByVal _button As MouseButtons, ByVal pos As Point)
      63. If _button = Windows.Forms.MouseButtons.Right Then
      64. P1 = Nothing
      65. P2 = Nothing
      66. End If
      68. If _button = Windows.Forms.MouseButtons.Left Then
      69. If P1 = Nothing Then
      70. P1 = pos
      71. Else
      72. P2 = pos
      73. End If
      74. End If
      75. End Sub
      77. Dim tmpStep As Integer = 0
      78. Dim ObjektLoc As Point = Nothing
      79. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      81. Me.Invalidate(New Region(New Rectangle(ObjektLoc.X - 20, ObjektLoc.Y - 20, 40, 40)))
      83. If P1 <> Nothing And P2 <> Nothing Then
      84. tmpStep += 1
      85. Dim StepArray() As Point = SinglePfad.GetStepArray
      86. If tmpStep <= StepArray.Count - 1 Then
      87. ObjektLoc = StepArray(tmpStep)
      88. Else
      89. tmpStep = 0
      90. ObjektLoc = Nothing
      91. End If
      92. Else
      93. tmpStep = 0
      94. ObjektLoc = Nothing
      95. End If
      98. Me.Invalidate(New Region(New Rectangle(ObjektLoc.X - 20, ObjektLoc.Y - 20, 40, 40)))
      100. End Sub
      104. End Class

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

      Hi,

      .ToArray, wenn das Objekt schon eine Array ist? Wo liegt der Sinn?
      .Count bei einer Array? .Count ist für mich typisch für generische Listen. Da "StepArray" eine Array ist, warum nicht die Length-Property nehmen?
      Von meinem iPhone gesendet

      Hi,
      ich bezog mich mit der Count-Property auf generische Listen, wie z.B. die Standard-Liste:
      msdn.microsoft.com/en-us/library/d9hw1as6%28v=VS.80%29.aspx
      (hat auch im .NET-FW 2.0 eine Count-property)

      Wie ich oben beschrieben habe, ist dies keine Standard-Liste, sondern eine Array. Da sollte man die Length-Property benutzen.
      Von meinem iPhone gesendet

      Nikee..
      Ich wusste ja nicht, dass man die Array größe von Anfang an deklarieren kann?!
      Geht das also auch so:

      VB.NET-Quellcode

      1. Dim Arr(5) As Integer
      2. Arr(0) = 0
      3. Arr(1) = 1
      4. Arr(2) = 2
      5. Arr(3) = 3
      6. Arr(4) = 4
      7. Arr(5) = 5


      So gehts?!
      Ich dachte immer, wenn man z.b. Arr(0) macht ist das nur ReadOnly :O

      VB.NET-Quellcode

      1. dim arr(5) As Integer
      Erstellt eine sechselementige Array, die von 0 bis 5 geht.

      VB.NET-Quellcode

      1. dim arr as integer()
      Erstellt eine Array, bei der keine Anzahl von Elementen angegeben ist. Beim Benutzen müsste diese Array eine Exception schmeissen, sollte man ihr vorher keine Elementzahl zugewiesen haben.
      Von meinem iPhone gesendet