Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Змн.
Арк.
№ докум.
Підпис
Дата
Арк.
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
ДВНЗ «Чернівецький політехнічний коледж»