Mirzayeva gulmira rustamovna

Visual Basic Power Packs komponentalari va ularni ishlatish

if(ovalpos <= (this->Size.Width - ovalShape1->Size.Width)) {

ovalpos += 5;

ovalShape1->Location = Point(ovalpos,ovalShape1->Location.Y); } }

Bunda ovalpos qiymati 0ga teng bo‘lgan butun son tipidagi o‘zgaruvchi. Location – bu ob’ektning joylashinini belgilaydi va juft qiymatga ega Point qiymatni qabul qiladi.

SHuningdek, Form1_Load hodisasida quyidagi algoritmni yozamiz.

ovalpos = 0;

timer1->Start();

Visual Basic Power Packs komponentalari va ularni ishlatish

Agar dasturni ishga tushirsangiz ovalShape1 ob’ektining harakatini ko‘rasiz.

SHakllarning FillColor, FillGradientColor, FillGradientStyle, FillStyle xususiyatlaridan foydalanib, turli xil tugmalarni ham yaratish mumkin.

Berilgan button tugmani bezash masalasini qaraymiz. Buning uchun formaga bitta tugma joylashtiramiz va uning xususiyatlarini quyidagicha aniqlaymiz.

using namespace System::Drawing::Drawing2D;

using namespace System::Drawing::Text;

// ...

this->button1->Location = System::Drawing::Point(115, 438);

this->button1->Name = L"button1";.

Visual Basic Power Packs komponentalari va ularni ishlatish

this->button1->Size = System::Drawing::Size(121, 49);

this->button1->TabIndex = 0;

this->button1->Text = L"button1";

this->button1->UseVisualStyleBackColor = true;

Tugmaning button1_Paint hodisasiga o‘tib, quyidagi algoritimni yozamiz.

Pen^ pen = gcnew Pen(Color::Blue,10);

Brush^ brush = gcnew SolidBrush(Color::FromKnownColor (KnownColor::Control));

SolidBrush ^ brushinside = gcnew SolidBrush(Color:: Aquamarine);

Graphics ^gr = e->Graphics;

gr->FillRectangle(brush, 0, 0, button1->Width,button1->Height);

Visual Basic Power Packs komponentalari va ularni ishlatish

gr->FillEllipse(brushinside, 0, 0, button1->Width, button1->Height);

gr->DrawEllipse(pen, 0, 0, button1->Width, button1->Height);

GraphicsPath^ path = gcnew GraphicsPath();

button1->Region = gcnew System::Drawing::Region(path);

String^ text = "Boshlash";

System::Drawing::Font^ drawfont = gcnew System::Drawing::Font("Arial", 14);

SolidBrush^ exbrush = gcnew SolidBrush(Color::Black);

RectangleF rect = RectangleF(button1->Width/2-40,button1->Height/2-10,button1->Width, button1->Height);

gr->DrawString(text, drawfont, exbrush,rect);

Visual Basic Power Packs komponentalari va ularni ishlatish

Bunda chizish uchun qalam - Pen , mo‘yqalam - Brush, to‘liq bo‘yash uchun mo‘yqalam - SolidBrush yaratib olamiz. Kerali shakllarni chizish ob’ektinini tugmaning o‘lchamiga moslab tayyorlaymiz. Tugmaning ustiga matn joylagtirish uchun yana bir ob’ekt yaratamiz, unga matn, matn rangi, formati va egallash sohasini ko‘rsatib, DrawString bilan tugmaning ustiga chizamiz.

Tugmani bezashga misol

XULOSA

Umuman olgada Visual S++ da grafika bilan ishlash uchun geometriyani yaxshi bilish talab qilinadi. Visual S++ da grafika sinfi, uning usullari va turli shakllarni chizish usullari, Chart va Shape sinflarining xususiyatlari va usullarini ko‘rib chiqdik. Bularni o‘ziga xos ma’lumotlarda ishlatishni tavsiya qilamiz.

MUHAMMAD AL-XORAZMIY NOMIDAGI TOSHKENT AXBOROT TEXNOLOGIYALARI UNIVERSITETI

MIRZYEVA GULMIRA RUSTAMOVNA

Informatika asoslari kafedrasi katta o’qituvchisi

E’TIBORINGIZ UCHUN RAXMAT!