Кружок

[VINNY-PYX]

люди, у меня возникла проблемка - необходимо, чтобы определенный объект двигался по нарисованному кругу. Как это вооплотить в жизнь (если используете тригонометрические функции, то знайте, что я тригонометрию только начал изучать - так что с объяснениями)

[_Мика_]

Все просто, смотри!

x это cos
y это sin

Например чтобы на форме нарисовать круг надо вот что сделать:

for i=0 to 100 step o.1
me.pset (cos(i)*20,sin(i)*20)
next i

то есть если мы хотим двигать кнопку по форме то надо сделать так:

for i=0 1000 step 0.1
command1.left=cos(i)*20
command1.top=sin(i)*20
next i

А лучше через таймер! через таймер медленей двигаться будет
удачи"

[#HammeR#]

Можно и без тригонометрии!
Уравнение окружности y=(r^2-x^2)^0.5

[areh]

Можно и без тригонометрии!
Уравнение окружности y=(r^2-x^2)^0.5

Лучше всётаки воспользоваться тригонометрией, т.к. приведенный тобой способ не совсем верен... т.е. он описывает только полуокружность, т.к. при вычислении корня компутре выдает тольно положительный результат, а следовательно получаеться, что y не может быть менбше 0...

а что касаеться приведенного ещё выше примера, то там не учитыветься центр окружности...

вот доработанный вариант для таймера:

создай на форме Timer1 (Enabled = True, Interval = 5), Command1 и вот этот код:

'Радиус окружности
Dim r As Integer

'Сентр окружности
Dim CenterX As Integer
Dim CenterY As Integer

'угол поворота по окружности, ну или что-то типа того...
Dim ang As Double

Private Sub Form_Load()
CenterX = 1500
CenterY = 1500
r = 500
End Sub

Private Sub Timer1_Timer()
ang = ang + 0.01
If ang >= 2 * 3.14 Then ang = 0

Command1.Left = CenterX + Cos(ang) * r
Command1.Top = CenterY + Sin(ang) * r
End Sub

[#HammeR#]

Ну вообще ты прав. Полукружность потому, что квадратного корня из отрицательного числа нет

Конечно лучше через тригонометрию, но Винни сказал, что он с ней плохо знаком

[VINNY-PYX]

Огромное Медвежачье СПАСИБО!