Лістинги прикладної програми
Всі операції в програмі виконуються в головному модулі U_main, тому нижче приведені лістинги файлів даного модуля.
Файл Unit1.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TImage *Image1;
TImage *Image2;
TLabel *Label1;
TImage *Image3;
TImage *Image4;
TImage *Image5;
TImage *Image6;
TImage *Image7;
TImage *Image8;
TImage *Image9;
TImage *Image10;
TImage *Image11;
TImage *Image12;
TImage *Image13;
TImage *Image14;
TImage *Image15;
TImage *Image16;
TImage *Image17;
TImage *Image18;
TImage *Image19;
TImage *Image20;
TImage *Image21;
TImage *Image22;
TImage *Image101;
TImage *Image102;
TImage *Image103;
TImage *Image104;
TImage *Image201;
TImage *Image202;
TImage *Image203;
TImage *Image301;
TImage *Image302;
TImage *Image303;
TImage *Image304;
TImage *Image305;
TImage *Image306;
TImage *Image307;
TImage *Image308;
TImage *Image309;
void __fastcall N2Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N7Click(TObject *Sender);
void __fastcall N8Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
void __fastcall N16Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall Image2MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image3MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image4MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image5MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image6MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image7MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image8MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image9MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Image11MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image10MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image12MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image14MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image13MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall N17Click(TObject *Sender);
void __fastcall N18Click(TObject *Sender);
void __fastcall Image15MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image17MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image18MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image19MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image20MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image21MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
void __fastcall Image22MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Файл Unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
DoubleBuffered=true;
Image16->Picture->LoadFromFile("Pict/Title.bmp");
//Label2->Caption="Контрольна робота №3";
//Label3->Caption="з кредитного модуля";
//Label4->Caption="програмування мовою С";
//Label5->Caption="на тему";
//Label6->Caption="Розробка на основы компоненти MainMenu";
//Label7->Caption="Мнемосхема технологічного процесу";
//Label8->Caption="Контактне доочищення оливвідбілювальними глинами";
//Label9->Caption="Розробник програми С++ студент 2-го курсу Маховський Денис";
//Label10->Caption="ІХФ ЛА-91";
//Label11->Caption="Київ КПІ 2010";
//Form1->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// Технология. Главная страница
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N2Click(TObject *Sender)
{
Caption="Процес установки риформінгу з рухомим каталізатором";
//Image16->Visible=false;
//Label1->Visible=false;
//Label2->Visible=false;
//Label3->Visible=false;
//Label4->Visible=false;
//Label5->Visible=false;
//Label6->Visible=false;
//Label7->Visible=false;
//Label8->Visible=false;
//Label9->Visible=false;
//Label10->Visible=false;
//Label11->Visible=false;
//Image1->Picture->LoadFromFile("Pict/MemoPlan.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form2->Caption="Опис";
Form2->RichEdit1->Lines->LoadFromFile("Text/Info.txt");
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N17Click(TObject *Sender)
{
Form2->Caption="Продукція";
Form2->RichEdit1->Lines->LoadFromFile("Text/Produse.txt");
Form2->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// Апарат №1 холодильник
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N7Click(TObject *Sender)
{
Form3->Caption="Конструкція: холодильник";
Form3->Image1->Picture->LoadFromFile("Pict/Holodilnik.bmp");
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form2->Caption="Опис: холодильник";
Form2->RichEdit1->Lines->LoadFromFile("Text/1_Holodilnik.txt");
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N9Click(TObject *Sender)
{
Form4->Caption="Процеси: Апарат 1";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// Апарат №2 трубчата піч
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N10Click(TObject *Sender)
{
Form3->Caption="Конструкція: трубчата піч";
Form3->Image1->Picture->LoadFromFile("Pict/Tr.pech.bmp");
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
Form2->Caption="Опис: трубчата піч";
Form2->RichEdit1->Lines->LoadFromFile("Text/2_Tr.pech.txt");
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N13Click(TObject *Sender)
{
Form4->Caption="Процеси: трубчата піч";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// Апарат №3 стабілізаційна колона
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N14Click(TObject *Sender)
{
Form3->Caption="Конструкція: стабілізаційна колона";
Form3->Image1->Picture->LoadFromFile("Pict/Stab.kolona.bmp");
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N15Click(TObject *Sender)
{
Form2->Caption="Опис: стабілізаційна колона";
Form2->RichEdit1->Lines->LoadFromFile("Text/3_Stab.kolona.txt");
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N16Click(TObject *Sender)
{
Form4->Caption="Процеси: стабілізаційна колона";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// Литература
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
// О программе
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::N6Click(TObject *Sender)
{
Form5->Caption="Про програму";
Form5->RichEdit1->Lines->LoadFromFile("Text/About_1.txt");
Form5->RichEdit2->Lines->LoadFromFile("Text/About_2.txt");
//Form5->Image1->Picture->LoadFromFile("Pict/Ava.bmp");
Form5->ShowModal();
}
/////////////////////////////////////////////////////////////////////////////
// Передвижения мышью по схеме
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="насос";
Image1->Picture->LoadFromFile("Pict/MemoPlan_16.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption=" ";
Image1->Picture->LoadFromFile("Pict/MemoPlan.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="насос";
Image1->Picture->LoadFromFile("Pict/MemoPlan_11.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image4MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="насос";
Image1->Picture->LoadFromFile("Pict/MemoPlan_5.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image5MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="компресор";
Image1->Picture->LoadFromFile("Pict/MemoPlan_10.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image6MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="компресор";
Image1->Picture->LoadFromFile("Pict/MemoPlan_15.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image7MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="трубчата піч";
Image1->Picture->LoadFromFile("Pict/MemoPlan_17.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image8MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="секція регенерації";
Image1->Picture->LoadFromFile("Pict/MemoPlan_1.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image9MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Label1->Caption="реактор платформінгу";
Image1->Picture->LoadFromFile("Pict/MemoPlan_2-4.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image11MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="багатосекційна піч";
Image1->Picture->LoadFromFile("Pict/MemoPlan_7.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image10MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="теплообмінник";
Image1->Picture->LoadFromFile("Pict/MemoPlan_6.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image12MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="44";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image14MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="холодильник";
Image1->Picture->LoadFromFile("Pict/MemoPlan_8.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image13MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="газосепаратор низького і високого тиску"; \
Image1->Picture->LoadFromFile("Pict/MemoPlan_12.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image15MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="холодильник";
Image1->Picture->LoadFromFile("Pict/MemoPlan_13.bmp");
}
void __fastcall TForm1::N18Click(TObject *Sender)
{
Close();
}
void __fastcall TForm1::Image17MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="газосепаратор низького і високого тиску";
Image1->Picture->LoadFromFile("Pict/MemoPlan_9.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image18MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="насос";
Image1->Picture->LoadFromFile("Pict/MemoPlan_21.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image19MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="газосепаратор";
Image1->Picture->LoadFromFile("Pict/MemoPlan_20.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image20MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="апарат повітряного охолодження";
Image1->Picture->LoadFromFile("Pict/MemoPlan_19.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image21MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="стабілізаційна колона";
Image1->Picture->LoadFromFile("Pict/MemoPlan_18.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image22MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
Label1->Caption="теплообмінник";
Image1->Picture->LoadFromFile("Pict/MemoPlan_14.bmp");
}
//---------------------------------------------------------------------------
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////2///////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
int C_30=0; //кнопка "Технология" не нажата
int C_31=0; //кнопка "Апараты" не нажата
int C_32=0; //кнопка "Информация" не нажата
int C_34=0; //кнопка "Апараты"+"Апарат №1" не нажата
int C_35=0; //кнопка "Апараты"+"Апарат №2" не нажата
int C_36=0; //кнопка "Апараты"+"Апарат №3" не нажата
////////////////////////////////////////////////////////////////////////
////////// Нажимаем на кнопку "Технология" ////////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image101Click(TObject *Sender)
{
C_30=1; //нажали кнопку "Технология"
C_31=0;
C_32=0;
Image201->Visible=true;
Image202->Visible=true;
Image203->Visible=true;
Image201->Picture->LoadFromFile("Buttons/201-1.bmp");
Image202->Picture->LoadFromFile("Buttons/202-1.bmp");
Image203->Picture->LoadFromFile("Buttons/203-1.bmp");
Image301->Visible=false;
Image302->Visible=false; // 30-23 38-31
Image303->Visible=false; // 31-24 39-32
Image304->Visible=false; // 32-25 40-33
Image305->Visible=false; // 33-26 41-34
Image306->Visible=false; // 34-27 42-35
Image307->Visible=false; // 35-28 43-36
Image308->Visible=false; // 36-29 44-37
Image309->Visible=false; // 37-30 45-38
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// Нажимаем на кнопку "Апараты" ///////////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image102Click(TObject *Sender)
{
C_30=0;
C_31=1; //нажали кнопку "Апараты"
C_32=0;
Image201->Visible=true;
Image202->Visible=true;
Image203->Visible=true;
Image201->Picture->LoadFromFile("Buttons/201-2.bmp");
Image202->Picture->LoadFromFile("Buttons/202-2.bmp");
Image203->Picture->LoadFromFile("Buttons/203-3.bmp");
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// Нажимаем на кнопку "Информация" ////////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image103Click(TObject *Sender)
{
C_30=0;
C_31=0;
C_32=1; //нажали кнопку "Информация"
Image201->Visible=true;
Image202->Visible=true;
Image203->Visible=false;
Image201->Picture->LoadFromFile("Buttons/201-3.bmp");
Image202->Picture->LoadFromFile("Buttons/202-3.bmp");
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// Нажимаем на кнопку "Выйти" /////////////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image104Click(TObject *Sender)
{Close();}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// Нажимаем на кнопку всплывающая №1 //////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image201Click(TObject *Sender)
{
if(C_30==1) //если была нажата кнопка "технология" - есть кнопка "Схема"
{
Caption="Установка риформінгу з рухомим каталізатором";
Image1->Picture->LoadFromFile("Pict/MemoPlan.bmp");
Image16->Visible=false;
//Label2->Visible=false;
//Label3->Visible=false;
//Label4->Visible=false;
//Label5->Visible=false;
//Label6->Visible=false;
//Label7->Visible=false;
//Label8->Visible=false;
//Label9->Visible=false;
//Label10->Visible=false;
//Label11->Visible=false;
//Label12->Visible=false;
//Label13->Visible=false;
//Label14->Visible=false;
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
}
else{};
if(C_31==1) //если была нажата кнопка "Апараты" - есть кнопка "Апарат1"
{
C_34=1; //нажали на "Апарат №1"
C_35=0;
C_36=0;
Image301->Visible=true;
Image302->Visible=true;
Image303->Visible=true;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
Image301->Picture->LoadFromFile("Buttons/301.bmp");
Image302->Picture->LoadFromFile("Buttons/302.bmp");
Image303->Picture->LoadFromFile("Buttons/303.bmp");
}
if(C_32==1){
Form2->Caption="Список використаної літератури";
Form2->RichEdit1->Lines->LoadFromFile("Text/Literature.txt");
Form2->ShowModal();
}
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// Нажимаем на кнопку Всплывающая №2 //////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image28Click(TObject *Sender)
{
if(C_30==1){
Form2->Caption="Опис";
Form2->RichEdit1->Lines->LoadFromFile("Text/Info.txt");
Form2->ShowModal();
}
if(C_31==1){
C_34=0;
C_35=1; //нажали на "Апарат №2"
C_36=0;
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=true;
Image305->Visible=true;
Image306->Visible=true;
Image307->Visible=false;
Image308->Visible=false;
Image309->Visible=false;
Image304->Picture->LoadFromFile("Buttons/301.bmp");
Image305->Picture->LoadFromFile("Buttons/302.bmp");
Image306->Picture->LoadFromFile("Buttons/303.bmp");
}
if(C_32==1){
Form5->Caption="Про програму";
Form5->RichEdit1->Lines->LoadFromFile("Text/About_1.txt");
Form5->RichEdit2->Lines->LoadFromFile("Text/About_2.txt");
Form5->Image1->Picture->LoadFromFile("Pict/Ava.bmp");
Form5->ShowModal();
}
}
//---------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////
////////// Нажимаем на кнопку всплывающая №3 //////////////////////////
////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image203Click(TObject *Sender)
{
if(C_30==1){
Form2->Caption="Продукція";
Form2->RichEdit1->Lines->LoadFromFile("Text/Produse.txt");
Form2->ShowModal();
}
if(C_31==1){
C_34=0;
C_35=0;
C_36=1; //нажали на "Апарат №3"
Image301->Visible=false;
Image302->Visible=false;
Image303->Visible=false;
Image304->Visible=false;
Image305->Visible=false;
Image306->Visible=false;
Image307->Visible=true;
Image308->Visible=true;
Image309->Visible=true;
Image307->Picture->LoadFromFile("Buttons/301.bmp");
Image308->Picture->LoadFromFile("Buttons/302.bmp");
Image309->Picture->LoadFromFile("Buttons/303.bmp");
}
//if(C_32==1){
//Close();
//}
}
//---------------------------------------------------------------------------
/////////////////////////////////////////////////////////////////////////////
// Апарат №1 Холодильник
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image301Click(TObject *Sender)
{
if(C_34==1){
Form3->Caption="Конструкція: Холодильник";
Form3->Image1->Picture->LoadFromFile("Pict/Holodilnik.bmp");
Form3->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image302Click(TObject *Sender)
{
if(C_34==1){
Form2->Caption="Опис: Холодильник";
Form2->RichEdit1->Lines->LoadFromFile("Text/1_Holodilnik.txt");
Form2->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image303Click(TObject *Sender)
{
if(C_34==1){
Form4->Caption="Процеси: Холодильник";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
}
//---------------------------------------------------------------------------
/////////////////////////////////////////////////////////////////////////////
// Апарат №2 Трубчата піч
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image304Click(TObject *Sender)
{
if(C_35==1){
Form3->Caption="Конструкція: Трубчата піч";
Form3->Image1->Picture->LoadFromFile("Pict/Tr.pech.bmp");
Form3->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image305Click(TObject *Sender)
{
if(C_35==1){
Form2->Caption="Опис: Трубчата піч";
Form2->RichEdit1->Lines->LoadFromFile("Text/2_Tr.pech.rtf");
Form2->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image306Click(TObject *Sender)
{
if(C_35==1){
Form4->Caption="Процеси: Трубчата піч";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
}
//---------------------------------------------------------------------------
/////////////////////////////////////////////////////////////////////////////
// Апарат №3 Стабілізаційна колона
/////////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::Image307Click(TObject *Sender)
{
if(C_36==1){
Form3->Caption="Конструкція: Стабілізаційна колона";
Form3->Image1->Picture->LoadFromFile("Pict/Stab.kolona.bmp");
Form3->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image308Click(TObject *Sender)
{
if(C_36==1){
Form2->Caption="Опис: Стабілізаційна колона";
Form2->RichEdit1->Lines->LoadFromFile("Text/3_Stab.kolona.rtf");
Form2->ShowModal();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image309Click(TObject *Sender)
{
if(C_36==1){
Form4->Caption="Процеси: Стабілізаційна колона";
Form4->Image1->Picture->LoadFromFile("Pict/Diagramm.bmp");
Form4->ShowModal();
}
}
//---------------------------------------------------------------------------
Файл Unit5.h
//---------------------------------------------------------------------------
#ifndef Unit5H
#define Unit5H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <Series.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm5 : public TForm
{
__published: // IDE-managed Components
TChart *Chart1;
TChart *Chart2;
TFastLineSeries *Series2;
TFastLineSeries *Series1;
TChart *Chart3;
TFastLineSeries *Series3;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm5(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm5 *Form5;
//---------------------------------------------------------------------------
#endif
Файл Unit5.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::FormCreate(TObject *Sender)
{
for (int i=0; i<=25; i++)
{
Series1->Add(200+(sin(i)*(2.7*i))/(sin(2*i*i)+10),i,clRed);
Series2->Add(((2.7*i)/(sin(2*i*i)+10))*10, i,clRed);
Series3->Add(0.1,i,clRed);
}
}
//---------------------------------------------------------------------------
Файл Unit6.h
//---------------------------------------------------------------------------
#ifndef Unit6H
#define Unit6H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <Series.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm6 : public TForm
{
__published: // IDE-managed Components
TChart *Chart1;
TFastLineSeries *Series1;
TChart *Chart2;
TFastLineSeries *Series2;
TChart *Chart3;
TLineSeries *Series3;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm6(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm6 *Form6;
//---------------------------------------------------------------------------
#endif
Файл Unit6.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::FormCreate(TObject *Sender)
{
for (int i=0; i<=10; i++)
{
Series1->AddXY(i+sin(i),13*i*i,"",clRed);
Series2->AddXY(14*i+25*i*sin(i), cos(i)*i*i*i+15*i,"",clRed);
}
}
Файл Unit7.h
//---------------------------------------------------------------------------
#ifndef Unit7H
#define Unit7H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <Series.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm7 : public TForm
{
__published: // IDE-managed Components
TChart *Chart1;
TFastLineSeries *Series1;
TChart *Chart2;
TFastLineSeries *Series2;
TChart *Chart3;
TLineSeries *Series3;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm7(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm7 *Form7;
//---------------------------------------------------------------------------
#endif
Файл Unit7.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit7.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::FormCreate(TObject *Sender)
{
for (int i=0; i<=10; i++)
{
Series1->AddXY(i+tan(i),13*i*i,"",clRed);
Series2->AddXY(13*i+25*tan(i), exp(i)*i*i+15*i,"",clRed);
}
}
//---------------------------------------------------------------------------
Файл Unit8.h
//---------------------------------------------------------------------------
#ifndef Unit8H
#define Unit8H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm8 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TLabel *Label1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm8(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm8 *Form8;
//---------------------------------------------------------------------------
#endif
Файл Unit8.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit8.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button1Click(TObject *Sender)
{
Form1->Close();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
Література:
1. Бондаренко Б. И. Альбом технологических схем процессов переработки нефти и газа.
2. Пластичные смазки. Наукова думка.
3. Фукс И. Г. Пластичные смазки.
4. Вайншток В. В. Совершенствование процессов производства пластичных смазок.
5. Тышкевич Л. В. Химия и технология топлив и масел.
6. Архангельский А.Я. Програмирование в С++ builder 6. 2-е издание. Бином-Пресс, 2005
Рисунок заставки до прикладної програми С++
Рисунок основного графічного меню команд програми С++