Смоделировать движение - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста в решении задачи на VBA. Задача следующая: Смоделировать движение точки, нарисованной на шаре, причем шар катится по плоскости (вид сверху). -Шар на котором нарисована точка представляет собой обычный круг (панель рисование) и точка – это точно такой же круг, только поменьше. -движение шара у меня смоделировать получилось и точка по нему движется, не выходя за его границы -осталось сделать, чтобы эта точка после того, как она дойдет до краев так называемого «шара» должна исчезнуть на некоторое время (так как мы видим движение сверху), это можно сделать с помощью свойства Visible. Но мне не понятно как записать условие «точка дошла до одной из границ круга»? Это условие можно сформулировать, если б при движении шара и точки у меня изменялись их координаты, но у меня положение шара и точки изменяется не с помощью изменения координат их центров, а с помощью изменения свойств left и top. Пока не могу придумать как это сделать. Буду очень благодарна за вашу помощь.

Решение задачи: «Смоделировать движение»

textual
Листинг программы
w = v / R  'w - угловая скорость, R - радиус шара
al = al + w*dt  'al - текущай угол повотора, 
While al > 2*pi
    al = al - 2*pi
Wend
While al < 0
    al = al + 2*pi
Wend
xt = x + R * cos(al)  'абсолютная координата точки
If al < pi Then
    ' точка сверху, ее видно
Else
    ' точка снизе, не видно
End If

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы