Создайте проект. Текст программы приведен ниже
Сохраните проект под именем График2
Dim I As Integer
Private Sub Form_Load()
I = 1
End Sub
Private Sub Timer1_Timer()
Dim Dx, Dy As Single
Dx = 5 'смещение по оси Х
Dy = 5 'смещение по оси Y
Scale (0, 100)-(100, 0) 'оси координат (0,0)-в нижнем левом углу
Circle (5 + Dx * I, 5 + Dy * I), 5 'окружность
I = I + 1 'переход к рисованию следующей окружности
End Sub
По такому же принципу можно строить более сложную анимацию – движение окружности на экране, т.е. в каждый момент времени должно показываться только текущее положение окружности, при повторном рисовании фигуры восстанавливается исходное состояние экрана (изображение исчезает). В текст процедуры перед оператора Circle добавляем строчку:
Cls ‘очистка формы
Для инициализации движения предметов на экране на форму помещаем элемент Image (Picture). Изображение предмета помещаем в элемент Image (Picture) выбором в свойстве Picture соответствующего рисунка из папки C:\Program Files \ MS Office \ Clipart \ Popular и изменением для Image свойства Stretch на True.
В тексте программы вместо строчки для рисования окружности помещаем строчку, генерирующую движение с использованием свойства Move: Image1.Move (5 * I) (Picture1.Move (5 * I))