48490 (Работа со списками), страница 3

2016-07-30СтудИзба

Описание файла

Документ из архива "Работа со списками", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48490"

Текст 3 страницы из документа "48490"

p->next->next=NULL;

p->inf=value;

p->name=name;

p=p->next;

}//end function

int count(){

int i=0;

p=top;

while (p->next!=NULL){

i++;

p=p->next;

}//end while

return(i);

}//end queue count

};//end queue class

//==========================================

//4. CLASS LINE

//==========================================

class Tline {

public:

point p1,p2;

TColor color;

bool secondary;

Tline(){color=0;secondary=0;}

~Tline(){}

void setline(point p1,point p2,long int col,bool sec);

point cut(float k);

};//end line class

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

point Tline::cut(float k){

point p;

p.x=p1.x+k*(p2.x-p1.x);

p.y=p1.y+k*(p2.y-p1.y);

return(p);

}//end function

void Tline::setline(point Point1,point Point2,long int col,bool sec){

p1.x=Point1.x;p1.y=Point1.y;

p2.x=Point2.x;p2.y=Point2.y;

color=col;secondary=sec;

}//end function

//==========================================

//5. CLASS Bezie Curve

//==========================================

class BCurve {

protected:

bool show_secondary;

public:

TColor color;

AnsiString Name;

TColor scol;

float k;

Tline l1,l2;

BCurve(){}

queue Create(float,Tline,Tline,TColor,TColor,bool,AnsiString);

queue Load();

};//end BCurve Class

queue BCurve::Create(float koef,Tline line1,Tline line2,TColor col, TColor colsec, bool sec, AnsiString NameOfCurve)

{

queue L;

point p1,p2;

Tline l;

k=koef; l1=line1,l2=line2;color=col;show_secondary=sec;scol=colsec;

l1.secondary=true;l2.secondary=true;l1.color=colsec;l2.color=colsec;Name=NameOfCurve;

if (show_secondary) {L.add(l1,Name);L.add(l2,Name);}

while (!(l.p1.x==l.p2.x && l.p1.y==l.p2.y)){

p1=l1.cut(k);p2=l2.cut(k);

l.setline(p1,p2,colsec,1);

if (show_secondary) L.add(l,Name);

l2.p1=p2;p2=l.cut(k);p1=l1.p1;

l.setline(p1,p2,color,0);L.add(l,Name);

l1.p1=p2;l1.p2=l2.p1;

}//end while

return (L);

}//end function

queue BCurve::Load(){

return(this->Create(k,l1,l2,color,scol,show_secondary,Name));

}//end function

class TRectangle {

public:

queue Create(int x1,int y1,int x2,int y2,TColor col);

};//end rectangle class

queue TRectangle::Create(int x1,int y1,int x2,int y2,TColor col){

queue Lines;

Tline l1;

l1.p1.x=x1;l1.p1.y=y1;l1.p2.x=x2;l1.p2.y=y1;l1.color=col;l1.secondary=false;

Lines.add(l1,"Rectangle");

l1.p1.x=x2;l1.p1.y=y1;l1.p2.x=x2;l1.p2.y=y2;l1.color=col;l1.secondary=false;

Lines.add(l1,"Rectangle");

l1.p1.x=x2;l1.p1.y=y2;l1.p2.x=x1;l1.p2.y=y2;l1.color=col;l1.secondary=false;

Lines.add(l1,"Rectangle");

l1.p1.x=x1;l1.p1.y=y2;l1.p2.x=x1;l1.p2.y=y1;l1.color=col;l1.secondary=false;

Lines.add(l1,"Rectangle");

return (Lines);

}//end function

//=========

//Переменные

queue LineBufer;

int n=0;

Tline l1,l2;

queue Objects;

//=========

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

__fastcall TfrmMain::TfrmMain(TComponent* Owner)

: TForm(Owner)

{

}

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

void LoadLines(bool sec){

Tline l1;

int checkedItem=frmMain->ListBox1->ItemIndex;

frmMain->ListBox1->Clear();

frmMain->lstObjects->Clear();

for (int i=1;i<=LineBufer.count();i++){

l1=LineBufer.getvalue(i);

frmMain->lblPicture->Canvas->Pen->Color=l1.color;

if ((sec && l1.secondary)||!l1.secondary){

if (l1.secondary) frmMain->lblPicture->Canvas->Pen->Style=2; else frmMain->lblPicture->Canvas->Pen->Style=0;

frmMain->lblPicture->Canvas->MoveTo(l1.p1.x,l1.p1.y);

frmMain->lblPicture->Canvas->LineTo(l1.p2.x,l1.p2.y);

}//end if

frmMain->ListBox1->Items->Add(IntToStr(l1.p1.x)+";"+IntToStr(l1.p1.y)+" - "+IntToStr(l1.p2.x)+";"+IntToStr(l1.p2.y));

}//next i

frmMain->ListBox1->ItemIndex=checkedItem;

for (int i=1;i<=Objects.count();i++){

if (Objects.getvalue(i)==1)frmMain->lstObjects->Items->Add("Line (1 lines)"); else

if (Objects.getvalue(i)==4)frmMain->lstObjects->Items->Add("Rectangle (4 lines)"); else

frmMain->lstObjects->Items->Add("Bezie Curve ("+IntToStr(Objects.getvalue(i))+" lines)");

}//next i

}//end function

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

void __fastcall TfrmMain::lblPictureMouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

if (cboObject->Text=="Кривая Безье"){

n++;

if (n==1) {l1.p1.x=X;l1.p1.y=Y;}

if (n==2) {l1.p2.x=X;l1.p2.y=Y;l2.p1.x=X;l2.p1.y=Y;}

if (n==3) {

BCurve CurveBufer;

queue Lines;

int firstNumber=0;

l2.p2.x=X;l2.p2.y=Y;

Lines=CurveBufer.Create(0.25,l1,l2,clbColor->Selected,clbSecond->Selected,1,"Bezie");

n=0;

firstNumber=LineBufer.count();

for (int i=0;i<=Lines.count();i++) LineBufer.add(Lines.getvalue(i),"Bezie");

LoadLines(chkSecondary->Checked);

firstNumber=LineBufer.count()-firstNumber;

Objects.add(firstNumber,"Bezie");

lstObjects->Items->Add("Bezie Curve ("+IntToStr(firstNumber)+" lines)");

}//end if n==3

}//end if Curve

if (cboObject->Text=="Линия"){

n++;

frmMain->Canvas->Pen->Color=clbColor->Selected;

if (n==1) {l1.p1.x=X;l1.p1.y=Y;}

if (n==2) {

l1.p2.x=X;l1.p2.y=Y;

LineBufer.add(l1,"");

Objects.add(1,"Line");

LoadLines(chkSecondary->Checked);

n=0;

}//end if n==2

}//End if Line

if (cboObject->Text=="Прямоугольник"){

n++;

queue Lines;

TRectangle Rect;

if (n==1) {l1.p1.x=X;l1.p1.y=Y;}

if (n==2) {

l1.p2.x=X;l1.p2.y=Y;

Lines=Rect.Create(l1.p1.x,l1.p1.y,l1.p2.x,l1.p2.y,clbColor->Selected);

for (int i=0;i<=Lines.count();i++) LineBufer.add(Lines.getvalue(i),"");

Objects.add(4,"Rectangle");

LoadLines(chkSecondary->Checked);

n=0;

}//end if n==2;

}//end if rectangle;

}

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

void __fastcall TfrmMain::chkSecondaryClick(TObject *Sender)

{

frmMain->lblPicture->Refresh();

LoadLines(chkSecondary->Checked);

}

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

void __fastcall TfrmMain::clbColorChange(TObject *Sender)

{

Tline l1;

int begin=0;

for (int i=0;iItemIndex;i++)begin+=Objects.getvalue(i);

for (int i=begin;iItemIndex+1);i++){

l1=LineBufer.getvalue(i);

if (!l1.secondary){

l1.color=clbColor->Selected;

LineBufer.change(i,l1);

}//end if

}//next i

LoadLines(chkSecondary->Checked);

}

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

void __fastcall TfrmMain::clbSecondChange(TObject *Sender)

{

Tline l1;

int begin=0;

for (int i=0;iItemIndex;i++)begin+=Objects.getvalue(i);

for (int i=begin;iItemIndex+1);i++){

l1=LineBufer.getvalue(i);

if (l1.secondary){

l1.color=clbSecond->Selected;

LineBufer.change(i,l1);

}//end if

}//next i

LoadLines(chkSecondary->Checked);

}

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

int WhichObject (int number) {

int object=0;

int i=0;

while (i

if (object==0) object=1;

return (object);

}//end function

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

void __fastcall TfrmMain::ListBox1Click(TObject *Sender)

{

Tline l1;

l1=LineBufer.getvalue(ListBox1->ItemIndex+1);

frmMain->lblPicture->Refresh();

LoadLines(chkSecondary->Checked);

for (int i=2;i>0;i--){

frmMain->lblPicture->Canvas->Pen->Color=clbSelect->Selected;

frmMain->lblPicture->Canvas->Ellipse(l1.p1.x-i,l1.p1.y-i,l1.p1.x+i,l1.p1.y+i);

frmMain->lblPicture->Canvas->Ellipse(l1.p2.x-i,l1.p2.y-i,l1.p2.x+i,l1.p2.y+i);

frmMain->lblPicture->Canvas->MoveTo(l1.p1.x,l1.p1.y);

frmMain->lblPicture->Canvas->LineTo(l1.p2.x,l1.p2.y);

}//next

}

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

void __fastcall TfrmMain::ListBox1KeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{

if (Key==46){

int object=WhichObject(ListBox1->ItemIndex+1);

frmMain->lblPicture->Refresh();

int z=ListBox1->ItemIndex;

LineBufer.remove(ListBox1->ItemIndex+1);ListBox1->Items->Delete(ListBox1->ItemIndex);

ListBox1->ItemIndex=z;

Objects.change(object,Objects.getvalue(object)-1);

if (Objects.getvalue(object)==0) {Objects.remove(object);lstObjects->Items->Delete(object-1);}

LoadLines(chkSecondary->Checked);

}//end if

}

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

void __fastcall TfrmMain::lstObjectsClick(TObject *Sender)

{

int begin=0;

for (int i=0;iItemIndex;i++)begin+=Objects.getvalue(i);

ListBox1->ItemIndex=begin;

}

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

void __fastcall TfrmMain::lblPictureMouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)

{

lblCoords->Caption=IntToStr(X)+"; "+IntToStr(Y);

}

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

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4125
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее