Тема: Анимация и мультипликация в Visual Basic

Тема: Анимация и мультипликация в Visual Basic

Во многих проектах оказывается уместной “малая” анимация, позволяющая сделать более наглядным для пользователя ход некоторого процесса или изменение некоторого состояния.

Принцип анимации был известен еще до изобретения кинематографа и с тех пор не изменился. Чтобы привести картинку в движение (анимировать, т.е. “оживить” ее), необходимо быстро продемонстрировать последовательность картинок, изображающих фазы движения. Средства Visual Basic предоставляют для этого широкие возможности. Можно перемещать по экрану текст или графику, анимировать точечные рисунки путем последовательной смены фаз, можно анимировать командную кнопку. Общий принцип не меняется. Он заключается в том, что либо изменение некоторых параметров объекта (например, его координат на форме), либо последовательная смена его содержимого (точечного рисунка на поверхности кнопки или в элементе Image) производится по событиям таймера. И, собственно анимацию, таким образом, всегда выполняет процедура обработки события Timer.

2.1 Проект prjClock. Графический интерфейс пользователя

В проекте, который вы будете делать, будет поворачиваться стрелка с севера на восток, затем на юг, затем на запад и обратно на север. Каждый поворот стрелки будет сопровождаться коротким звуковым сигналом. Повороты будут осуществляться через небольшие равные промежутки времени. Форму назовите (свойство Name) frmClock, свойству Caption присвойте значение Часы.

Вставьте четыре метки на форму С, В, Ю, З используйте любой цвет и шрифт. Поместите на форму элемент управления Timer. Свойству Name его присвойте значение tmrTimer. Установите свойство Interval в 250 миллисекунд, чтобы он генерировал событие Timer каждые четверть секунды.

Кроме этого поместите на форму четыре элемента image. Первый назовите imgRight и поместите на него с помощью свойства picture картинку со стрелочкой вправо, второй назовите imgDown и поместите на него картинку со стрелочкой вниз, третий назовите imgLeft и поместите на него картинку со стрелочкой влево, четвертый назовите imgUp и поместите на него картинку со стрелочкой вверх. Свойство Visible у этих элементов image приравняйте значению False.

Еще на форму поместите две командные кнопки. Одну назовите cmdStart и значение свойства Caption у нее задайте равное Старт, вторую назовите cmdFinish и значение свойства Caption у нее задайте равное Финиш.

Приступим к составлению кода проекта. В нашем проекте потребуется переменная, поэтому в общей части проекта (перед всеми процедурами) объявим переменную:

Переменная имеет имя С, значения, которые она может принимать – натуральные числа.

В процедуре cmdFinish_Click программа заканчивает свою работу. Составьте соответствующий код:

Private Sub cmdFinish_Click( )

End Sub

В процедуре cmdStart_Click( ) будет включаться таймер, т.е. его свойство Enabled будет приравниваться значению True. Составьте код.

Анимировать движение стрелки будем в процедуре tmrTimer_Timer( ). Если значение переменной С равно нулю, будем свойство Picture нашего главного элемента imgClock приравнивать значению свойства Picture элемента imgRight. Этому смысловому “куску” кода соответствуют следующие строки:

Если значение переменной C равно единице, будем свойство Picture нашего главного элемента imgClock приравнивать значению свойства Picture элемента imgDown. Этому смысловому фрагменту кода соответствуют следующие строки:

Если значение переменной C равно двойке, будем свойство Picture нашего главного элемента imgClock приравнивать значению свойства Picture элемента imgLeft. Этому смысловому фрагменту кода соответствуют следующие строки:

Если значение переменной C равно трем, будем свойство Picture нашего главного элемента imgClock приравнивать значению свойства Picture элемента imgUp. Этому смысловому фрагменту кода соответствуют следующие строки:

Далее будем увеличивать значение переменной C на единицу:

Если значение переменной становится равным четырем, то мы его снова обнуляем и процесс повторяется.

В конце кода поставим оператор Beep, который воспроизводит короткий звуковой сигнал. Напишите все, что обсуждалось выше в коде и опробуйте свой проект на компьютере.

Сейчас мы будем делать проект, в котором на форме по диагонали из нижнего правого угла в левый верхний угол будет прыжками передвигаться котенок. Как только он добирается в несколько прыжков до левого верхнего угла формы, его прыжки начинаются снова с начальной точки в прежнем направлении.

Для проекта сделаем два рисунка – две фазы движения котенка: один – когда все лапки котенка находятся на земле, а другой – когда две передние лапки подняты относительно двух задних в прыжке. Сделаем эти два рисунка в графическом редакторе и запишем на диск два файла.

Пусть первый файл будет называться Cat1.bmp, а второй – Cat2.bmp.

На форме у нас будет один элемент image. Мы, поочередно вызывая в него с помощью метода LoadPicture то одну, то другую картинку и передвигая этот элемент по форме (метод Move), будем имитировать прыжки котенка. Все это будет происходить по событиям таймера.

Опишем поочередно все элементы управления, которые будут участвовать у нас в проекте, и зададим некоторые их свойства.

Форме дадим имя (свойство name) frmJumps. Свойству Caption присвоим значение: “Прыжки котенка”. Зададим свойства формы Height =3600 и width = 4800.

Поместим на форму таймер, назовем его tmrTimer. Свойства Enabled –False, а Interval – 250 миллисекунд.

Элемент image назовем imgPic. Свойству Stretch присвоим значение True, Left зададим 2160, Top 3600 , то есть он будет размещаться в правом нижнем углу формы. C помощью свойства Picture поместим в элемент imgPic картинку Cat1.bmp.

Еще поместим на форму две командные кнопки для начала и завершения движения. Первую назовем cmdJump, свойство Caption у нее зададим как “Прыгай”. Вторую назовем cmdExit. Свойствe Caption присвоим значение “Хватит”.

Командная кнопка cmdExit существует у нас для выхода из проекта, поэтому несложно дописать код:

Командная кнопка cmdJumps существует у нас для начала движения, поэтому, как и в предыдущем проекте в соответствующем коде запускается таймер. Дополните код:

Все основное “действие” - анимация движения котенка в нашем проекте будет представлено в коде таймера. В начале этого кода объявим переменную, в зависимости от значения которой будем передвигать элемент imgPic и вызывать в него поочередно первую или вторую картинку. Назовем ее JumPic и объявим как статическую:

Далее, если значение переменной равно 0, т.е. начальное, то будем на том же самом месте менять картинку:

Если значение переменной равно 1, котенок должен совершить свой первый прыжок и фаза движения его сменится:

Если значение переменной равно 2, то котенок должен совершить второй прыжок со сменой фазы движения:

Если значение переменной равно 3, то котенок совершает третий прыжок:

Для четвертого прыжка фрагмент кода следующий:

Для пятого:

И для непрерывности процесса увеличиваем значение переменной на единицу:

Больше котенку прыгать некуда, поэтому снова присваиваем переменной значение 0:

Все это, как уже говорилось, мы помещаем в код таймера события Timer.

Составь окончательный код для таймера:

Private Sub tmrTimer_Timer( )

End Sub

Выполните проект на компьютере его. Подумайте, как можно упростить код.

А) Если вы сумели упростить код проекта prjJuumps, пришлите его преподавателю. Интересные и правильные варианты проектов слушателей будут размещены на сервере.