Организация интерфейса в windows. Нахождение корней уравнение методом касательных. Закраска области методом простого ЦДА с использованием XOR, страница 2

      {

        mem -= 1;

        cury += 1;

        DC->MoveTo(curx + 1, cury);

        DC->LineTo(maxX, cury);

       }

      else if (mem < 0)

      {

        DC->MoveTo(curx + 1, cury);

        DC->LineTo(maxX, cury);

        mem +=1;

        cury -= 1;

      }

      DC->Pen->Width = 2;

    }

  }

  else

  {

    for (i = 0; i < n; ++i)

    {

      DC->MoveTo(curx, cury);

      DC->LineTo(curx, cury);

      DC->Pen->Width = 1;

      if (dy > 0)

      {

        cury += dy;

        DC->MoveTo(curx + 1, cury);

        DC->LineTo(maxX, cury);

      }

      else

      {

        DC->MoveTo(curx + 1, cury);

        DC->LineTo(maxX, cury);

        cury += dy;

      }

      DC->Pen->Width = 2;

      mem += dx;

      if (mem >= 1)

      {

        mem -= 1;

        curx += 1;

      }

      else if (mem < 0)

      {

        mem +=1;

        curx -= 1;

      }

    }

  }

}

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Form1->Label6->Caption="Володин Р.Н. 5ВТ-1 КнАГТУ 2007";

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

   int a1,a2,a3;

   a1=StrToInt(Edit19->Text);

   a2=StrToInt(Edit20->Text);

   a3=StrToInt(Edit21->Text);

   DC->Pen->Color = RGB(a1, a2, a3);

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

    int d,d2,d3,d4,d5;

    d=StrToInt(Form1->Edit1->Text);d2=StrToInt(Form1->Edit4->Text); d3=StrToInt(Form1->Edit6->Text);

    d4=StrToInt(Form1->Edit8->Text);d5=StrToInt(Form1->Edit10->Text);

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

    int d6,d7,d8,d9,d10;

    d6=StrToInt(Form1->Edit2->Text);d7=StrToInt(Form1->Edit3->Text); d8=StrToInt(Form1->Edit5->Text);

    d9=StrToInt(Form1->Edit7->Text);d10=StrToInt(Form1->Edit9->Text);

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

    int polygon1[2][5] = {0.01*d*maxX, 0.01*d2* maxX, 0.01*d3* maxX, 0.01*d4* maxX, 0.01*d5* maxX,

                          0.01*d6*maxY,0.01*d7* maxY, 0.01*d8* maxY, 0.01*d9* maxY, 0.01*d10*maxY};

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

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

    int d11,d12,d13,d14;

    d11=StrToInt(Form1->Edit12->Text);d12=StrToInt(Form1->Edit14->Text); d13=StrToInt(Form1->Edit16->Text);

    d14=StrToInt(Form1->Edit18->Text);

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

    int d15,d16,d17,d18;

    d15=StrToInt(Form1->Edit11->Text);d16=StrToInt(Form1->Edit13->Text); d17=StrToInt(Form1->Edit15->Text);

    d18=StrToInt(Form1->Edit17->Text);

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

    int polygon2[2][4] = {0.01*d11 * maxX, 0.01*d12 * maxX, 0.01*d13* maxX, 0.01*d14* maxX,

                        0.01*d15* maxY, 0.01*d16* maxY, 0.01*d17 * maxY,0.01*d18* maxY};

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

    int i;

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

    pcda(polygon1[0][i], polygon1[1][i], polygon1[0][(i + 1) % 5],

    polygon1[1][(i + 1) % 5]);

    for (i = 0; i < 4; ++i)

    pcda(polygon2[0][i], polygon2[1][i], polygon2[0][(i + 1) % 4],

    polygon2[1][(i + 1) % 4]);

}

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

void __fastcall TForm1::ScrollBar1Change(TObject *Sender)

{

   int p1=Form1->ScrollBar1->Position;

   Edit19->Text=p1;

}

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

void __fastcall TForm1::ScrollBar2Change(TObject *Sender)

{

    int p2=Form1->ScrollBar2->Position;

   Edit20->Text=p2;

}

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

void __fastcall TForm1::ScrollBar3Change(TObject *Sender)

{

    int p3=Form1->ScrollBar3->Position;

   Edit21->Text=p3;

}

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

  if(Edit22->Text=="codename")

 {

  Button1->Enabled=true;

 }

 if(Edit22->Text!="codename")

 {

  Button1->Enabled=false;

 }

}

Результат:

ЛИТЕРАТУРА

1. Коутc Р., Влеминк И. Интерфейс «Человек-компьютер». - М.: Мир, 1991. - 501 с.

2.Климов А.С. Форматы графических файлов. - Киев: НИПФ «ДиаСофт ЛТД», 1995. - 480 с.

3.Романов В.Ю. Популярные форматы файлов для хранения графических изображений IBM PC. - М.: Унитех, 1992. - 156 с.

4.Шилдт Г. Программирование на С и С++ для Windows 95.- Киев: Торг.-изд. бюро BHV, 1996. - 400 с.