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