Создайте проект. Текст программы приведен ниже

Сохраните проект под именем График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))

Дата добавления: 2014-01-07