51346

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

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

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

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

Русский

2014-02-09

73.5 KB

82 чел.

Лабораторная работа 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;

 }

}

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

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


 

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

26557. ВСЭ ПРОДУКТОВ УБОЯ ПРИ ЛЕПТОСПИРОЗЕ И ЛИСТЕРИОЗЕ 8.32 KB
  Если имеются дегенеративные изменения мускулатуры или желтушное окрашивание не исчезающее в течение двух суток тушу и все внутренние органы направляют на техническую утилизацию. При отсутствии дегенеративных изменений в мускулатуре но при наличии в ней желтушного окрашивания исчезающего в течение двух суток тушу а также внутренние органы не имеющие патологических изменений выпускают после проварки. Кишечник и патологически измененные органы направляют на техническую утилизацию. Патологически измененные органы кровь и головы от...
26558. ВСЭ ТУШ И ОРГАНОВ ВЫНУЖДЕННО УБИТЫХ ЖИВОТНЫХ ПРИ ОТРАВЛЕНИИ ОРГАНИЧЕСКИМИ И МИНЕРАЛЬНЫМИ ЯДАМИ. ПРИЧИНА ОТРАВЛЕНИЙ И ПИЩЕВАЯ НЕПОЛНОЦЕННОСТЬ МЯСА ОТРАВИВШИХСЯ ЖИВОТНЫХ ДЛЯ ЧЕЛОВЕКА 21.73 KB
  ВСЭ ТУШ И ОРГАНОВ ВЫНУЖДЕННО УБИТЫХ ЖИВОТНЫХ ПРИ ОТРАВЛЕНИИ ОРГАНИЧЕСКИМИ И МИНЕРАЛЬНЫМИ ЯДАМИ. ПРИЧИНА ОТРАВЛЕНИЙ И ПИЩЕВАЯ НЕПОЛНОЦЕННОСТЬ МЯСА ОТРАВИВШИХСЯ ЖИВОТНЫХ ДЛЯ ЧЕЛОВЕКА. В практике встречаются случаи отравлений сельскохозяйственных животных минеральными удобрениями ядовитыми растениями хлоридом натрия и другими солями минеральными ядами мышьяк медь и др. Особо опасны при отравлениях животных фосфорорганические хлорорганические карбаматные ртутьсодержащие и другие пестициды ядохимикаты} которые используют в борьбе с...
26559. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ РОЖЕ СВЕНЕЙ 7.89 KB
  Мускулатура туши иногда гиперемирована и с кровоизлияниями. В случае обнаружения в мясе или внутренних органах этих бактерий туши обеззараживают проваркой а внутренние органы направляют на техническую утилизацию или уничтожают. Кроме того такие туши можно направлять на изготовление вареноконченых грудинок и кореек. В случаях убоя животных туши со всеми внутренними органами и шкурой уничтожают.
26560. ВСЭ И САНОЦЕНКА ТУШ И ОРГАНОВ ПРИ САРКОЦИСТОЗЕ, ЭХИНОКОККОЗЕ, ЦЕНУРОЗЕ, ДИКТИОКАУЛЕЗЕ. ЦЕНУРОЗ МОЗГА 19.36 KB
  При поедании собаками и волками голов животных инвазированных ценурами происходит их заражение ценурозом. Болезнь наблюдается у молодых животных не старше 2 лет и характеризуется бесцельными круговыми движениями в одну сторону. При убое животных в начале болезни отмечают следы миграции онкосфер на мягкой мозговой оболочке интенсивную гиперемию ее на отдельных участках со свежими кровоизлияниями. Остро и хронически протекающая болезнь травоядных животных крупный рогатый скот овцы лошади и др.
26561. ВСЭ ТУШ И ОРГАНОВ ПРИ СТОЛБНЯКЕ И ПСЕВДОТУБЕРКУЛЕЗЕ. ВСЭ ПРИ СТОЛБНЯКЕ 1.21 KB
  При установлении столбняка тушу с внутренними органами и шкурой уничтожают. При наличии истощения и множественных поражений лимфатических узлов или при обнаружении псевдотуберкулезных изменений в мышцах тушу и внутренние органы утилизируют. При отсутствии истощения и поражении только внутренних органов или лимфатических узлов внутренние органы направляют на утилизацию а тушу и другие продукты убоя выпускают без ограничений.
26562. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ТРИХИНЕЛЛЕЗЕ 3.52 KB
  ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ТРИХИНЕЛЛЕЗЕ. У свиней трихинеллез протекает без выраженных признаков. ВСЭ: все туши свиней начиная с 3недельного возраста исследуются на трихинеллез.
26563. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ТУБЕРКУЛЕЗЕ 3.85 KB
  Шкуры после посолки – без ограничений. Свиные при наличии пораже в нижнеч л у – зачищают голову – на проварку тушу – без ограничений. При очагах на брыжейке – кишк утилизируют туши и внут орг – без ограничений.
26564. ВСЭ ТУШ И ОРГАНОВ ПРИ ЭМФИЗЕМАТОЗНОМ КАРБУНКУЛЕ 8.51 KB
  Печень пятнистоглинистого цвета имеет очаги красноватожелтого цвета величиной до грецкого ореха иногда в ней содержатся газы. Почки дряблые с некротическими очагами темнокоричневого цвета или глинистые граница между корковым и мозговым слоями сглажена. Мышцы дряблые темнокрасного цвета местами сероватые мышечные волокна деструктированы миолиз при надавливании на них выжимается кровянистый липкий сок содержащий пузырьки газа неприятного прогорклого запаха. Ткани в области карбункула темнокрасного дегтеобразного цвета; рыхлая...
26565. ВСЭ И САНИТАРНАЯ ОЦЕНКА ТУШ И ОРГАНОВ ПРИ ЯЩУРЕ 25.74 KB
  К ящуру также восприимчивы северный олень и верблюд а из диких животных лось олень антилопа кабан косуля сайга бизон зубр. Человек заражается ящуром при употреблении в пищу необезвреженного молока от больных животных а также при доении больных животных или их переработке на мясо. У молодых животных при ящуре находят катар верхних дыхательных путей острый катар желудочнокишечного тракта. У отдельных видов животных эти изменения проявляются следующим образом.