Заключение1 (Конвертор для повышения эффективности перепрограммирования станков с ЧПУ)
Описание файла
Файл "Заключение1" внутри архива находится в папке "Конвертор для повышения эффективности перепрограммирования станков с ЧПУ". Документ из архива "Конвертор для повышения эффективности перепрограммирования станков с ЧПУ", который расположен в категории "". Всё это находится в предмете "дипломы и вкр" из 12 семестр (4 семестр магистратуры), которые можно найти в файловом архиве МПУ. Не смотря на прямую связь этого архива с МПУ, его также можно найти и в других разделах. Архив можно найти в разделе "остальное", в предмете "дипломы" в общих файлах.
Онлайн просмотр документа "Заключение1"
Текст из документа "Заключение1"
ЗАКЛЮЧЕНИЕ
В дипломном проекте в соответствии с заданием разработано программное средство, позволяющее решать задачу автоматизированного пересчёта программного кода для станков с ЧПУ с использованием различных систем программирования. Программа написана на языке высокого уровня Object Pascal в среде разработки Borland Delphi 7.
В процессе решения задачи:
- проведен анализ систем программирования станков с ЧПУ, таких как ВМ, Маяк и Sinumerik. При этом установлено, что на сегодняшний день существует большое количество программных продуктов, предоставляющих возможность конвертирования программного текста. Однако эти программы сложны в настройке и эксплуатации, либо стоимость их непомерно велика;
- на основании проведенного анализа разработана структура программного интерфейса, позволяющая автоматизировать процесс перевода кодов программ из одной системы программирования в другую, а также выбрать дополнительные параметры обработки;
- разработано программное средство, реализующее программный интерфейс и проведено тестирование разработанной программы. Результаты тестирования показали что, программа, верно, пересчитывает программный код в различные системы программирования, при этом устраняет ошибки, допущенные программистом, а также имеет много вспомогательных настроек, таких как последовательная нумерация кадров, удаление пустых строк и пробелов. Это значительно упрощает человеко-машинное взаимодействие и снижает время разработки программного кода и ввода его в эксплуатацию.
Учитывая, что возможности использования любой программы во многом определяются взаимодействием пользователя с ней, в дипломном проекте разработан также дружественный эргономичный оконный интерфейс.
В результате анализа опасных и вредных производственных факторов, действующих на разработчика в процессе разработки программы и пользователя при ее применении, установлено, что они соответствуют установленным нормам, а разработанная программа при своей эксплуатации не наносит существенный вред окружающей среде.
Разработанная программа соответствует современному научно-техническому уровню программно-методического обеспечения и признана экономически целесообразной.
Таким образом, задание на дипломное проектирование выполнено в полном объеме и цель дипломного проектирования достигнута.
Разработанное программное обеспечение постоянно находится в доработке, добавляются новые возможности конвертирования, а также по мере использования программы устраняются чисто человеческие ошибки программиста.
Список литературы
1. Бакаева Т.Н. Системный анализ безопасности: Методическая разработка к самостоятельной работе по курсу «Безопасность жизнедеятельности». Москва: МРТУ, 2005, 18 с.
2. Бакаева Т.Н. Безопасность жизнедеятельности. Часть 2: Безопасность в условиях производства: Учебное пособие. Москва: МРТУ, 2007, 318 с.
3. Гофман В. Э., Хомоненко А. Д. Delphi 6. – СПБ.: БХВ – Петербург, 2005. – 1152 с.
4. Грис Д. Конструирование компиляторов для цифровых вычислитель-
ных машин. Пер. с англ. - М.: Мир. 2005.544 с.
5. Густав О.,Джангуидо П. Цифровые системы автоматизации и управ-
ления. - СПб.: Невский диалект, 2007.
6. Дерябин А.Л. “Программирование технологических процессов для станков с ЧПУ”, М. Машиностроение, 2004.
7. Корн Г., Корн Т. Справочник по математике для научных работников и инженеров. - М.: Наука, 2008. – 720с.
8. Культин Н. Delphi 6. Программирование на Object Pascal. – СПб.: БХВ – Петербург, 2004. – 528 с.
9. Лещенко В.А., Богданов Н. А., ВайнштейнИ.В. и др. Станки с число-
вым программным управлением (специализированные). - М.: Маши-
ностроение, 2008.
10. Мартинов Г. М. Виртуальные приборы диагностики в системе ЧПУ //
Информатика-машиностроение. 2008. №4. С. 8-12.
11. Сосонкин В.Л. Задачи числового программного управления и их архи-
тектурная Реализация // Станки и инструмент. 2004. №10. С. 39-40.
12. Сосонкин В.Л., Мартинов Г. М. Концепция систем ЧПУ типа PCNC с открытой архитектурой // СТИН. 2006. №5. С. 7-12.
13. Сосонкин В.Л. Некоторые принципы разработки систем ЧПУ нового
поколения // СТИН. 2007. №9. С. 24-29.
14. Сосонкин В.Л., Мартинов Г.М. Принципы построения систем ЧПУ с
открытой Архитектурой // Приборы и системы управления. 1996. №8.
С. 18-21.
15. Сосонкин В.Л., ТилешЮ. Представление о процессорном устройстве
числового программного управления оборудованием как виртуальном
вычислителе//Машиноведение. 2007. №6. С. 50-57.
16. Сосонкин В.Л., Мартинов Г.М. Системы числового программного управления. Учебное пособие. М.: Логос, 2005. - 296 с.
17. Стискин Г.М., Гаевский В.Д. Токарные станки с оперативным программным управлением. – К. Техника, 2007.
18. SINUMERIK 840D,840Di,810D, основы. Руководство по программированию, выпуск 10-2004.
19. ГОСТ 12.1.038-04. Система стандартов безопасности труда. Электробезопасность. Термины и определения. – М.: Издательство стандартов, 2004.
20. ГОСТ 12.1.004-07. Система стандартов безопасности труда. Пожарная безопасность. Общие положения. – М.: Издательство стандартов, 2007.
21. ГОСТ 12.1.003–05. ССБТ. Шум. Общие требования безопасности (с изменениями по И-1-III-05),2005.
22. ГОСТ 12.0.002-80. Система стандартов безопасности труда. Термины и определения. – М.: ИПК Издательство стандартов, 2006.
23. ГОСТ 12.1.006–04. ССБТ. Электромагнитные поля радиочастот. Допустимые уровни на рабочих местах и требования к проведению контроля - М.: Издательство стандартов, 2004.
24. СанПиН 2.2.4. 548 1. – 2006. Гигиенические требования к микроклимату производственных помещений. – М.: Госкомсанэпиднадзор, 2006.
25. СанПиН 2.2.2. 542-06. Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы. – М.: Госкомсанэпиднадзор, 2006.
Приложение А
(обязательное)
Тема: Конвертер для повышения оперативности перепрограммирования станков с ЧПУ
Текст программы
Всего листов - 30
2009
Файл Project1.dpr
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {AboutBox},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'Наладчик 1.6.1';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Form1.Label3.Caption:= 'Всего строк';
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TAboutBox, AboutBox);
Application.Run;
end.
Файл Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls, ToolWin, ComCtrls, ImgList, Printers,
DBCtrls, Registry, IniFiles;
type
TForm1 = class(TForm)
memo1: TMemo;
MainMenu1: TMainMenu;
OpenDialog1: TOpenDialog;
FontDialog1: TFontDialog;
PrinterSetupDialog1: TPrinterSetupDialog;
PrintDialog1: TPrintDialog;
fayl: TMenuItem;
Nastroyki: TMenuItem;
fond: TMenuItem;
Printery: TMenuItem;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ImageList1: TImageList;
Parametry: TMenuItem;
ToolButton2: TToolButton;
SaveDialog1: TSaveDialog;
ToolButton3: TToolButton;
Label1: TLabel;
Help: TMenuItem;
Versia: TMenuItem;
Vyhod: TMenuItem;
Save: TMenuItem;
Open: TMenuItem;
Print: TMenuItem;
ToolButton4: TToolButton;
ToolButton6: TToolButton;
NomerKadra: TCheckBox;
Probel: TCheckBox;
Pustostr: TCheckBox;
PanelSostoyaniya: TStatusBar;
Indikator: TProgressBar;
ToolButton9: TToolButton;
ReplaceDialog1: TReplaceDialog;
Cancel: TButton;
Obrabotka: TButton;
Label2: TLabel;
Label3: TLabel;
Panel1: TPanel;
Panel2: TPanel;
ToolButton5: TToolButton;
ToolButton8: TToolButton;
procedure ButPrinterClick(Sender: TObject);
procedure ButPechatClick(Sender: TObject);
procedure fondClick(Sender: TObject);
procedure PrinteryClick(Sender: TObject);
procedure PechatClick(Sender: TObject);
procedure ButParametrClick(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ParametryClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure VersiaClick(Sender: TObject);
procedure VyhodClick(Sender: TObject);
procedure SaveClick(Sender: TObject);
procedure OpenClick(Sender: TObject);
procedure PrintClick(Sender: TObject);
procedure CancelClick(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ReplaceDialog1Replace(Sender: TObject);
procedure ObrabotkaClick(Sender: TObject);
procedure memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
st = ' Параметры: '; // текст в строке состояния + в модуле 2
Code_Begin = 100;
var
Form1: TForm1;
Code_My, nach, oshibka, m, uslovie: Integer;
Code_Reg: longint;
proverka_sushesvovania_ini: byte;
reestra, reestrc, reestrb, reestrMy_Code, reestrReg_Code: integer;
reestrversia: string[20];
nach_period, Hac: integer;
Stroka: TStrings;
memo1mod: boolean;
I, J, I_sled, J_sled: real;
X_nast, X_pred, X_sled, Y_nast, Y_pred, Y_sled: real;
Z, A, Uvmmayak, K : real;
implementation
uses Unit2, Unit3, Unit5;
{$R *.dfm}
procedure TForm1.ButPrinterClick(Sender: TObject);
begin
PrinterSetupDialog1.Execute
end;
procedure TForm1.ButPechatClick(Sender: TObject);
begin
PrintDialog1.Execute
end;
procedure TForm1.FondClick(Sender: TObject);
begin
if FontDialog1.Execute then
Memo1.Font:= FontDialog1.Font;
end;
procedure TForm1.PrinteryClick(Sender: TObject);
begin
PrinterSetupDialog1.Execute
end;
procedure TForm1.PechatClick(Sender: TObject);
begin
ToolButton3Click(Sender);
end;
procedure TForm1.ButParametrClick(Sender: TObject);
begin
Form2.ShowModal;
end;
Procedure TForm1.FormResize( Sender: TObject); // Изменение размера формы
begin
Memo1.Left:= 10; // Положение слева
Memo1.Top:= 60; // Положение сверху
Memo1.Width:= Form1.ClientWidth-130; // Ширина
Memo1.Height:= Form1.ClientHeight-100; // Высота
NomerKadra.Left:= Form1.ClientWidth-15-NomerKadra.Width;
Probel.Left:= Form1.ClientWidth-15-Probel.Width;
Pustostr.Left:= Form1.ClientWidth-15-Pustostr.Width;
Cancel.Left:= Form1.ClientWidth-20-Cancel.Width;
Obrabotka.Left:= Form1.ClientWidth-20-Obrabotka.Width;
Label2.Left:= Form1.ClientWidth-40-Cancel.Width;
Label3.Left:= Form1.ClientWidth-40-Cancel.Width;
Panel1.Left:= Form1.ClientWidth-18-Panel1.Width;
Panel2.Left:= Form1.ClientWidth-18-Panel2.Width;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Memo1mod then // Если поле Мемо1 изменилось
begin
CanClose:= MessageDlg(' Содержимое редактора изменилось '#10#13' Хотите сохранить данные?', mtConfirmation,[mbYes, mbNo], 0) = mrYes;
if CanClose then ToolButton2Click(Sender);
CanClose:= true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
const
Reg_Code = 1234567890;
My_Code = 469103;
var
RegIni: TRegistry;
Ini: TIniFile;
data: TDatetime;
begin
DateSeparator:= '.';
DecimalSeparator:= '.';
ShortDateFormat:= 'dd/mm/yyyy';
memo1mod:= false;
reestrMy_Code:= 0;