Дипломная работа: Технологическая реализация системы подготовки обработки детали станка с числовым программным управлением
Особое значение имеет тот факт, что происходит уход от
традиционных бумажных носителей на всех этапах проектирования и внедрения
управляющей программы. Достигается это за счет того, что такое же программное
обеспечение может быть установлено на рабочем месте станочника, и используя
его, рабочий может получить всю необходимую информацию о наладке станка в более
удобном виде, чем это может быть представлено на бумажной карте наладки.
Данный программный модуль предназначен для применения в
группе шлифовальных станков с ЧПУ Walter, оснащенными 4
– 6 осями. С помощью этого модуля могут быть смоделированы большинство
традиционных осевых инструментов, которые применяются в производстве, а также
может быть осуществлена переточка затупившегося инструмента.
Возможность имитации обработки позволяет отказаться от
применения пробной детали, которая предназначена для отладки программы
обработки и чаще всего оказывается испорченной.
Также был произведен анализ условий труда программиста,
который должен работать в этом приложении. Были описаны параметры рабочего
места и рассчитаны нормы освещенности рабочего помещения. В частности были
рассчитаны такие параметры как площадь оконного проема и количество ламп
искусственного освещения, необходимых для освещения данной комнаты при работе с
персональным компьютером.
Был произведен экономический расчет стоимости разработки
данного программного модуля. В нем были учтены стоимость компьютера и
периферийного оборудования, применяемых в ходе разработки, а так же стоимость
отладки и внедрения программного модуля. Анализ аналогов других фирм показал,
что данный программный модуль может выполнять все те же действия, что и
аналоги, но его стоимость на 239828,86 рублей ниже чем у аналогов.
Список литературы
1.
Автоматизация проектно-конструкторских работ и технологической
подготовки производства в машиностроении. Т. 1/Под ред. О. И. Семенкова.- Минск:
Высшая школа, 2005.
2.
Волков Д.И., Скляренко В.К.. Экономика предприятия. Курс лекций.-
М.: Инфра-м, 2004.
3.
Гольдштейн А.И., Молочник В.И. О внутренней структуре
постпроцессоров. — В кн.: Повышение эффективности использования станков с ЧПУ.
- Киев: Знание, 2006.
4.
ГОСТ 886-77 "Свёрла спиральные с цилиндрическим хвостовиком.
Длинная серия".
5.
ГОСТ 2092-77 "Свёрла спиральные удлиненные с коническим
хвостовиком".
6.
ГОСТ 10079-71 "Развертки конические с коническим хвостовиком".
7.
ГОСТ 14952-75 "Свёрла центровочные комбинированные".
8.
ГОСТ 18121-72 "Развёртки котельные машинные".
9.
ГОСТ 19267-73 "Развертки машинные цилиндрические с
цилиндрическим хвостовиком для легких сплавов".
10.
ГОСТ 21579-76 "Зенкеры с цилиндрическим хвостовиком для
легких сплавов".
11.
Делфи 4. Библия разработчика. Том Сван.
Киев/Москва/Санкт-Петербург: Диалектика, 1998.
12.
Ендовицкий Д.А., Коменденко С.Н. Организация анализа и контроля
инновационной деятельности хозяйствующего субъекта. Под ред. Л.Т. Гимеровской.
М.: Финансы и статистика, 2004.
13.
Знакомство с Delphi 7. Архангельский А.Я.
Москва: издательство Бином, 2004.
14.
Инструменты программирования в Delphi 7.
Фаронов В.В. СПб.: Питер, 2006.
15.
Инструкция по программированию. Издание 03.96. SINUMERIK
840D/810D/FM-NC.
16.
Ильенкова С.Д., Гохберг Л.М., Ягудин С.Ю. и др.Инновационный
менеджмент. Учебник для вузов./ под ред. С.Д. Ильенковой. М.: Банки и биржи,
Юнити, 1997.
17.
Механика промышленных роботов: Учеб. Пособие для вузов: В 3 кн. /
Под ред. К. В. Фролова, Е. И. Воробьева. Кн.2: расчет и проектирование
механизмов / Е. И. Воробьев, О. Д. Егоров, С. А. Попов. – М: Высш. шк., 1988.
18.
Инвестиции. Учебное пособие/Г.П. Подшиваленко, Н.И. Лахметкина,
М.В. Макарова и др. М.:Кнорус,2004.
19.
Оборудование машиностроительных предприятий / Схиртладзе А. Г
Выходец., В. И., Никифоров Н. И., Отений Я. Н. − ВолгГТУ, Волгоград,
2005.
20.
СанПиН 2.2.2/2.4.1340-03 "Гигиенические требования к
персональным электронно-вычислительным машинам и организации работы".
21.
Системная интеграция/Машиностроение СТА 3/2002 Николай Панышев, Дмитрий Ялымов "Система
числового программного управления технологическим оборудованием".
22.
Интернет источник. CALS-технологии. www.calscenter.com.
23.
Интернет источник. Всемирная интернет энциклопедия. www.wikipedia.ru.
24.
Интернет источник. Информационные системы. http://revolution./programming.
25.
Интернет источник. Уфимский государственный авиационный
технический университет. www.twirpx.com.
26.
Интернет источник. Siemens Sinumerik 840D.
www.chipmaker.ru.
27.
Интернет источник. Филиппович К.В. "Идеология
постпроцессирования в современных CAD/CAM-системах" Россия, ООО Евразия
Лимитед, 2000. www.sapr2000.ru
Приложение А
Исходный текст программного модуля:
program Project2; //Имя программы
uses //Объявление прикрепленных к проекту
файлов
Forms,
Unit1
in 'Unit1.pas' {Form1},
Unit2
in 'Unit2.pas' {Form2},
Unit3
in 'Unit3.pas' {Form3},
Unit4
in 'Unit4.pas' {Form4},
Unit5
in 'Unit5.pas' {Form5},
Unit6
in 'Unit6.pas',
Unit7
in 'Unit7.pas' {Form7},
Unit8
in 'Unit8.pas' {Form8},
Unit9
in 'Unit9.pas' {Form9},
Unit10
in 'Unit10.pas',
Unit11
in 'Unit11.pas' {Form11},
Unit12
in 'Unit12.pas' {Form12},
Unit13
in 'Unit13.pas' {Form13},
Unit14
in 'Unit14.pas' {Form14},
Unit15
in 'Unit15.pas' {Form15},
Unit16
in 'Unit16.pas' {Form16},
Unit17
in 'Unit17.pas' {Form17};
var //объявление переменных
s:string; //назначение и присвоение типа переменных
ff:textfile;
{$R *.res} // директива компилятору подключить файл ресурсов
procedure Init_All; //объявление процедуры, относящейся ко всему проекту
begin
N_Ses:=1;
Init_Form2;
Form2.Caption:='Операция N 1';
Init_St_Det_Kr;
AssignFile(ff,path+'DAT\Stanok.dat'); //все параметры в проекта сохраняются в файл
reset(ff);
readln(ff,Xst[0]);
readln(ff,Yst[0]);
readln(ff,Zst[0]);
readln(ff,Ast[0]);
readln(ff,Bst[0]);
readln(ff,Cst[0]);
CloseFile(ff);
Init_Zag; //инициализация пользовательских функций
Init_Poly;
Init_Chk_Box;
Init_Traect(1);
Traect(1);
//Profile;
Init_Moving;
//Moving_9484;
Load_Op;
N_St:=0;
N_Fin:=N_Pos[N_Act]; N_Last:=0;
Init_Data3('DAT\9484.txt'); //чтение данных из файла
Form3.Caption:='Начапьные установки';
Fill_Str_Grid1_3; //вставка стандартный элементов Windows
Init_Data4;
Fill_Str_Grid1_4;
Init_BitMap;
Draw_All;
Init_Data5;
Init_Data12;
Init_BitMap12;
Fill_Str_Grid3_12(1);
Fill_Str_Grid1_5;
Init_Data7;
Fill_Str_Grid1_7;
Step:=1;
str(Step:1:3,s);
Form8.Memo1.Text:=s;
Form8.Button17.Caption:='';
Nst_Act:=0;
Init_Zag;
Init_Data8;
Fill_Str_Grid1_8;
Fill_Str_Grid2_8;
Init_BitMap8;
Nkr_Edit:=1;
Init_BitMap9;
Cooling;
Fill_Str_Grid1_13;
N_Buff:=1;
Put_Buff(N_Buff);
Form3.Visible:=true;
Write_Zag;
Init_Data14;
Init_Data_15;
Init_Data_16;
end;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1); //создание вспомогательных окон
Application.CreateForm(TForm2,
Form2);
Application.CreateForm(TForm3,
Form3);
Application.CreateForm(TForm4,
Form4);
Application.CreateForm(TForm5,
Form5);
Application.CreateForm(TForm7,
Form7);
Application.CreateForm(TForm8,
Form8);
Application.CreateForm(TForm9,
Form9);
Application.CreateForm(TForm11,
Form11);
Application.CreateForm(TForm12,
Form12);
Application.CreateForm(TForm13,
Form13);
Application.CreateForm(TForm14,
Form14);
Application.CreateForm(TForm15,
Form15);
Application.CreateForm(TForm16,
Form16);
Application.CreateForm(TForm17,
Form17);
Init_All;
Application.Run;
end.
unit
Unit1;
interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, ComCtrls, Buttons, CheckLst, Grids,Math;
type
TForm1
= class(TForm)
Button1:
TButton;
Memo1:
TMemo;
Button8:
TButton;
CheckListBox1:
TCheckListBox;
Button2:
TButton;
Button3:
TButton;
StringGrid1:
TStringGrid;
Button4:
TButton;
Button5:
TButton;
CheckListBox2:
TCheckListBox;
Button6:
TButton;
Button7:
TButton;
Button9:
TButton;
CheckListBox3:
TCheckListBox;
Button10:
TButton;
Button11:
TButton;
Button12:
TButton;
Button13:
TButton;
Button14:
TButton;
Button15:
TButton;
Button16:
TButton;
procedure
Button3Click(Sender: TObject); //функции нажатия кнопок
procedure
Button2Click(Sender: TObject);
procedure
Button8Click(Sender: TObject);
procedure
CheckListBox1ClickCheck(Sender: TObject);
procedure
StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure
Button4Click(Sender: TObject);
procedure
Button5Click(Sender: TObject);
procedure
Button6Click(Sender: TObject);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 |