Программная реализация приоритетного контроллера, страница 2

Image1->Canvas->MoveTo(xold,YFold); Image1->Canvas->LineTo(xold,YF);

YFold=YF;

}

if (CD==1)Fcount++;

if (Fcount==50)Fcount++;

//------------------Для F------------------------------------------------------Image1->Canvas->Pen->Color=clFuchsia;

Image1->Canvas->MoveTo(xold,YF); Image1->Canvas->LineTo(x,YF);

//------------------Для D---------------------Image1->Canvas->MoveTo(xold,YD); Image1->Canvas->LineTo(x,YD);

//------------------Для C---------------------Image1->Canvas->MoveTo(xold,YC); Image1->Canvas->LineTo(x,YC);

//------------------Для А0---------------------Image1->Canvas->Pen->Color=ColorAAA;

Image1->Canvas->MoveTo(xold,YA0); Image1->Canvas->LineTo(x,YA0);

//------------------Для А1---------------------Image1->Canvas->MoveTo(xold,YA1); Image1->Canvas->LineTo(x,YA1);

//------------------Для А2---------------------Image1->Canvas->MoveTo(xold,YA2); Image1->Canvas->LineTo(x,YA2);

//------------------Для А3---------------------Image1->Canvas->MoveTo(xold,YA3); Image1->Canvas->LineTo(x,YA3);

//------------------Для А4---------------------Image1->Canvas->MoveTo(xold,YA4); Image1->Canvas->LineTo(x,YA4);

//------------------Для А5---------------------Image1->Canvas->MoveTo(xold,YA5); Image1->Canvas->LineTo(x,YA5);

//------------------Для А6---------------------Image1->Canvas->MoveTo(xold,YA6); Image1->Canvas->LineTo(x,YA6);

//------------------Для А7---------------------Image1->Canvas->MoveTo(xold,YA7); Image1->Canvas->LineTo(x,YA7);

//------------------Для E---------------------------Image1->Canvas->Pen->Color=clFuchsia;

Efinal();

Image1->Canvas->MoveTo(xold,YE); Image1->Canvas->LineTo(x,YE);

//---------------------------------------------xold=x;

x++;

}

//----------------------------void __fastcall TForm1::A0Click(TObject *Sender)   // A0 // 52   // 32

{  Image1->Canvas->Pen->Color=ColorAAA;

if(A0->Down==true) {YA0=32; E[0]=0;

if (YA0old==52)

Image1->Canvas->MoveTo(xold,YA0old); Image1->Canvas->LineTo(xold,YA0);

}

else {YA0=52;

if (YA0old==32)

Image1->Canvas->MoveTo(xold,YA0old); Image1->Canvas->LineTo(xold,YA0);

}

YA0old=YA0;

}

//---------------------------------void __fastcall TForm1::A1Click(TObject *Sender)   // A1  // 79   // 59

{  Image1->Canvas->Pen->Color=ColorAAA;

if(A1->Down==true) {YA1=59; E[1]=0;

if (YA1old==79)

Image1->Canvas->MoveTo(xold,YA1old); Image1->Canvas->LineTo(xold,YA1);

}

else {YA1=79;

if (YA1old==59)

Image1->Canvas->MoveTo(xold,YA1old); Image1->Canvas->LineTo(xold,YA1);

}

YA1old=YA1;

}

//----------------------------void __fastcall TForm1::A2Click(TObject *Sender)  // A2   // 106   // 86

{  Image1->Canvas->Pen->Color=ColorAAA;

if(A2->Down==true) {YA2=86; E[2]=0;

if (YA2old==106)

Image1->Canvas->MoveTo(xold,YA2old); Image1->Canvas->LineTo(xold,YA2);

}

else {YA2=106;

if (YA2old==86)

Image1->Canvas->MoveTo(xold,YA2old); Image1->Canvas->LineTo(xold,YA2);

}

YA2old=YA2;

}

//-------------------------------void __fastcall TForm1::A3Click(TObject *Sender)  // A3   // 133   // 113

{  Image1->Canvas->Pen->Color=ColorAAA;

if(A3->Down==true) {YA3=113; E[3]=0;

if (YA3old==133)

Image1->Canvas->MoveTo(xold,YA3old); Image1->Canvas->LineTo(xold,YA3);

}

else {YA3=133;

if (YA3old==113)

Image1->Canvas->MoveTo(xold,YA3old); Image1->Canvas->LineTo(xold,YA3);

}

YA3old=YA3;

}

//--------------------------------------------------------------------------void __fastcall TForm1::A4Click(TObject *Sender) // A4    // 160   // 140

{  Image1->Canvas->Pen->Color=ColorAAA;

if(A4->Down==true) {YA4=140; E[4]=0;

if (YA4old==160)

Image1->Canvas->MoveTo(xold,YA4old); Image1->Canvas->LineTo(xold,YA4);

}

else {YA4=160;

if (YA4old==140)

Image1->Canvas->MoveTo(xold,YA4old); Image1->Canvas->LineTo(xold,YA4);

}

YA4old=YA4;

}

//-------------------------------------------void __fastcall TForm1::A5Click(TObject *Sender)  // A5   // 187   // 167

{  Image1->Canvas->Pen->Color=ColorAAA;

if(A5->Down==true) {YA5=167; E[5]=0;

if (YA5old==187)

Image1->Canvas->MoveTo(xold,YA5old); Image1->Canvas->LineTo(xold,YA5);

}

else {YA5=187;

if (YA5old==167)

Image1->Canvas->MoveTo(xold,YA5old); Image1->Canvas->LineTo(xold,YA5);

}

YA5old=YA5;

}

//---------------------------------------void __fastcall TForm1::A6Click(TObject *Sender)  // A6   // 214   // 194

{  Image1->Canvas->Pen->Color=ColorAAA;

if(A6->Down==true) {YA6=194; E[6]=0;

if (YA6old==214)

Image1->Canvas->MoveTo(xold,YA6old); Image1->Canvas->LineTo(xold,YA6);

}

else {YA6=214;

if (YA6old==194)

Image1->Canvas->MoveTo(xold,YA6old); Image1->Canvas->LineTo(xold,YA6);

}

YA6old=YA6;

}

//---------------------------------------void __fastcall TForm1::A7Click(TObject *Sender)  // A7   // 241   // 221

{  Image1->Canvas->Pen->Color=ColorAAA;

if(A7->Down==true) {YA7=221;  E[7]=0;

if (YA7old==241)

Image1->Canvas->MoveTo(xold,YA7old); Image1->Canvas->LineTo(xold,YA7);

}

else {YA7=241;

if (YA7old==221)

Image1->Canvas->MoveTo(xold,YA7old); Image1->Canvas->LineTo(xold,YA7);

}

YA7old=YA7;

}

//--------------------------------------void __fastcall TForm1::SldChange(TObject *Sender)

{

if (Form1->Start->Down==true)

{

Timer1->Interval=Sld->Value;

Timer1Timer(Sender);

}

}

//------------------------------------------void __fastcall TForm1::CLRClick(TObject *Sender)

{

if(CLR->Down==true)

{CLR->Glyph->LoadFromFile("Black.BMP");

ColorAAA=clLime;

Obnov();

}

if(CLR->Down==false)

{CLR->Glyph->LoadFromFile("White.BMP");

ColorAAA=clBlue;

Obnov();

}

}

//-----------------------------------------Интерфейс программы представлен на рисунке 2.