Перемещение объекта - VB
Формулировка задачи:
Как переместить объект (пусть прямоугольник) влево, вправо, вверх и вниз? Одним словом, как это все перемещать? Подсказывают, что через Mode, но как?!
Решение задачи: «Перемещение объекта»
textual
Листинг программы
Dim ugol ' что значит уго? Const Pi = 3.1415926 Private Sub Form_Load() ugol = 0 Timer1.Interval = 100 ' что дает изменение интервала? End Sub Private Sub Timer1_Timer() Shape1.Move Sin(ugol) * 500 + 1000, Cos(ugol) * 500 + 1000 ' Красное - размещение объекта на форме, а зеленное - это радиус или скорость? ugol = IIf(ugol > 2 * Pi, ugol - 2 * Pi + 0.5, ugol + 0.5) ' Если здесь поменять знаки на противоположные, то объект будет двигаться в другую сторону? End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д