Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Конспекты / Монтаж видео, настройка звуковых эффектов, анимация и визуальные эффекты, вывод видео.
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

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

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

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.






Автор
Дата добавления 27.04.2016
Раздел Информатика
Подраздел Конспекты
Просмотров265
Номер материала ДБ-057012
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

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

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