Управление гибкими производственными системами

procedure TForm1. Button1Click (SEnder: TObject);

begin

// проверка: выбран ли станок

if Stan. Choosed = false then

begin

ShowMessage ('Не рассчитано количество ОЦ.');

Exit;

End;

// вывод формы

Form3. ShowModal;

End;

// **************

// Закрытие формы

// **************

procedure TForm1. Button2Click (SEnder: TObject);

begin

Form1. Close;

End;

// *********************************

// делаем значения элементов пустыми

// *********************************

procedure TForm1. Button3Click (SEnder: TObject);

begin

// для элементов ComboBox

ComboBox1. ItemIndex:= -1;

ComboBox2. ItemIndex:= -1;

ComboBox3. ItemIndex:= -1;

ComboBox4. ItemIndex:= -1;

ComboBox5. ItemIndex:= -1;

ComboBox6. ItemIndex:= -1;

// для элементов LabeledEdit

LabeledEdit1. Text:= «;

LabeledEdit2. Text:= «;

LabeledEdit3. Text:= «;

LabeledEdit4. Text:= «;

LabeledEdit5. Text:= «;

LabeledEdit6. Text:= «;

LabeledEdit7. Text:= «;

LabeledEdit8. Text:= «;

// ставим флаг «станок не выбран»

Stan. Choosed:= false;

End;

// ****************************************

// Отображение подсказки на элементе Panels

// кнопка «Расчет»

// ****************************************

procedure TForm1. BitBtn1MouseMove (SEnder: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar. Panels. Items[0].Text:='Расчет основного оборудования с выводом формы';

End;

 // ****************************************

// Отображение подсказки на элементе Panels

// свободное перемещение по форме

// ****************************************

procedure TForm1. FormMouseMove (SEnder: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar. Panels. Items[0].Text:='Исполнители: Петрова Г.А., Пчела И.В.';

End;

// ****************************************

// Отображение подсказки на элементе Panels

// кнопка «Вид станка»

// ****************************************

procedure TForm1. Button1MouseMove (SEnder: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar. Panels. Items[0].Text:='Информация о выбранном обрабатывающем центре. Сначала необходимо произвести расчет';

End;

// ****************************************

// Отображение подсказки на элементе Panels

// кнопка «Сброс выбора»

// ****************************************

procedure TForm1. Button3MouseMove (SEnder: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar. Panels. Items[0].Text:='Сброс выбора деталей и введенных данных';

End;

// ****************************************

// Отображение подсказки на элементе Panels

// кнопка «Закрыть»

// ****************************************

procedure TForm1. Button2MouseMove (SEnder: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar. Panels. Items[0].Text:='Выход из программы';

End;

// ********************************************************************

// Устанавливаем курсор в поле годовой программы соответствующей детали

// для элемента LabeledEdit1

// ********************************************************************

procedure TForm1. ComboBox1Change (SEnder: TObject);

begin

LabeledEdit1. SetFocus;

End;

// ********************************************************************

// Устанавливаем курсор в поле годовой программы соответствующей детали

// для элемента LabeledEdit2

// ********************************************************************

procedure TForm1. ComboBox2Change (SEnder: TObject);

begin

LabeledEdit2. SetFocus;

End;

// ********************************************************************

// Устанавливаем курсор в поле годовой программы соответствующей детали

// для элемента LabeledEdit3

// ********************************************************************

procedure TForm1. ComboBox3Change (SEnder: TObject);

begin

LabeledEdit3. SetFocus;

End;

// ********************************************************************

// Устанавливаем курсор в поле годовой программы соответствующей детали

// для элемента LabeledEdit4

// ********************************************************************

procedure TForm1. ComboBox4Change (SEnder: TObject);

begin

LabeledEdit4. SetFocus;

End;

// ********************************************************************

// Устанавливаем курсор в поле годовой программы соответствующей детали

// для элемента LabeledEdit5

// ********************************************************************

procedure TForm1. ComboBox5Change (SEnder: TObject);

begin

LabeledEdit5. SetFocus;

End;

 // ********************************************************************

// Устанавливаем курсор в поле годовой программы соответствующей детали

// для элемента LabeledEdit6

// ********************************************************************

procedure TForm1. ComboBox6Change (SEnder: TObject);

begin

LabeledEdit6. SetFocus;

End;

// ****************************************

// Отображение подсказки на элементе Panels

// поле «Суточный фонд времени»

// ****************************************

procedure TForm1. LabeledEdit7MouseMove (SEnder: TObject; Shift: TShiftState;

X, Y: Integer);

begin

StatusBar. Panels. Items[0].Text:='Суточный фонд времени работы ГПС';

End;

// ****************************************

// Отображение подсказки на элементе Panels

// поле «Количество дней работы в год»

// ****************************************

procedure TForm1. LabeledEdit8MouseMove (SEnder: TObject; Shift: TShiftState;

X, Y: Integer);

begin

StatusBar. Panels. Items[0].Text:='Количество дней работы в год';

End;

// *****************************

// Проверка на ввод только чисел

// *****************************

procedure TForm1. LabeledEdit1KeyPress (SEnder: TObject; var Key: Char);

begin

if (ord(Key) < 48) or (ord(Key)> 57) then

begin

if (ord(Key) <> 8) then

Key:= chr(0);

End;

End;

// *******************************************

// Открытие формы «Редактирование базы данных»

// *******************************************

procedure TForm1. Button4Click (SEnder: TObject);

begin

Form4. ShowModal;

End;

// ****************************************

// Отображение подсказки на элементе Panels

// кнопка «Редактирование базы данных»

// ****************************************

procedure TForm1. Button4MouseMove (SEnder: TObject; Shift: TShiftState; X,

Y: Integer);

begin

StatusBar. Panels. Items[0].Text:='Редактировать базу данных деталей';

End;

End.

Unit Gps_Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, GPS_Unit, Printers;

Type

TForm2 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Label1: TLabel;

Memo1: TMemo;

Button1: TButton;

procedure Button1Click (SEnder: TObject);

private

{Private declarations}

public

{Public declarations}

End;

var

Form2: TForm2;

implementation

{$R *.dfm}

// *****************************************

// Подготовка к печати, расчет коэффициентов

// необходимых для корректного отображения

// *****************************************

procedure TForm2. Button1Click (SEnder: TObject);

label

End_str;

const

Left_margin= 2;

top_margin= 2;

var

DPIx, DPIy: integer; //DPI принтера

kX, kY: real; // коэф пересчета

pX, pY: integer; // точка вывода

i, k, po: integer;

temp: String;

begin

{Разрешение экрана и принтера разное,

поэтому чтобы добиться соответствия

размеров изображения на экране и принтере,

координаты точек экрана надо преобразовать

в координаты принтера, умножить на коэф.,

значение которого зависит от разрешения принтера.

}

DPIx:= GetDeviceCaps (printer. Handle, LOGPIXELSX);

DPIy:= GetDeviceCaps (Printer. Handle, LOGPIXELSY);

kX:= DPIx / Screen. PixelsPerInch;

kY:= DPIy / Screen. PixelsPerInch;

pX:= Round (Left_margin / 2.54 * DPIx);

pY:= Round (Top_margin / 2.54 * DPIy);

po:= 0;

With Printer do

begin

Orientation:= poPortrait;

BeginDoc;

With Canvas do

begin

Font. Name:= Memo1. Font. Name;

Font. Size:= Memo1. Font. Size;

k:= Round(pY);

For i:= 0 to 70 do

begin

If Memo1. Lines. Strings[i] = ' _________________________________________________________________________________'

then po:= po + 1;

if po= 3 then

begin

po:= i;

goto End_str;

End;

TextOut (pX, k, Memo1. Lines. Strings[i]);

k:= Round (k + 15*kY);

End;

End;

End_str:

EndDoc;

BeginDoc;

With Canvas do

begin

Font. Name:= Memo1. Font. Name;

Font. Size:= Memo1. Font. Size;

k:= Round(pY);

For i:= po-1 to Memo1. Lines. Count do

begin

TextOut (pX, k, Memo1. Lines. Strings[i]);

k:= Round (k + 15*kY);

End;

End;

EndDoc;

End;

End;

End.

Unit Gps_Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, ComCtrls, TabNotBk, jpeg, GPS_Unit;

Type

TForm3 = class(TForm)

TabbedNotebook1: TTabbedNotebook;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Memo1: TMemo;

Label1: TLabel;

Image2: TImage;

Label2: TLabel;

Label3: TLabel;

Image1: TImage;

procedure FormActivate (SEnder: TObject);

private

{Private declarations}

public

stan: TStan;

{Public declarations}

End;

var

Form3: TForm3;

implementation

{$R *.dfm}

// **************************

// Описание выбранного станка

// **************************

procedure TForm3. FormActivate (SEnder: TObject);

begin

case Form1.stan. TypeStan of

// информация для станка ИР320ПМФ4

320:

Begin

// текст заглавия формы

Label1. Caption:= 'Горизонтальный обрабатывающий центр ИР320ПМФ4';

Label2. Caption:= 'Горизонтальный обрабатывающий центр ИР320ПМФ4';

Label3. Caption:= 'Горизонтальный обрабатывающий центр ИР320ПМФ4';

with Memo1. Lines do

begin

Clear;

Add('');

Add('');

Add (' Горизонтальный обрабатывающий центр ИР320ПМФ4 предназначен для ' +

'комплексной обработки сложных корпусных деталей из конструкционных материалов ' +

'в условиях многономенклатурного производства в автономном режиме или в составе ' +

'гибких производственных систем.');

Add('');

AppEnd (' Обработка детали производится при подаче стола по оси Х, шпиндельной бабки по оси Y, ползуна по оси Z и вращении вертикально расположенного ра­бочего стола по оси А.');

Add('');

AppEnd (' Помимо традиционных операций, выполняемых на обрабатывающих центрах, '+

' широкий диапазон круговых подач рабочего стола станка позволяет производить '+

' токарную обработку, а также круговое фрезерование и обработку криволинейных '+

' профилей на цилиндрической поверхности.');

Add('');

AppEnd (' Особенности конструкции:');

Add('');

AppEnd (' - Все узлы станка смонтированы на жесткой Г-образной станине, являющейся' +

' общим основанием;');

AppEnd (' - Привод шпинделя обеспечивает постоянный момент в диапазоне 13…3600 ' +

'об/мин и постоянную мощность в диапазоне 360…5000 об/мин;');

AppEnd (' - Cмена инструмента на станке '+

' безманипуляторная и выполняется непосредственно шпинделем из инструментального магазина '+

' барабанного типа емкостью 36 инструментов, перед установкой инструмента конус шпинделя '+

'обдувается сжатым воздухом;');

AppEnd (' - 4-местный или 12-местный накопитель палет и устройство смены ' +

' обеспечивают длительную автономную работу станка, в том числе в составе ГПС;');

AppEnd (' - Поворотный рабочий стол станка расположен вертикально, что позволяет с наибольшей эффективностью '+

' осуществлять уборку стружки и очистку деталей;');

AppEnd (' - СОЖ подается на инструмент и в зону резания' +

'через восемь отверстий в корпусе шпинделя;');

AppEnd (' - Рабочая зона станка и все его узлы имеют ограждения, ' +

' обеспечивающие безопасные и комфортные условия эксплуатации.');

End;

// загрузка рисунков станка ИР320ПМФ4

Image1. Picture. LoadFromFile ('pic\320-2.jpg');

Image2. Picture. LoadFromFile ('pic\320-1.jpg');

End;

500:

// информация для станка ИР500ПМФ4

begin

Label1. Caption:= 'Горизонтальный обрабатывающий центр ИР500ПМФ4';

Label2. Caption:= 'Горизонтальный обрабатывающий центр ИР500ПМФ4';

Label3. Caption:= 'Горизонтальный обрабатывающий центр ИР500ПМФ4';

with Memo1. Lines do

begin

Clear;

Add('');

Add('');

Add (' Предназначен для обработки корпусных деталей на поворотном столе. На станке производится сверление, зенкерование, '+

' развертывание, растачивание точных отверстий по координатам, фрезерование по контуру с линейной и круговой интерполяцией, '+

' нарезание резьб метчиками. Класс точности станка Н. ');

Add('');

AppEnd (' Все узлы станка смонтированы на общей жесткой станине. Бесконсольная шпиндельная бабка расположена внутри портальной '+

'стойки. Поворотный индексируемый стол перемещается по отдельной станине. Перемещение подвижных узлов осуществляется от высокомоментных '+

'электродвигателей с постоянными магнитами, что обеспечивает стабильность времени разгона и торможения (в пределах 0,2 с). Комбинированные '+

'направляющие состоят из высокоточных роликовых опор, установленных с предварительным натя-гом, и накладок, изготовленных из антифрикционного '+

'полимерного материала, обладающего низким коэффициентом трения и высокой демпфирующей способностью.');

Add('');

AppEnd (' Горизонтальный шпиндель станка смонтирован в отдельном корпусе на двух прецизионных подшипниках (один - с цилиндрическими '+

'роликами, другой - упорно-радиальный); это способствует достижению высокой точности, жесткости и виброустойчивости. Зажим инструмента в '+

'шпинделе гидромеханический. Привод шпинделя осуществляется от электродвигателя постоянного тока через двухступенчатую коробку скоростей. В '+

'пределах 2 - 184 мин-1 регулирование частоты вращения производится при постоянном моменте, а в пределах 184 - 3000 об/мин - при постоянной '+

'мощности. Автоматическая ориентация шпинделя с управлением от системы ЧПУ позволяет осуществлять серию технологических циклов, в которых '+

'необходимо отвести резец от рабочей поверхности в точно определенную позицию, не повредив изделие.');

Add('');

AppEnd (' Встроенный поворотный делительный стол позиционируется в автоматическом режиме. Для установки и крепления детали на поверхности '+

' стола предусмотрена координатная сетка резьбовых отверстий. Отдельно стоящее гидромеханическое поворотное (на 180°) устройство автоматической '+

' смены столов-спутников позволяет исключить из технологического цикла время на установку и снятие детали. Устройство автоматической смены инструментов, '+

' расположенное вне рабочей зоны, состоит из инструментального мага-зина барабанного типа с кодированными гнездами и манипулятора. Выбор инструментов возможен в любой последовательности.');

Add('');

AppEnd (' Для питания гидравлических устройств станка служит аксиально-поршневой насос переменной про-изводительности с автоматическим регулированием '+

'расхода масла. В гидросистеме станка имеется гидроак-кумулятор с эластичным мешком, обеспечивающий уравновешивание шпиндельной бабки. Все трущиеся детали '+

'станка и подшипники шпинделя смазываются посредством централизованной автоматической дозиро-ванной системы смазки; смазка зубчатых колес и подшипников главного '+

'привода непрерывная циркуляционная. СОЖ подается в зону резания, причем управление насосной установкой осуществляется от системы ЧПУ');

Add('');

AppEnd (' В станке применена трехкоординатная комбинированная система ЧПУ с линейной и круговой интер-поляцией (число одновременно управляемых координат 2). '+

'Программа может вводиться в устройство ЧПУ на перфоленте или вручную (с помощью буквенно-цифровой клавиатуры на пульте), а также посредством программного накопителя, '+

'телетайпа или от центральной ЭВМ. В качестве датчиков обратной связи по всем координатам использованы резольверы, установленные на валу электродвигателей. '+

'Дискретность задания размеров 0,002 мм.');

End;

// загрузка рисунков станка ИР500ПМФ4

Image1. Picture. LoadFromFile ('pic\500-2.jpg');

Image2. Picture. LoadFromFile ('pic\500-1.jpg');

End;

800:

// информация для станка ИР800ПМ1Ф4

begin

Label1. Caption:= 'Горизонтальный обрабатывающий центр ИР800ПМ1Ф4';

Label2. Caption:= 'Горизонтальный обрабатывающий центр ИР800ПМ1Ф4';

Label3. Caption:= 'Горизонтальный обрабатывающий центр ИР800ПМ1Ф4';

with Memo1. Lines do

begin

Clear;

Add('');

Add('');

Add (' Модель ИР800ПМ1Ф4 с индексируемым поворотным столом, многоместным накопителем столов-спутников и устройством автоматической установки '+

'их на стол станка');

Add('');

AppEnd (' Предназначен для высокопроизводительной обработки корпусных деталей из конструкционных материалов (от легких сплавов до высокопрочных '+

'сталей). Станок позволяет производить обработку группы дета-лей с привлечением ограниченного числа операторов в течение длительного времени. ');

Add('');

AppEnd (' Станок оснащен призывной сигнализацией, адаптивной системой управления режимами резания, кон-трольно-измерительной системой, осуществляющей '+

'контроль детали в процессе обработки с введением соот-ветствующих коррекций в управляющую программу, системой контроля поломки и износа режущего инструмента');

Add('');

AppEnd (' Высокая степень автоматизации вспомогательных функций станков, в том числе смены заготовок, и наличие соответствующих входов, выходов для '+

'стыковки с центральной управляющей ЭВМ и автоматизированным транспортом, позволяет встраивать их в гибкие производственные системы (ГПС).');

Add('');

AppEnd (' На верхнем торце стойки расположен инструментальный магазин барабанного типа на 30 инструментов.');

Add('');

AppEnd (' В станке применена трехкоординатная комбинированная система ЧПУ с линейной и круговой интер-поляцией (число одновременно управляемых координат 2). ');

Add('');

AppEnd (' Устройство автоматической смены инструмента состоит из вращающегося инструментального магазина барабанного типа, которое расположено на верхнем '+

'торце стойки, с кодированными гнездами емкостью 30 инструментов и манипулятора, установленного на переднем торце стойки и предназначено для автоматической '+

'смены инструмента в шпинделе.');

Add('');

AppEnd (' Устройство автоматической смены столов-спутников обеспечивает работу станков в автоматическом режиме, исключая из технологического цикла обработки время '+

'на установку и снятие деталей.');

Add('');

AppEnd (' Устройство автоматической смены столов-спутников поворотного типа смонтировано на отдельном основании и установлено так, чтобы оно взаимодействовало '+

'при смене столов-спутников со станком, накопите-лем, а также при необходимости с транспортной тележкой при встройке станка в ГПС.');

Add('');

AppEnd (' Накопитель столов-спутников. Многоместный накопитель на шесть столов-спутников после полной его загрузки обеспечивает непрерывную работу станка без '+

'участия оператора, и представляет собой поворотное устройство роторного типа, установленное рядом с устройством смены столов-спутников. Столы-спутники кодированы.');

Add('');

AppEnd (' Автоматическая уборка стружки. Шнековый транспортер, установленный на станке, надежно обеспечи-вает удаление стружки из зоны резания.');

End;

// загрузка рисунков станка ИР800ПМФ4

Image1. Picture. LoadFromFile ('pic\800-2.jpg');

Image2. Picture. LoadFromFile ('pic\800-1.jpg');

End;

End;

End;

End.

Unit Gps_Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DB, Gps_Unit, Grids, DBGrids, DBCtrls;

Type

TForm4 = class(TForm)

Panel1: TPanel;

DataSource1: TDataSource;

Panel2: TPanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

procedure FormResize (SEnder: TObject);

procedure FormActivate (SEnder: TObject);

private

{Private declarations}

public

{Public declarations}

End;

var

Form4: TForm4;

implementation

{$R *.dfm}

// ******************************************

// определение положения элемента DBNavigator

// ******************************************

procedure TForm4. FormResize (SEnder: TObject);

begin

DBNavigator1. Left:= (Form4. Width div 2) - 120;

End;

// *********************************************************

// подключение базы данных деталей из файла \Base\Details.DB

// *********************************************************

procedure TForm4. FormActivate (SEnder: TObject);

begin

// подключаем БД

with Form1.tDetails do

begin

Active:= true;

// сообщение об ошибке

If Active = false then

begin

ShowMessage ('Не обнаружена база данных. /n \Base\Details.DB');

Exit;

End;

Close;

Open;

End;

End;

End.

Размещено на Allbest.ru