51346

Анимация в C++ Builder

Лабораторная работа

Информатика, кибернетика и программирование

Цель работы: Написать программу, рисующую анимацию по заданному образцу. Общий вид программы следующий...

Русский

2014-02-09

73.5 KB

90 чел.

Лабораторная работа 1

Анимация в C++ Builder

Выполнил: Шуклецов М.А.

 ФРТ, гр. 2106

Цель работы: Написать программу, рисующую анимацию по заданному образцу.

Общий вид программы следующий:

Код программы:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

Graphics::TBitmap *back;

Graphics::TBitmap *plane;

Graphics::TBitmap *man;

Graphics::TBitmap *ground;

int x,y;

int x1,y1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

 back = new Graphics::TBitmap;   //Загрузка в память изображения

 back->LoadFromFile("sky.bmp");

 plane = new Graphics::TBitmap;

 plane->LoadFromFile("plane.bmp");

 plane->Transparent = true;   //Делает прозрачным белое поле вокруг изображения

 man = new Graphics::TBitmap;

 man->LoadFromFile("man.bmp");

 man->Transparent = true;

 ground = new Graphics::TBitmap;

 ground->LoadFromFile("ground.bmp");

 ground->Transparent = true;

 Image1->ClientHeight = back->Height;

 Image1->ClientWidth = back->Width;

 Form1->ClientWidth = back->Width;

 Form1->ClientHeight = back->Height;

 x = -60;

 y = 30;

 x1 = -60;

 y1 = 60;

 Timer1->Interval = 24;    //Задание интервала сброса таймера

 Timer1->Enabled = true;    //Включение таймера

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

 if ((!back->Empty) && (!plane->Empty ) ){  //Первоначальная прорисовка

 Canvas->Draw(0,0,back);        

 Canvas->Draw(x,y,plane);       

 Canvas->Draw(0,0,back);        

 Canvas->Draw(250,180,man);    

 }

 else {

   Canvas->TextOut(10, 10, "Ошибка загрузки битовых образов");

   }

TRect r;       //Определение переменной типа TRect

 r = Rect(x, y, x+plane->Width, y+plane->Height);  //Задание координат прямоугольника

 Canvas->CopyRect(r, back->Canvas, r);   //Перенос образ изображения на канву

 x = x+1;      //Изменение координаты

 Canvas->Draw(x, y, plane);    //Прорисовка самолета

 if ( x > Form1->Width + plane->Width + 10)  //проверка выхода за границы области

 {

       x = -60;

 }

    r = Rect(x1, y1, x1+plane->Width, y1+plane->Height);

 Canvas->CopyRect(r, back->Canvas, r);

 x1 = x1+ 2;

 Canvas->Draw(x1, y1, plane);

 if ( x1 > Form1->Width + plane->Width + 10)

 {

       x1 = -60;

 }

}

//---------------------------------------------------------------------------

Вывод: Мы научились получать подобие анимации.


 

А также другие работы, которые могут Вас заинтересовать

39579. Электрификация коровника на 200 голов с разработкой кормораздачи в ЗАО «Овощевод» 507.5 KB
  Автоматизация производства это применение автоматических и автоматизированных устройств и систем для полного или частичного освобождения человека от выполняемой им работы по управления и контролю при получении обработке передаче и использовании энергии материалов информации и др. Эти процессы тесно связаны с применением индустриальной технологии производства в сельском хозяйстве совершенствованием планирования и управления. пуск и остановка первичных двигателей регулировка напряжения в сети подача топлива защита от коротких замыканий...
39580. Расчет электрификации коровника на 200 голов с разработкой кормораздачи в ЗАО «Овощевод» 1.68 MB
  Сельскохозяйственная – одна из основных и жизненно важных отраслей народного хозяйства. В нашей стране на эту отрасль приходится около 4% стоимости основных фондов; в ней занято 7,2 млн. человек, что составляет 11% работающего населения. С/х дает 5,4% ВВП, производит продукты питания для населения и сырье для перерабатывающей промышленности.
39581. Связь политически активной студенческой молодёжи как формальность и неформальность с уровнем социальной зрелости 415 KB
  От уровня социальной зрелости зависит нравственнополитический климат и культура нынешнего и будущего общества. не гарантирует высокий уровень социальной зрелости. Эти приписываемые социальнопсихологические признаки по праву можно считать признаками социальной зрелости. Экспериментальные исследования в области социальной зрелости как правило сводятся к изучению школьников и выпускников школ.
39582. Проект электрификации телятника на 25 голов с разработкой навозоудаления в ЗАО «Красный холм» РМО 578.63 KB
  В последнее время принят ряд указов, законов, нормативных актов, которые создают благоприятные условия для развития всех форм хозяйствования на селе в условиях рыночных отношений. Реализация этих решений по выходу с/х из кризиса основана на введении новых форм организации производства
39583. Организация водоохладительной установки АВ-30 1.38 MB
  Повышение производительности труда в сельском хозяйстве а следовательно и эффективности производства возможно лишь при условии максимальной механизации и автоматизации при неуклонном сокращении доли ручного труда. Сокращение доли тяжёлого и малоквалифицированного физического труда непременное условие экономического роста. Рост технической и энергетической вооруженности сельскохозяйственного труда развитие научных исследований с использованием современной научной аппаратуры достижений полупроводниковой микроэлектроники и...
39584. Политическая социализация личности 273.14 KB
  Личность —одновременно и субъект и объект политики. Но одни люди в большей степени проявляют политическую активность, другие — в меньшей, а третьи вообще стараются «убежать» от политики. Одни стремятся к утверждению существующего политического строя и проявляют конструктивное политическое поведение, другие, напротив, предпринимают меры, направленные на его ниспровержение и демонстрируют деструктивную позицию.
39585. Социальная зрелость личности 79 KB
  Ницше Проблематикой социальной зрелости личности занимаются различные науки. И потому ее роль в исследовании социализации личности очень велика: вклад криминологии в данную проблематику состоит в том что эта наука создает модель социально НЕзрелой личности прогнозирует возможные ошибки воспитания и их последствия. Многие науки не обходят стороной социальную зрелость личности а для такой относительно новой области человекознания как акмеология от греч.
39586. Модернизация систем автоматизации контроля электрических машин 1.96 MB
  Программное обеспечение системы адаптировано для целей обучения основам спектрального анализа и ознакомления с обучающимися алгоритмами искусственного интеллекта. Программа проста в освоении и не требует специальных навыков.
39587. Барабаны ленточных конвейеров 16.6 KB
  Тяговые свойства приводного барабана повышают путем увеличения натяжения ленты или угла обхвата лентой приводного барабана использования высокофрикционных футеровок с продольными или шевронными ребрами что способствует самоочищению.Футеровки устанавливаются при помощи специальных клеев на барабаны конвейеров футеровочные пластины значительно уменьшают сход ленты и ее проскальзывание а также попадание груза на поверхность барабана что существенно улучшает работу конвейеров и повышает их техникоэкономические показатели.Рифленая...