Программа 8. Создание простейшей анимации

Процедуры бывают нескольких типов. Есть процедуры "обработки событий" – они срабатывают в том случае, если произошло какое-то событие (пользователь кликнул на командной кнопке, переключил радио-кнопку и т.д.). Есть процедуры, написанные программистом: они вызываются из других процедур для выполнения каких-то действий (вычисления, перекодировка строки, скрытие/показ какого-то элемента управления и пр.). Но есть (внимание, это очень важно!) процедуры, которые должны срабатывать в зависимости от времени. Например, пользователь запустил наше приложение, а через 10 минут вызвалась процедура и вывелась надпись "Зарегистрируйте свою версию!" Или каждые десять секунд вызывается процедура, которая включает/выключает видимость кнопки Выход. Могут потребоваться процедуры, которые самостоятельно запускаются на исполнение в зависимости от времени.
Для управления такими процедурами предусмотрен специальный элемент управления Timer (таймер).

Создадим простой мультфильм – по синему морю плывет кораблик. Для реализации задуманного необходимо выполнить подготовительную работу. Во-первых, надо нарисовать в редакторе MS Paint небольшой кораблик на синем фоне (рис.11) и сохранить его в каталоге C:\Documents\korablik.bmp.

Рис. 11.

Во-вторых, необходимо создать новое приложение, и сделать цвет фона формы синим. Теперь осталось поместить на форму элемент управления Timer и элемент управления Image (рисунок). Когда поместите на форму элемент Image, необходимо указать ему полный путь к графическому файлу (korablik.bmp). Кликните на свойстве Picture (картинка) и укажите путь C:\Documents\korablik.bmp. Нажмите F5. Ваше приложение должно выглядеть так, как на рис.12.

Рис. 12.

Теперь надо "заставить" кораблик плыть слева направо по нашей форме. Собственно, его движение – есть ни что иное, как изменение координат рисунка. Вернее, даже одной координаты рисунка – положения относительно левого края формы. Достаточно наращивать значение в свойстве Left (расстояние от левого края формы до элемента). Но, как часто будем изменять эту координату. Выше упоминалось об элементе управления Timer (таймер), который вызывает свою процедуру через определенный промежуток времени. Кликнув два раза левой кнопкой мыши на элементе Timer1, получим процедуру:

Private Sub
Timer1_Timer()
Image1.Left=Image1.Left+30
End Sub

Остается сделать только одно – занести в свойство Interval (интервал) элемента Timer1 (таймер) значение 100 (миллисекунды). Теперь каждые сто миллисекунд программа будет увеличивать координату Left, и рисунок будет двигаться (довольно быстро) вправо по форме. Таким образом, кораблик будет плыть.