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

if (x+dx+r>wp) dx=- dx;

}

else

// to’p chapga xarakatlanmoqda

if (x+dx-r<0) dx= -dx;

if (dy > 0)

{

// to’p pastga xarakatlanmoqda

if ((x>=rx1)&&(x <= rx2 -r) && (y == ry - r - 1))

// to’p raketkaga tegdi

dy = - dy;

else

if(y+dy+r>Form2->ClientHeight) dy = -dy;

}

else

{

// to’p yuqoriga xarakatlanmoqda

if ((x >= rx1) && (x<=rx2)&&(y >=ry-r)&&(y

{

// Мячик отскочил от нижней стенки и попал в

// ракетку снизу.

// Raketkada tuynuk bo’lmasligi uchun, uni qayta

// chizish kerak.

Form1->Canvas->Pen->Color = clRed;

Form1->Canvas->Rectangle(rx1, ry, rx2, ry+1);

}

if (y + dy - r < 0) dy = -dy;

}

x += dx;

y += dy;

// yangi nuqtada to’pni chizish

Form1->Canvas->Pen->Color = cBall;

Form1->Canvas->Ellipse(x,y,x+r,y+r);

// *** raketga ***

if ( rd != 0 )

{

// o’yinchi "o’ngga ko’rsatkich" yoki "chapga

// ko’rsatkich" tugmalaridan birini bosdi va ushlab

// turibdi. (FormKeyDown ga qarang)

if (rd == 1)

{

// o’ng

if (rx2

{

// chap qismni o’chirish

Form1->Canvas->Pen->Color = cBack;

Form1->Canvas->Rectangle(rx1,ry,rx1+rdx,ry+1);

// o’ng qismni chizishgacha

Form1->Canvas->Pen->Color = clRed;

Form1->Canvas->Rectangle(rx2,ry,rx2+rdx,ry+1) ;

rx1 += rdx;

rx2 += rdx;

}

}

else

// chap

if (rx1 > 1)

{ // o’ng qismni o’chirish

Form1->Canvas->Pen->Color = cBack;

Form1->Canvas->Rectangle(rx2,ry,rx2 - rdx, ry+1);

// chapgacha o’chirish

Form1->Canvas->Pen->Color = clRed;

Form1->Canvas->Rectangle(rx1-rdx,ry,rx1+rdx,

ry+1);

rx1 -= rdx;

rx2 -= rdx;

}

}

}

// tugma bosildi

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

{

if (rd != 0 )

// foydalanuvchi tugmani ushlab turibdi, raketga

// xarakatlanmoqda

return;

switch ( Key )

{

case VK_LEFT: // O’ngga qadam (ko’rsatkich)

rd = 2; break;

case VK_RIGHT: // Chapga qadam (ko’rsatkich)

rd = 1; break;

}

}

// tugma quyib yuborildi

void __fastcall TForm1::FormKeyPress(TObject *Sender,

System::WideChar &Key)

{

rd=0;

}
Bulutlarda uchish

Bulutlarda uchish dasturi (1.33-rasm) multiplikatsiya (fon rasmda ob’yektning harakatlanishi) tamoyilini namoish etadi.

d

1.33-rasm. Samolayotni bulutlarda uchishi

Fon va ob’yekt tasvirlari (1.34-rasm) fayllardan yuklanadi. Navbatdagi kadr xotirada shakllantiriladfi (yuzada ko’rinmaydigan bitli shakl), keyin esa ...

1.36-rasm. Fon rasmi va ob’yekt

Graphics::TBitmap *back; //fon rasm uchun

Graphics::TBitmap *sprite;//samalayot uchun

Graphics::TBitmap *kadr; //kadrga rasmni olish uchun