Автор: Пользователь скрыл имя, 21 Декабря 2011 в 07:43, курсовая работа
При натисканні кнопки "Технологія" відкривається підменю з трьома командами "Мнемосхема", "Опис схеми", "Продукція". При натисканні "Мнемосхема" в основне вікно програми загружається рисунок мнемосхеми синтезу метилового спирту з окису водню та вуглицю, при наведенні курсора мишки на апарати які зображені на ній виводиться їхня назва. При натисканні на кнопку "Опис схеми" відкривається вікно в якому виводиться текст опису схеми, в це ж вікно і виводиться опис продукції при натисканні "Продукція". Закриття якого виконується натисканням кнопки "закрыть".
Form4->ShowModal();
}
//----------------------------
void __fastcall TForm1::N13Click(TObject *Sender)
{
Form5->Caption=" Колона синтезу ";
Form5->ShowModal();
}
//----------------------------
void __fastcall TForm1::N17Click(TObject *Sender)
{
Form6->Caption=" Вакуум-випарний апарат ";
Form6->ShowModal();
}
//----------------------------
void __fastcall TForm1::N19Click(TObject *Sender)
{
Form2->RichEdit1->Lines->
Form2->Caption="Література";
Form2->ShowModal();
}
//----------------------------
void __fastcall TForm1::N20Click(TObject *Sender)
{
AboutBox->ShowModal();
}
//----------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form2->RichEdit1->Lines->
Form2->Caption="Сечовина";
Form2->ShowModal();
}
//----------------------------
void __fastcall TForm1::N21Click(TObject *Sender)
{
Form1->Close();
Close();
}
//----------------------------
void __fastcall TForm1::N23Click(TObject *Sender)
{
Form9->Image1->Picture->
Form9->Caption="Схема автоматизації технологічного процесу";
Form9->ShowModal();
}
//----------------------------
void __fastcall TForm1::N27Click(TObject *Sender)
{
Form8->ShowModal();
}
//----------------------------
void __fastcall TForm1::N26Click(TObject *Sender)
{
Form10->RichEdit1->Lines->
Form10->Image1->Picture->
Form10->Caption="Схема і опис контуру вакуум-випарного апарату";
Form10->ShowModal();
}
//----------------------------
void __fastcall TForm1::N30Click(TObject *Sender)
{
Form10->RichEdit1->Lines->
Form10->Image1->Picture->
Form10->Caption=" Схема і опис контуру дистиляційної колони";
Form10->ShowModal();
}
//----------------------------
void __fastcall TForm1::N34Click(TObject *Sender)
{
Form10->RichEdit1->Lines->
Form10->Image1->Picture->
Form10->Caption=" Схема і опис контуру колони синтезу";
Form10->ShowModal();
}
//----------------------------
void __fastcall TForm1::N33Click(TObject *Sender)
{
Form11->Image1->Picture->
Form11->Caption="Схема автоматизації";
Form11->ShowModal();
}
//----------------------------
void __fastcall TForm1::N29Click(TObject *Sender)
{
Form11->Image1->Picture->
Form11->Caption=" Схема автоматизації ";
Form11->ShowModal();
}
//----------------------------
void __fastcall TForm1::N25Click(TObject *Sender)
{
Form11->Image1->Picture->
Form11->Caption=" Схема автоматизації ";
Form11->ShowModal();
}
//----------------------------
void __fastcall TForm1::N35Click(TObject *Sender)
{
Form2->RichEdit1->Lines->
Form2->Caption="Опис роботи приладів контуру";
Form2->ShowModal();
}
//----------------------------
void __fastcall TForm1::N31Click(TObject *Sender)
{
Form12->Image1->Picture->
Form12->Caption="Специфікація на ТЗА контуру регулювання";
Form12->ShowModal();
}
//----------------------------
void __fastcall TForm1::N36Click(TObject *Sender)
{
Form1->Close();
Close();
}
//----------------------------
Файл Unit2.h
//----------------------------
#ifndef Unit2H
#define Unit2H
//----------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
//----------------------------
class TForm2 : public TForm
{
__published: // IDE-managed Components
TRichEdit *RichEdit1;
private: // User declarations
public: // User declarations
__fastcall TForm2(TComponent* Owner);
};
//----------------------------
extern PACKAGE TForm2 *Form2;
//----------------------------
#endif
Файл Unit2.cpp
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//----------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
Файл Unit3.h
//----------------------------
#ifndef Unit3H
#define Unit3H
//----------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
//----------------------------
class TForm3 : public TForm
{
__published: // IDE-managed Components
TImage *Image1;
private: // User declarations
public: // User declarations
__fastcall TForm3(TComponent* Owner);
};
//----------------------------
extern PACKAGE TForm3 *Form3;
//----------------------------
#endif
Файл Unit3.cpp
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//----------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
Файл Unit4.h
//----------------------------
#ifndef Unit4H
#define Unit4H
//----------------------------
#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 TForm4 : public TForm
{
__published: // IDE-managed Components
TImage *Image1;
TChart *Chart1;
TFastLineSeries *Series1;
TChart *Chart2;
TFastLineSeries *Series2;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm4(TComponent* Owner);
};
//----------------------------
extern PACKAGE TForm4 *Form4;
//----------------------------
#endif
Файл Unit4.cpp
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Math.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//----------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
for (int i=0; i<=20; i++)
{
Series1->AddXY(sin(i)+2*i*i,5*