Смоделировать движение - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д