Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
АВТОТРАКТОРНЫЙ ФАКУЛЬТЕТ
КАФЕДРА: ТРАКТОРЫ
Отчёт о лабораторной работе № по информатике
По теме: «Создание анимации»
Выполнил: студент группы №101091-12
Стреж Евгений Александрович
Принял: доцент кафедры тракторы
Коваль Виталий Александрович
Минск-2013
Цель работы: Научиться создавать анимацию.
Ход работы: Создать интерфейс приложения при помощи компонентов Image, Timer. В Image1 добавим изображение фона анимации, сделав его размер 640х480. В Image2 добавим изображение первой машины, сделав её размер 112х40. В Image3 добавим изображение второй машины, сделав её размер 112х40. Внешний вид приложения представлен на рисунке 1.
Рисунок 1 – Внешний вид приложения.
После двойного нажатия на Timer пишем следующий код:
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
const
scr_width = 640; // ширина формы
scr_height = 480; // высота формы
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
Image2: TImage;
Image3: TImage;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x,y,x1:integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+2;//текущая координата + шаг для автомобиля 1
x1:=x1-2; // текущая координата + шаг для автомобиля 2
if x>scr_width+image2.Width then x:=-image2.Width;// ограничение справа
if x1<image3.Width then x1:=scr_width;// ограничение слева
//рисуем
image2.Left:=x;
image3.Left:=x1;
end;
end.
Вывод: Выполнив эту лабораторную работу мы научились создавать анимацию при помощи компонентов Image и Timer.