Структура файлового забезпечення прикладної навчальної програми С++ з автоматизацією ХТП синтезу сечовини з двоступінчатою дистиляці

int klap1=140, klap1_o;//??????

int klap2=25;

int kl2[50];

int T[50];//?????? ??????????

int temp=80,temp_o;//???????????

int pl=0;//??????? ???????? ????????

int P[50];//?????? ??????????

int davl=5,davl_o;//???????????

int pl1=0;//??????? ???????? ????????

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm8 *Form8;

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

__fastcall TForm8::TForm8(TComponent* Owner)

        : TForm(Owner)

{

}

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

int i=4;

int f=4;

void __fastcall TForm8::Timer1Timer(TObject *Sender)

{

int n=i%4 ;

switch(n)

{

case 0: Image2->Picture->LoadFromFile("demo/1111.bmp");break;

case 1: Image2->Picture->LoadFromFile("demo/2222.bmp"); break;

case 2: Image2->Picture->LoadFromFile("demo/3333.bmp");break;

case 3: Image2->Picture->LoadFromFile("demo/4444.bmp"); break; 

}  i++;

}

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

void __fastcall TForm8::Timer2Timer(TObject *Sender)

{

int n=f%4 ;

switch(n)

{

case 0: Image3->Picture->LoadFromFile("demo/111.bmp");break;

case 1: Image3->Picture->LoadFromFile("demo/222.bmp"); break;

case 2: Image3->Picture->LoadFromFile("demo/333.bmp");break;

case 3: Image3->Picture->LoadFromFile("demo/444.bmp"); break;

}  f++;

}

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

void __fastcall TForm8::Button1Click(TObject *Sender)

{

temp_o=80; 

klap1=140;

Timer12->Enabled=true;

Timer2->Interval=300;

Label2->Caption="80";

Label1->Caption="80";

Label8->Caption="60";

Timer4->Enabled=true;

Timer3->Enabled=false;

Timer6->Enabled=false;

Timer5->Enabled=false;       

}

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

void __fastcall TForm8::Button2Click(TObject *Sender)

{

temp_o=85; 

klap1=155;

Timer12->Enabled=true;

Timer2->Interval=200;

Label2->Caption="85";

Label8->Caption="60";

Timer5->Enabled=true;

Timer3->Enabled=false;

Timer4->Enabled=false;

Timer6->Enabled=false;       

}

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

void __fastcall TForm8::Button3Click(TObject *Sender)

{

temp_o=90; 

klap1=170;

Timer12->Enabled=true;

Timer2->Interval=100;

Label2->Caption="90";

Label8->Caption="70";

Timer6->Enabled=true;

Timer3->Enabled=false;

Timer4->Enabled=false;

Timer5->Enabled=false;

}

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

void __fastcall TForm8::Button4Click(TObject *Sender)

{

davl_o=5;

klap2=25;

Timer14->Enabled=true;

Timer1->Interval=400;

Label4->Caption="5";

Label3->Caption="5";

Label7->Caption="20";

Timer7->Enabled=true;

Timer10->Enabled=false;

Timer8->Enabled=false;

Timer9->Enabled=false;

}

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

void __fastcall TForm8::Button5Click(TObject *Sender)

{

davl_o=10;

klap2=50;

Timer14->Enabled=true;

Timer1->Interval=250;

Label4->Caption="10";

//Label3->Caption="";

Label7->Caption="20";

Timer8->Enabled=true;

Timer10->Enabled=false;

Timer7->Enabled=false;

Timer9->Enabled=false;       

}

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

void __fastcall TForm8::Button6Click(TObject *Sender)

{

davl_o=15;

klap2=75;

Timer14->Enabled=true;

Timer1->Interval=100;

Label4->Caption="15";

//Label3->Caption="";

Label7->Caption="40";

Timer9->Enabled=true;

Timer10->Enabled=false;

Timer8->Enabled=false;

Timer7->Enabled=false;       

}

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

void __fastcall TForm8::Timer3Timer(TObject *Sender)

{

/*

Series1->Clear();

for(int q=1; q<=20; q++)

Series1->AddXY(q,(cos((q+i)/2.5)-0.62*sin((q+i)*6.28))/3+85,"",clBlue);

*/

}

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

void __fastcall TForm8::Timer4Timer(TObject *Sender)

{

/*

Series1->Clear();

for(int q=1; q<=20; q++)

Series1->AddXY(q,(cos((q+i)/2.5)-0.62*sin((q+i)*6.28))/3+85,"",clBlue);

*/       

}

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

void __fastcall TForm8::Timer5Timer(TObject *Sender)

{

/*

Series1->Clear();

for(int q=1; q<=20; q++)

Series1->AddXY(q,2*(cos((q+i)/2.5)-0.62*sin((q+i)*6.28))/3+85,"",clBlue);

*/       

}

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

void __fastcall TForm8::Timer6Timer(TObject *Sender)

{

/*

Series1->Clear();

for(int q=1; q<=20; q++)

Series1->AddXY(q,3*(cos((q+i)/2.5)-0.62*sin((q+i)*6.28))/3+85,"",clBlue);

*/       

}

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

void __fastcall TForm8::Timer7Timer(TObject *Sender)

{

/*

Series2->Clear();

for(int q=1; q<=20; q++)

Series2->AddXY(q,(cos((q+i)*1.75)-0.62*sin((q+i)*6.28))+10,"",clRed);

i++; */       

}

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

void __fastcall TForm8::Timer8Timer(TObject *Sender)

{

/*

Series2->Clear();

for(int q=1; q<=20; q++)

Series2->AddXY(q,2*(cos((q+i)*1.75)-0.62*sin((q+i)*6.28))+10,"",clRed);

i++; */       

}

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

void __fastcall TForm8::Timer9Timer(TObject *Sender)

{

/*

Series2->Clear();

for(int q=1; q<=20; q++)

Series2->AddXY(q,3*(cos((q+i)*1.75)-0.62*sin((q+i)*6.28))+10,"",clRed);

i++; */       

}

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

void __fastcall TForm8::Timer10Timer(TObject *Sender)

{

/*

Series2->Clear();

for(int q=1; q<=20; q++)

Series2->AddXY(q,(cos((q+i)*1.75)-0.62*sin((q+i)*6.28))+10,"",clRed);

i++; */       

}

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

void __fastcall TForm8::Timer11Timer(TObject *Sender)

{

Randomize(); 

for (int i=0;i<50;i++) //?????

   T[i]=T[i+1];

T[49]=temp+random(2)-0.5;

  Label1->Caption=IntToStr(T[49]);

   kl1[49]=klap1-T[49];

  Label8->Caption=IntToStr(kl1[49]);

   Series1->Clear();

for (int i=49;i>0;i--)

  {if (T[i]!=0)

     Series1->AddXY(i,T[i],"",clRed);   

  }

}

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

void __fastcall TForm8::Timer12Timer(TObject *Sender)

{

if (temp<temp_o) 

{temp+=2;

} 

else

if (temp>temp_o) 

{temp-=2;

} 

else Timer12->Enabled=false;

}

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

void __fastcall TForm8::Timer13Timer(TObject *Sender)

{

Randomize(); 

for (int i=0;i<50;i++) //?????

   P[i]=P[i+1];

P[49]=davl+random(2)-1;

  Label3->Caption=IntToStr(P[49]);

  kl2[49]=klap2-P[49];

   Label7->Caption=IntToStr(kl2[49]);

   Series2->Clear();

for (int i=49;i>0;i--)

  {if (P[i]!=0)

     Series2->AddXY(i,P[i],"",clRed); 

  }

}

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

void __fastcall TForm8::Timer14Timer(TObject *Sender)

{

if (davl<davl_o)

{davl+=1;

} else

if (davl>davl_o)

{davl-=1;

} else Timer14->Enabled=false;

}

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

Файл Unit9.h

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

#ifndef Unit9H

#define Unit9H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

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

class TForm9 : public TForm

{

__published: // IDE-managed Components

        TImage *Image1;

private: // User declarations

public:  // User declarations

        __fastcall TForm9(TComponent* Owner);

};

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

extern PACKAGE TForm9 *Form9;

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