Masud Barati
Помогите создать непрерывное движение отрезка вокруг одного конца, при этом не меня его длины, код внутри
Public Class Form1
Dim x As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
x = x + 1
Line1.X1 = 200 * (System.Math.Sin(x * 3.14159265358979 / 180))
Line1.Y1 = 200 * (System.Math.Cos(x * 3.14159265358979 / 180))
Line1.X2 = 90 * (System.Math.Sin(x * 3.14159265358979 / 180))
Line1.Y2 = 90 * (System.Math.Cos(x * 3.14159265358979 / 180))
End Sub
End Class
только у меня движется и вторая точка, как сделать так, чтобы вращался отрезок вокруг одного конца, при этом его длина не менялас?