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

Olimpiyada bayrog’i

Olimpiyada bayrog’i dasturi (1.25-rasm) forma yuzasiga grafikni chiqarishni namoish etadi.



1.25-rasm. Olimpiyada bayrog’i dastur oynasi

//forma konstruktori

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

Canvas->Font->Name = "Tahoma";

Canvas->Font->Size = 12;

}

void __fastcall TForm1::FormPaint(TObject *Sender)

{

#define WB 140 // bayroq kengligi

#define HB 80 // bayroq balandligi

#define D 36 // halqa diamentri

int x,y;

AnsiString st = "Tezlik, balandlik, kuchlilik!";

//bayroqning chap yuqori burchagi koordinatlarini

//hisoblash

x = (ClientWidth - WB) / 2;

y = (ClientHeight - HB ) / 2 - Canvas->Font->Size;

// bayroq

Canvas->Brush->Color = (TColor) RGB(255,255,255);

Canvas->FillRect( Rect(x,y,x+WB,y+HB));

int x1 = (ClientWidth - Canvas->TextWidth(st)) / 2;

/* Matnni chiqarish soxasi fon rangi bilan buyalmagan, xamda Ellipse usuli aylanani emas, doirani chizadi, Brush->Style xususiyati qiymati bsClear ga teng bo’lishi kerak */

Canvas->Brush->Style = bsClear;

// shior

Canvas->TextOutW(x1,y+HB+6,st);

Canvas->Pen->Width = 2; //xalqa kengligi - ikki piksel

// birinchi qator halqalar

// 3.2 * D - birinchi qator halqalar egalagan soxa

// kengligi

x = x + (WB - 3.2 * D) / 2;

x=y+(HB-1.6*D)/2;

Canvas->Pen->Color = (TColor) RGB(0,0,225); // ko’k

Canvas->Ellipse(x,y,x+D,y+D);

x = x + 1.1* D;

Canvas->Pen->Color = clBlack; // qora

Canvas->Ellipse(x,y,x+D,y+D);

x = x + 1.1 * D;

Canvas->Pen->Color = (TColor) RGB(255,0,0); // qizil

Canvas->Ellipse(x,y,x+D,y+D);

// ikkinchi qator halqalar

x = x - D * 0.55;

y = y + 0.6 * D;

Canvas->Pen->Color = (TColor) RGB(0,128,0); // yashil

Canvas->Ellipse(x,y,x+D,y+D);

x = x - 1.1 * D;

Canvas->Pen->Color=(TColor) RGB(250,217,25); // sariq

Canvas->Ellipse(x,y,x+D,y+D);

}

// foydalanuvchi oyna o'lchamini o'zgartirdiкна

void __fastcall TForm1::FormResize(TObject *Sender)

{

Form1->Refresh();

}