Hier ein kleines Script von mir um eine gedachte Linie zwischen Point1 und Point2 um einen bestimmten Winkel zu rotieren. Point1 ist die Achse und Point2 ist der Punkt, der bewegt werden soll. Die Funktion "RotatePoint" gibt die Koordinaten von Point2 zurück.
Gruß, Jan
Edit by ~blaze~:
*Thema aus Hauptforum verschoben, vb-Tags eingefügt*
VB.NET-Quellcode
- Public Function RotatePoint(ByVal Point1 As Point, ByVal Point2 As Point, ByVal Rotation As Integer) As Point
- 'Point1 = Axis/Achse
- Dim LineLenght As Integer = CInt(Math.Sqrt((Point1.X - Point2.X) * (Point1.X - Point2.X) + (Point1.Y - Point2.Y) * (Point1.Y - Point2.Y)))
- 'Calculate hypotenuse/Hypotenuse ausrechnen
- Point2.X = CInt(Math.Sin(Rotation * (Math.PI / 180)) * LineLenght + Point1.X)
- Point2.Y = CInt(Math.Cos(Rotation * (Math.PI / 180)) * LineLenght + Point1.Y)
- Return Point2
- End Function
Gruß, Jan
Edit by ~blaze~:
*Thema aus Hauptforum verschoben, vb-Tags eingefügt*
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „J-F“ ()