R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

int x;

int y;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

// bmp-fayldan fon rasmini yuklash

back = new Graphics::TBitmap();

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

// fon rasm o’lchamiga mos formaning ishchi soxaning

//o’lchamini o’rnatish

ClientWidth = back->Width;

ClientHeight = back->Height;

// rasmni yuklash

sprite = new Graphics::TBitmap();

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

sprite->Transparent = true;

// kadrni shakllantirish

kadr = new Graphics::TBitmap();

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

// samolyotning boshlang’ich xolati

x=-40; // samolyot oynaning chap chegarasodan

// "uchishi" uchun

y=20;

Timer1->Interval = 10;

Timer1->Enabled = true;

}

// taymerdan signal

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

TRect badRect; // tiklanishi kerak bo’kgan fon

// soxasining xolati va o’lchami

TRect frameRect;

badRect = Rect(x,y,x+sprite->Width,y+sprite->Height);

frameRect = Rect(0,0, kadr->Width, kadr->Height);

#ifdef ONCANVAS

// *** forma yuzasiga rasmni shakllantirish ***

// samolyotni tozalash ("buzilgan" fonni tiklash)

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

// вычислим новые координаты спрайта

х +=2;

if (х > ClientWidth)

{

// samolyot formaning o’ng chegarasidan utib ketdi

// uchishning balandligini va tezligini o’zgartirish

х = -20;

у = random(ClientHeight - 30); // uchish balandligi

// скорость полета определяется периодом

// возникновения события OnTimer, который, в свою

// очередь, зависит от значения свойства Interval

Timer1->Interval = random(20) + 10; // "uchish"

// tezligi 10 dan 29 gacha

}

Canvas->Draw(х,у,sprite);

#else

// изображение формируем на рабочей поверхности,

// затем выводим на поверхность формы

// сформировать очередной кадр

// fon bo’lagidan nuxsa olish

kadr->Canvas->CopyRect(frameRect,back->Canvas,

badRect);

// ob’yektni chizish

kadr->Canvas->Draw(0,0,sprite);

// kadrni chiqarish

Form1->Canvas->Draw(x,y,kadr);

// spraytning yangi koordinatasini hisoblaymiz

x += 1;

if (x > ClientWidth)

{

// samalyot formaning o’ng chegarasidan uchib ketdi

// uchish balandligi va tezligini o’zgartirish

x = -20;

y = random(ClientHeight - 30); // высота полета

// скорость полета определяется периодом

// возникновения события OnTimer, который, в свою

// очередь, зависит от значения свойства Interval

Timer1->Interval = random(20) + 10; // "uchish"

// tezligi 10 dan 29 gacha

}