Инфоурок / Информатика / Конспекты / Монтаж видео, настройка звуковых эффектов, анимация и визуальные эффекты, вывод видео.

Монтаж видео, настройка звуковых эффектов, анимация и визуальные эффекты, вывод видео.

библиотека
материалов

2г полынцева убрать 1ю неделю

Лобанова

Улькна Виктория

639 573

Назрактп

Дата:___________ Класс:_____________

Тема урока: «Анимация и мультимедиа»

Цель урока: изучить компоненты и разработать программу «Линейное движение объекта по однородному фону»

Задачи:

  • Рассмотреть возможности среды программирования для создания моделей физических процессов и явлений.

  • Изучить принципы организации программы с использованием компонента TTimer для реализации эффектов движения.

План урока

  1. Организационный момент

  2. Актуализация знаний

  3. Объяснение нового материала

  4. Практическая работа

  5. Рефлексия

  6. Домашнее задание

  7. Итог урока

Ход урока

  1. Организационный момент. Приветствие. Отметить отсутствующих в классе.

  2. Актуализация знаний. Вопросы на повторение (Label, Edit, Button, Shape, Timer)

  3. Объяснение нового материала.

Линейное движение по однородному фону является довольно простым в плане программной реализации. Достаточно закрашивать объект цветом фона, изменять его координаты и прорисовывать в новом месте, повторяя эти действия через определенный интервал времени.

Для реализации анимации, помимо двух  компонентов TPaintBox (поле для рисования) и TButton (кнопка запуска), понадобится компонент TTimer со вкладки System. Компонент Timer имеет единственное событие OnTimer, которое выполняется пока Timer включен с интервалом по времени, установленным в свойстве Interval.

Расположите компонент Timer1 на форме. Установите его свойства Timer1.Interval := 100 и Timer1.Enabled := falsehello_html_m495dbf93.jpg



В коде программы необходимо прописать три процедуры (см. урок "Процедуры и функции при построении изображений"). Процедуру отрисовки объекта procedure TForm1.Cloud, процедуру, отрабатывающую на событие OnTimer, - procedure TForm1.Timer1Timer и процедуру запуска анимации, срабатывающую на нажатие кнопки, procedure TForm1.Button1Click.

unit Unit1;

 {$mode objfpc}{$H+}

interface

 uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,

ExtCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

Button1: TButton;

PaintBox1: TPaintBox;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ private declarations }

// координаты прорисовки объекта. Доступны всем процедурам класса TForm1

x1, y1 : Integer;

public

{ public declarations }

// процедура прорисовки облака

procedure Cloud (x, y: Integer; ColorCloud: TColor);

end;

 var

Form1: TForm1;

  implementation

 {$R *.lfm}

 { TForm1 }

 procedure TForm1.Cloud(x, y: Integer; ColorCloud: TColor);

begin

// прорисовка облака из двух эллипсов

with PaintBox1.Canvas do begin

Pen.Style := psClear;

Brush.Color := ColorCloud;

Ellipse(x,y,x+80,y+40);

Ellipse(x+30,y+10,x+100,y+50);

end;

end;

 procedure TForm1.Button1Click(Sender: TObject);

begin

// установка начальных значений

x1:=0;

y1:=50;

Timer1.Interval:=100;

// прорисовка картинки по которой двигается объект

PaintBox1.Canvas.Brush.Color := clBlue;

PaintBox1.Canvas.Rectangle(0,0, PaintBox1.Width, PaintBox1.Height);

// Включение таймера - запуск анимации

Timer1.Enabled := true;

end;

 procedure TForm1.Timer1Timer(Sender: TObject);

begin

// Закраска объекта цветом фона

Cloud(x1,y1,clBlue);

// Изменение координат прорисовки

x1:=x1+1;

// Прорисовка объекта в новом месте

Cloud(x1,y1,clWhite);

end;

 end.

hello_html_59512d97.jpg

  1. Рефлексия. Какие компоненты мы сегодня повторили? Что у нас получилось? Что вызвало затруднение? -я уже знал, -я узнал, -мне было интересно на урке.

  2. Домашнее задание. §20 читать, задание стр. 101

  3. Итог урока. Выставление оценок




Практическая работа «Линейное движение объекта по однородному фону»

Расположите компонент Timer1 на форме.

Установите его свойства Timer1.Interval := 100 и Timer1.Enabled := false


hello_html_mf64371f.jpg

В коде программы необходимо прописать три процедуры. Процедуру отрисовки объекта procedure TForm1.Cloud, процедуру, отрабатывающую на событие OnTimer, - procedure TForm1.Timer1Timer и процедуру запуска анимации, срабатывающую на нажатие кнопки, procedure TForm1.Button1Click.






procedure TForm1.Cloud(x, y: Integer; ColorCloud: TColor);

begin

// прорисовка облака из двух эллипсов

with PaintBox1.Canvas do begin

Pen.Style := psClear;

Brush.Color := ColorCloud;

Ellipse(x,y,x+80,y+40);

Ellipse(x+30,y+10,x+100,y+50);

end;

end;

 

 procedure TForm1.Button1Click(Sender: TObject);

begin

// установка начальных значений

x1:=0;

y1:=50;

Timer1.Interval:=100;

// прорисовка картинки по которой двигается объект

PaintBox1.Canvas.Brush.Color := clBlue;

PaintBox1.Canvas.Rectangle(0,0, PaintBox1.Width, PaintBox1.Height);

// Включение таймера - запуск анимации

Timer1.Enabled := true;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

beginhello_html_59512d97.jpg

// Закраска объекта цветом фона

Cloud(x1,y1,clBlue);

// Изменение координат прорисовки

x1:=x1+1;

// Прорисовка объекта в новом месте

Cloud(x1,y1,clWhite);

end;

 

end.




Практическая работа «Линейное движение объекта по однородному фону»

Расположите компонент Timer1 на форме.

Установите его свойства Timer1.Interval := 100 и Timer1.Enabled := false


hello_html_mf64371f.jpg

В коде программы необходимо прописать три процедуры. Процедуру отрисовки объекта procedure TForm1.Cloud, процедуру, отрабатывающую на событие OnTimer, - procedure TForm1.Timer1Timer и процедуру запуска анимации, срабатывающую на нажатие кнопки, procedure TForm1.Button1Click.






procedure TForm1.Cloud(x, y: Integer; ColorCloud: TColor);

begin

// прорисовка облака из двух эллипсов

with PaintBox1.Canvas do begin

Pen.Style := psClear;

Brush.Color := ColorCloud;

Ellipse(x,y,x+80,y+40);

Ellipse(x+30,y+10,x+100,y+50);

end;

end;

 

 procedure TForm1.Button1Click(Sender: TObject);

begin

// установка начальных значений

x1:=0;

y1:=50;

Timer1.Interval:=100;

// прорисовка картинки по которой двигается объект

PaintBox1.Canvas.Brush.Color := clBlue;

PaintBox1.Canvas.Rectangle(0,0, PaintBox1.Width, PaintBox1.Height);

// Включение таймера - запуск анимации

Timer1.Enabled := true;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);hello_html_59512d97.jpg

begin

// Закраска объекта цветом фона

Cloud(x1,y1,clBlue);

// Изменение координат прорисовки

x1:=x1+1;

// Прорисовка объекта в новом месте

Cloud(x1,y1,clWhite);

end;

 

end.






Только до конца зимы! Скидка 60% для педагогов на ДИПЛОМЫ от Столичного учебного центра!

Курсы профессиональной переподготовки и повышения квалификации от 1 400 руб.
Для выбора курса воспользуйтесь удобным поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВЫ).

Московские документы для аттестации: KURSY.ORG


Общая информация

Номер материала: ДБ-057012

Похожие материалы



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG