Создайте проект. Текст программы приведен ниже
Сохраните проект
под именем График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))
8