Написание программы визуального отображения состояния кабины каждого лифта в девятиэтажном жилом доме, страница 3

                        stage1 = 8;

                if(Panel1->Top >= nullet-delta*7)       //лифт на 7 этаже

                        stage1 = 7;

                if(Panel1->Top >= nullet-delta*6)      //лифт на 6 этаже

                        stage1 = 6;

                if(Panel1->Top >= nullet-delta*5)      //лифт на 5 этаже

                        stage1 = 5;

                if(Panel1->Top >= nullet-delta*4)      //лифт на 4 этаже

                        stage1 = 4;

                if(Panel1->Top >= nullet-delta*3)      //лифт на 3 этаже

                        stage1 = 3;

                if(Panel1->Top >= nullet-delta*2)      //лифт на 2 этаже

                        stage1 = 2;

                if(Panel1->Top >= nullet-delta)      //лифт на 1 этаже

                        stage1 = 1;

          }

          if(napr1 == -1)

          {

                Panel1->Top += 5; //едем вниз

                if(Panel1->Top >= nullet-delta*8)      //лифт на 9 этаже

                        stage1 = 9;

                if(Panel1->Top >= nullet-delta*7)       //лифт на 8 этаже

                        stage1 = 8;

                if(Panel1->Top >= nullet-delta*6)       //лифт на 7 этаже

                        stage1 = 7;

                if(Panel1->Top >= nullet-delta*5)      //лифт на 6 этаже

                        stage1 = 6;

                if(Panel1->Top >= nullet-delta*4)      //лифт на 5 этаже

                        stage1 = 5;

                if(Panel1->Top >= nullet-delta*3)      //лифт на 4 этаже

                        stage1 = 4;

                if(Panel1->Top >= nullet-delta*2)      //лифт на 3 этаже

                        stage1 = 3;

                if(Panel1->Top >= nullet-delta)      //лифт на 2 этаже

                        stage1 = 2;

                if(Panel1->Top >= nullet)      //лифт на 1 этаже

                        stage1 = 1;

         }

   }

   LeaveCriticalSection(&sect);

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

    EnterCriticalSection(&sect);

     //определяем куда лифту ехать - вниз или вверх

     if(stage1 == Edit1->Text.ToInt())  napr1 = 0;

     if(stage1 < Edit1->Text.ToInt())  napr1 = 1;

     if(stage1 > Edit1->Text.ToInt())  napr1 = -1;

     Timer5->Enabled = true;

     Timer1->Enabled = true;

    LeaveCriticalSection(&sect);

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

     Close();

}

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

void __fastcall TForm1::Timer5Timer(TObject *Sender)

{

   if(!open1)

   {

    if(tick1 >= 4)

    {

        Timer5->Enabled = false;

    }

    Panel6->Width += 5;

    Panel5->Left -= 5;

    Panel5->Width += 5;

    tick1++;

   }

   else

   {

    Panel6->Width -= 5;

    Panel5->Left += 5;

    Panel5->Width -= 5;

    tick1++;

     if(tick1 >= 4)

     {

        open1= false;

        tick1 = 0;

         Panel6->Left = 0;

        Panel6->Width = 9;

        Panel5->Left = 56;

        Panel5->Width = 9;

        napr1 = 0;

        Timer5->Enabled = false;

     }

   }

}

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

void __fastcall TForm1::Timer6Timer(TObject *Sender)

{

   if(!open2)

   {

    if(tick2 >= 4)

    {

        Timer6->Enabled = false;

    }

    Panel21->Width += 5;

    Panel22->Left -= 5;

    Panel22->Width += 5;

    tick2++;

   }

   else

   {

    Panel21->Width -= 5;

    Panel22->Left += 5;

    Panel22->Width -= 5;

    tick2++;

     if(tick2 >= 4)

     {

        open2= false;

        tick2 = 0;

         Panel21->Left = 0;

        Panel21->Width = 9;

        Panel22->Left = 56;

        Panel22->Width = 9;

         napr2 = 0;

        Timer6->Enabled = false;

     }

   }

}

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

void __fastcall TForm1::Timer7Timer(TObject *Sender)

{

   if(!open3)

   {

    if(tick3 >= 4)

    {

          Timer7->Enabled = false;

    }

    Panel23->Width += 5;

    Panel24->Left -= 5;

    Panel24->Width += 5;

    tick3++;

   }

   else

   {

    Panel23->Width -= 5;

    Panel24->Left += 5;

    Panel24->Width -= 5;

    tick3++;

     if(tick3 >= 4)

     {

        open3= false;

        tick3 = 0;

         Panel23->Left = 0;

        Panel23->Width = 9;

        Panel24->Left = 56;

        Panel24->Width = 9;

        napr3 = 0;

        Timer7->Enabled = false;

     }

   }

}

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

void __fastcall TForm1::Timer8Timer(TObject *Sender)

{

   if(!open4)

   {

    if(tick4 >= 4)

    {

        Timer8->Enabled = false;

    }

    Panel25->Width += 5;

    Panel26->Left -= 5;

    Panel26->Width += 5;

    tick4++;

   }

   else

   {

    Panel25->Width -= 5;

    Panel26->Left += 5;

    Panel26->Width -= 5;

    tick4++;

     if(tick4 >= 4)

     {

        open4= false;

        tick4 = 0;

         Panel25->Left = 0;

        Panel25->Width = 9;

        Panel26->Left = 56;