Будь умным!


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

Unit1h -- prgm pckgesmrtinit prgm resource

Работа добавлена на сайт samzan.ru: 2016-06-20

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

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

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

от 25%

Подписываем

договор

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

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

Змн.

Арк.

№ докум.

Підпис

Дата

Арк.

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.  СТРУКТУРА СИЛОВОЙ ПОДГОТОВЛЕННОСТИ ЮНЫХ БОРЦОВ 1618 ЛЕТ 2
5. Константа Справочник
6. под землей для Северного Полушария конечно
7. Курсовая работа Основные аспекты уголовной ответственности за хулиганство
8. Рынок овощей в Российской Федерации
9. оперативных групп и бригад
10. 111974 35 лет На пенсии с 1989 года
11. Вексель и основы вексельного обращения в России
12. ВВЕДЕНИЕ Проблема интуиции имеет богатейшее философское наследие.html
13. Курсовая работа- Макроэкономические закономерности
14. Лекція Час - 2 год
15. Ейский педагогический колледж Краснодарского края ПОВЫШЕНИЕ УРОВНЯ ПРОФЕССИОНАЛЬНОЙ КОМПЕТ
16. 1. Балаларды~ ’ы~тарын Халы~аралы~ балаларды~ ’ы~тарын ~ор~ау ~ тарихи т~р~ыдан ал~анда салысты.html
17. Развитие творческих способностей у детей дошкольного возраста в различных видах детской деятельности в процессе конструирования из бумаги
18. Локализация фибринозного заболевания- Почка Легкое Печень Головной мозг Серозные оболочки Слиз
19. ТЕМАТИЧЕСКИХ СОСТАВЛЯЮЩИХ РЯДА
20. Шлюмбергера, Декабрист, Варварина коса