У вас вопросы?
У нас ответы:) SamZan.net

Unit1.h -- prgm pckgesmrtinit prgm resource

Работа добавлена на сайт samzan.net: 2015-12-27

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 3.2.2025

Змн.

Арк.

№ докум.

Підпис

Дата

Арк.

2

ЛР 6  5.05010301.532.28.28

Мета заняття: Навчитися працювати з компонентом PaintBox для створення

растрових малюнків. Вивчити можливості для малювання стандартних фігур.

Обладнання: персональний комп’ютер,C++Builder 6 .

Робоча форма :

Дерево об'єктів :

Лістинг програми:

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

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

void __fastcall TForm1::N4Click(TObject *Sender)

{

Close();

}

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

void __fastcall TForm1::N2Click(TObject *Sender)

{

int i,x,y;

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

   PaintBox1->Canvas->FillRect(Rect(0,0,PaintBox1->Width,Form1->PaintBox1->Height));

     for (i=1;i<20;i++)

   {

         PaintBox1->Canvas->Pen->Color = RGB(random(255),random(255),random(255));

         PaintBox1->Canvas->Pen->Width = random(3)+1;

         x = PaintBox1->Width/2;

         y = PaintBox1->Height/2;

         PaintBox1->Canvas->MoveTo(x,y);

         x = random(PaintBox1->Width);

         y = random(Form1->PaintBox1->Height);

         PaintBox1->Canvas->LineTo(x,y);

    } ;

}

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

void __fastcall TForm1::N5Click(TObject *Sender)

{int i,x,y,x2,y2;

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

   PaintBox1->Canvas->FillRect(Rect(0,0,PaintBox1->Width,Form1->PaintBox1->Height));

for(i=1;i<5;i++)

 {

   // колір та ширина кайми майбутнього прямокутнику

  PaintBox1->Canvas->Pen->Color = RGB(random(255),random(255),random(255)) ;

  PaintBox1->Canvas->Pen->Width = random(3)+1;

 // колір заливки середини прямокутнику

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

 // координаты кутів прямокутника, в який вписується  прямокутник

 x = random(300);

 y = random(100);

 x2= random(150);

 y2 = random(200);

 // вписуємо Прямокутник

 PaintBox1->Canvas->Rectangle (x,y,x2,y2);

}; }

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

void __fastcall TForm1::N3Click(TObject *Sender)

{int i,x,y,x2,y2,n,m;

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

   PaintBox1->Canvas->FillRect(Rect(0,0,PaintBox1->Width,Form1->PaintBox1->Height));

for(i=1;i<2;i++)

 {

   // колір та ширина кайми майбутнього прямокутнику

  PaintBox1->Canvas->Pen->Color = RGB(random(255),random(255),random(255)) ;

  PaintBox1->Canvas->Pen->Width = (5)+1;

 // колір заливки середини прямокутнику

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

 // координаты кутів прямокутника, в який вписується  прямокутник

 PaintBox1->Canvas->MoveTo(n,m);

 x = (300);

 y = (100);

 x2= (150);

 y2 = (200);

 PaintBox1->Canvas->MoveTo(n,m);

 n=(250);

 m=(250);

 // вписуємо Прямокутник

 PaintBox1->Canvas->Rectangle (x,y,x2,y2);

  PaintBox1->Canvas->LineTo(x,y);

 }; }

Робоче вікно:

 

 Лінії

Фігури

Малюнок

Висновок:на лабораторній роботі я навчився користуватись компонентом PaintBox та засвоїв роботу з графікою.

Змн.

Лист

№ докум.

Підпис

Дата

Арк.

1

ЛР 7  5.05010301.532.28.28

 Розроб.

Янковський А.В.

 Перевір.

Оцінка

Властивості та робота з компонентом

PaintBox.

Літ.

Аркушів

4

ДВНЗ «Чернівецький політехнічний коледж»




1. Хаффа Сирия ~ Где золото Ученый монах покачал головой- ~ Пленники отказываются говорить мессир
2. это процесс влияния на индивидуумов или групп лиц для достижения поставленных целей
3. Ярославская государственная сельскохозяйственная академия УТВ
4. церковнослужителей при архиерейском служении НА БОЖЕСТВЕННОЙ ЛИТУРГИИ Проскомидия
5. Совершенствование организации производства молока в СПК
6. Коння Бутенка АДРЕСА- Київська обл
7. Лабораторная работа 53
8. Как нам уже хорошо известно жизнь человека в современном обществе регулируется нормами морали и нормами
9. Скимия японская Уход фото
10. Пишем правильно