Параметры

Значения параметров

оптимальные

допустимые

Температура

20-22 °С

17-22 °С

Относительная влажность

40-60 %

до 75%

Скорость движения воздуха

0,1 м/с

не более 0,3 м/с

В целях поддержания температуры и влажности воздуха в помещении можно использовать системы отопления, вентиляции и кондиционирования воздуха.

На исследуемом рабочем месте температура воздуха, влажность и скорость движения воздуха держится в рамках оптимальных параметров. Вредные вещества в воздухе рабочей зоны не превышают предельной допустимой концентрации.

4.6. Пожаробезопасность при работе с компьютером

Помещение, в котором установлено рабочее место инженера-программиста, относится к категории Д по взрывопожароопасности, так как не содержит горючих веществ, но лишь негорючие вещества и материалы в холодном состоянии.

Пожары в помещении, в котором находится ЭВМ, представляют особую опасность, так как сопряжены с большими материальными потерями. Площадь помещения, в котором ведется проектирование, невелика и составляет 8 м². Как известно пожар может возникнуть при взаимодействии горючих веществ, окисления и источников зажигания. В помещении присутствуют все три основные фактора, необходимые для возникновения пожара. Горючими компонентами являются: строительные материалы для акустической и эстетической отделки помещений, двери, полы, бумага, изоляция кабелей и др.

Противопожарная защита - это комплекс организационных и технических мероприятий, направленных на обеспечение безопасности людей, на предотвращение пожара, ограничение его распространения, а также на создание условий для успешного тушения пожара.

Источниками зажигания в помещении, содержащем ЭВМ, могут быть электронные схемы от ЭВМ, приборы, применяемые для технического обслуживания, устройства электропитания, где в результате различных нарушений образуются перегретые элементы, электрические искры и дуги, способные вызвать загорания горючих материалов.

В современных ЭВМ очень высока плотность размещения элементов электронных схем. В непосредственной близости друг от друга располагаются соединительные провода, кабели. При протекании по ним электрического тока выделяется значительное количество теплоты. При этом возможно оплавление изоляции. Для отвода избыточной теплоты от ЭВМ служат системы вентиляции и кондиционирования воздуха. При постоянном действии эти системы представляют собой дополнительную пожарную опасность.

Одной из наиболее важных задач пожарной защиты является защита строительных помещений от разрушений и обеспечение их достаточной прочности в условиях воздействия высоких температур при пожаре. Учитывая высокую стоимость электронного оборудования, а также категорию его пожарной опасности, здания, в которых предусмотрено размещение ЭВМ, должны быть 1 и 2 степени огнестойкости.

К средствам тушения пожара, предназначенных для локализации небольших возгораний, относятся пожарные стволы, внутренние пожарные водопроводы, огнетушители, сухой песок, асбестовые одеяла и т. п.

В соответствии с “Типовыми правилами пожарной безопасности для промышленных предприятий” залы ЭВМ, помещения для внешних запоминающих устройств, подготовки данных, сервисной аппаратуры, архивов, копировально-множительного оборудования и т.п. необходимо оборудовать дымовыми пожарными извещателями. Так как в этих помещениях при возгорании различных пластмассовых, изоляционных материалов и бумажных изделий выделяется значительное количество дыма и мало теплоты.

Помещение, в котором производится разработка данного проекта, необходимо оборудовать средствами оповещения о пожаре, а также средствами для тушения пожара.

Электрические установки представляют для человека большую потенциальную опасность, так как в процессе эксплуатации или проведении профилактических работ человек может коснуться частей, находящихся под напряжением. Специфическая опасность электроустановок: токоведущие проводники, корпуса стоек ЭВМ и прочего оборудования, оказавшегося под напряжением в результате повреждения (пробоя) изоляции, не подают каких-либо сигналов, которые предупреждают человека об опасности. Реакция человека на электрический ток возникает лишь при протекании последнего через тело человека. Разрядные токи статического электричества чаще всего возникают при прикосновении к любому из элементов ЭВМ. Такие разряды опасности для человека не представляют, но кроме неприятных ощущений они могут привести к выходу из строя ЭВМ. Для снижения величины возникающих зарядов статического электричества покрытие технологических полов следует выполнить из однослойного поливинилхлоридного антистатического линолеума.

В ходе дипломного работы были выявлены вредные факторы, влияющие на работоспособность инженера-программиста. Для обеспечения безопасных условий труда инженера-программиста были выдвинуты требования к электро- и пожаробезопасности на рабочем месте. Также был произведен расчет общего освещения,  в результате которого была выявлена недостаточность освещения. Предлагаемые меры: замена ламп на лампы с большим световым потоком.

ЗАКЛЮЧЕНИЕ

         В ходе дипломной работы было разработано ПО, позволяющее решать задачу  автоматизированного пересчёта программного кода для станков с ЧПУ с использованием различных систем программирования. Программа была написана на языке высокого уровня Object Pascal в среде разработки Borland Delphi 7.

         В процессе разработки были досконально исследованы системы программирования станков с ЧПУ, такие как (Вм, Маяк, Sinumerik). Результаты тестирования показали что, программа верно пересчитывает программный код в различные системы программирования при этом устраняет ошибки допущенные программистом, а так же имеет много вспомогательных настроек. Что значительно упрощает человеко-машинное взаимодействие и повышает время разработки программного кода и ввод его в эксплуатацию.

СПИСОК ЛИТЕРАТУРЫ

1. Корн Г., Корн Т. Справочник по математике для научных работников и инженеров. - М.: Наука, 1979. – 720с.
2. Никита Культин Delphi 6. Программирование на Object Pascal. – СПб.: БХВ – Петербург, 2002. – 528 с.: ил.
3. #"_Toc201373337">ПРИЛОЖЕНИЕ 1                                

   ТЕКСТ ПРОГРАММЫ

   Файл 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;

     reestrReg_Code:= 0;

     data:= Date;                                 // получаем сегодняшнюю дату

     nach_period:= Trunc(data);

     Ini:= TIniFile.Create('Nal.ini');

     proverka_sushesvovania_ini:= Ini.ReadInteger('START', 'CountStart', 0);

     if proverka_sushesvovania_ini = 0 then

       begin

         ini.WriteInteger('START', 'CountStart', 1);

         ini.WriteDate('DateBegin', 'DateBegin', data);   //в формате дд.мм.гггг

         ini.WriteDate('DateEnd', 'DateEnd', data + 30);  //в формате дд.мм.гггг

         ini.WriteString('Versia', 'Versia', Application.Title);

         ini.WriteInteger('CodeBegin', 'CodeBegin', Code_Begin);

         ini.WriteInteger('Hac','Hac', nach_period);

       end

     else

       begin

         Code_My:= ini.ReadInteger('Code_My', 'Code_My', 0);

         Code_Reg:= ini.ReadInteger('Code_Reg', 'Code_Reg', 0);

         Hac:= Ini.ReadInteger('Hac','Hac',0);

       end;

     Ini.Free;

     Form1.Caption:= Application.Title;

     Form1.memo1.Clear;

     Form1.PanelSostoyaniya.Panels[0].Text:= st + ' Не обрабатывать ';

     Form1.Panel1.Caption:= '0';

     Form1.Panel2.Caption:= '0';

     RegIni:= TRegistry.Create;

     RegIni.RootKey:= HKEY_LOCAL_MACHINE;

     RegIni.OpenKey('Software\Naladchik', true);

     if not RegIni.KeyExists('a') then   // Если нет этого ключа то прописываем.

       begin

         RegIni.CreateKey('a');

         RegIni.WriteInteger('a', 100);

         RegIni.WriteString('Versia', Application.Title);

         RegIni.WriteInteger('b', nach_period);         // в формате 00000

         RegIni.WriteInteger('c', nach_period + 30);    // в формате 00000

         RegIni.CloseKey;

         RegIni.Free;

       end;

     RegIni:= TRegistry.Create;

     RegIni.RootKey:= HKEY_LOCAL_MACHINE;

     RegIni.OpenKey('Software\Naladchik', false);

     reestra:= RegIni.ReadInteger('a');

     reestrversia:= RegIni.ReadString('Versia');

     reestrb:= RegIni.ReadInteger('b');

     reestrc:= RegIni.ReadInteger('c');

     if proverka_sushesvovania_ini = 2 then

       begin

         reestrMy_Code:= RegIni.ReadInteger('d');

         reestrReg_Code:= RegIni.ReadInteger('e');

       end;

     RegIni.CloseKey;

     RegIni.Free;

     if Hac > nach_period then nach_period:= Hac //  защита от перевода даты

     else  Hac:= nach_period;

     Ini:= TIniFile.Create('Nal.ini');

     ini.WriteInteger('Hac', 'Hac', Hac);

     ini.Free;

     //  Code_My и Code_Reg  из ini файла

     if (Code_My = My_Code) and (Code_Reg = Reg_Code) and (reestrMy_Code = My_Code) and (reestrReg_Code = Reg_Code)

     then Form1.Caption:= Application.Title + '(Зарегистрированная версия)'

     else

       begin

         if reestrc > nach_period then

           Form1.Caption:= Application.Title + '   (Осталось '+IntToStr(reestrc - nach_period)+' дней)';

         if reestrc <= nach_period then

         begin

           ShowMessage('Демонстрационный период закончен' + #13 + 'За регистрацией обратитесь к разработчику'+#13'[email protected]');

           Halt(1);

         end;

       end;

   end;

   
   

   procedure TForm1.ToolButton1Click(Sender: TObject);

   var

     kol: integer;

   begin

     Indikator.Position:= 0;

     Form1.PanelSostoyaniya.Panels[1].Text:= '';

     Memo1.Clear;

     if OpenDialog1.Execute then

       begin

         Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

         label1.Caption:= OpenDialog1.FileName;

         kol:= Memo1.Lines.Count;

         Panel2.Caption:= '0';

         Panel1.Caption:= IntToStr(kol - 1);

       end;

     Form2.PC_VM.Enabled:= true;

     Form2.PC_MAYAK.Enabled:= true;

     Form2.VM_MAYAK.Enabled:= true;

     Form2.MAYAK_VM.Enabled:= true;

     Form2.FormActivate(Sender);

   end;

   
   

   procedure TForm1.ParametryClick(Sender: TObject);

   begin

      Form2.ShowModal;

   end;

   
   

   procedure TForm1.ToolButton2Click(Sender: TObject);

   begin

     if SaveDialog1.Execute then

       begin

         Memo1.Lines.SaveToFile(SaveDialog1.FileName);

         Memo1.Modified:= false;

       end;

   end;

   
   
   

   procedure TForm1.ToolButton3Click(Sender: TObject);  //  Печать

   var

     line: System.TextFile;

     i: integer;

   begin

     if PrintDialog1.Execute then

       begin

         AssignPrn(line);

         rewrite(line);

         Printer.Canvas.Font:= Memo1.Font;

         for i:= 0 to memo1.Lines.Count-1 do writeln(line,'                  ', Memo1.Lines[i]);

         System.CloseFile(line);

       end;

   end;

   
   

   procedure TForm1.VersiaClick(Sender: TObject);

   begin

     AboutBox.ShowModal;

   end;

   
   

   procedure TForm1.VyhodClick(Sender: TObject);

   begin

     Form1.Close;

   end;

   
   

   procedure TForm1.SaveClick(Sender: TObject);

   begin

     ToolButton2Click(Sender);

   end;

   
   

   procedure TForm1.OpenClick(Sender: TObject);

   begin

     ToolButton1Click(Sender);

   end;

   
   

   procedure TForm1.PrintClick(Sender: TObject);

   begin

     ToolButton3Click(Sender);

   end;

   
   
   

   procedure TForm1.CancelClick(Sender: TObject);

   begin

     Form1.Close;

   end;

   
   
   

   procedure NaytiKoordinatu(kadr: string; koordinata: char; var poluchenaya: string);

   var

     p : integer;

     poz_10: string[100];

     per : string[10];

     r: real;

   begin

     per:='          ';

     kadr:= Concat(kadr, ' ');

     nach:= pos(koordinata,kadr);

     nach:= Succ(nach);

     poz_10:= copy(kadr, nach, 100);

     val(poz_10,r,oshibka);

     for p:=1 to oshibka - 1 do

       per[p]:= poz_10[p];

     if poz_10 = ' ' then oshibka:= 1;

     poluchenaya:= TrimRight(per);

   end;

   
   
   

   function DobavitTochku( f: string): string; // Добавляет точку, если её нет

   begin

     if pos('.', f) = 0

       then f:= Concat(f, '.');

     Result:= f;

   end;

   
   
   
   

   procedure Podhod_G41_G42_radius;

   begin                   //  Х и Y уже найдены

     if pos('G3', Stroka.Strings[Succ(m)]) <> 0 then

       begin

         if (I > 0) and (J >= 0) then

           begin

             I_sled:= 1;

             J_sled:= -1;

             exit;

           end;

         if (I < 0) and (J <= 0) then

           begin

             I_sled:= -1;

             J_sled:= 1;

             exit;

           end;

         if (I <= 0) and (J > 0) then

           begin

             I_sled:= 1;

             J_sled:= 1;

             exit;

           end;

         if (I >= 0) and (J < 0) then

           begin

             I_sled:= -1;

             J_sled:= -1;

             exit;

           end;

       end;

     if pos('G2', Stroka.Strings[Succ(m)]) <> 0 then

       begin

         if (I >= 0) and (J > 0) then

           begin

             I_sled:= -1;

             J_sled:= 1;

             exit;

           end;

         if (I <= 0) and (J < 0) then

           begin

             I_sled:= 1;

             J_sled:= -1;

             exit;

           end;

         if (I < 0) and (J >= 0) then

           begin

             I_sled:= -1;

             J_sled:= -1;

             exit;

           end;

         if (I > 0) and (J <= 0) then

           begin

             I_sled:= 1;

             J_sled:= 1;

             exit;

           end;

       end;

   end;

   
   
   
   
   

                  // Преобразует строку, удаляет и вставляет подстроку ВМ

   function preobrazovanieVM( vhod_v_preobrazovanie: real ;var kadr: string): string;

   var

     stroka: string[10];

   begin

     delete(kadr,nach,oshibka-1);

     stroka:= FloatToStr(vhod_v_preobrazovanie);  // Преобразуем в число строку

     insert(stroka, kadr, nach);

   end;

   
   
   
   

                 // Преобразует строку, удаляет и вставляет подстроку МАЯК

   function preobrazovanieMAYAK( vhod_v_preobrazovanie: real ;var kadr: string): string;

   var

     stroka: string[10];

   begin

     delete(kadr,nach,oshibka-1);

     if vhod_v_preobrazovanie <> 0 then

       begin

         stroka:= FloatToStrF(vhod_v_preobrazovanie, fffixed, 12, 3);  // Преобразуем в число строку

         vhod_v_preobrazovanie:= StrToFloat(stroka);     // Был глюк при конвертации

         stroka:= FloatToStr(vhod_v_preobrazovanie);      //  Сейчас вроде работает

         stroka:= DobavitTochku(stroka);  // Добавляет точку, если её нет

       end

     else stroka:= '0';      // вставляем без точки

     insert(stroka, kadr, nach);

   end;

   
   
   
   
   

   procedure Podhod_G41_G42_line;

   var

     str: String;

   begin

     str:= stroka.Strings[Succ(m)];

     if Pos('X', str) <> 0 then

       begin

         NaytiKoordinatu(str, 'X', str);

         X_sled:= StrToFloat(str);

       end

     else

       begin

         if (Form2.PC_VM.Checked) or (Form2.MAYAK_VM.Checked) then

           X_sled:= X_nast / 1000

         else

           X_sled:= X_nast;

       end;

     str:= stroka.Strings[Succ(m)];

     if Pos('Y', str) <> 0 then

       begin

         NaytiKoordinatu(str, 'Y', str);

         Y_sled:= StrToFloat(str);

       end

     else

       begin

         if (Form2.PC_VM.Checked) or (Form2.MAYAK_VM.Checked) then

           Y_sled:= Y_pred / 1000

         else

           Y_sled:= Y_nast;

       end;

     if (Form2.PC_VM.Checked) or (Form2.MAYAK_VM.Checked) then

       begin

         X_sled:= X_sled * 1000;

         Y_sled:= Y_sled * 1000;

         X_sled:= X_sled - X_nast;

         Y_sled:= Y_sled - Y_nast;

       end

     else

       begin

         X_sled:= X_sled - X_nast;

         Y_sled:= Y_sled - Y_nast;

       end;

   end;

   
   
   
   
   

   function FindVstavki(koordinata: char; kadr: string): integer;

   begin

     case koordinata of

       'X': begin

              if pos('Y', kadr) <> 0 then Result:= pos('Y', kadr)

              else if pos('I', kadr) <> 0 then Result:= pos('I', kadr)

                else if pos('J', kadr) <> 0 then Result:= pos('J', kadr)

                  else if pos('F', kadr) <> 0 then Result:= pos('F', kadr)

                    else if pos('M', kadr) <> 0 then Result:= pos('M', kadr)

                      else Result:= Length(kadr) + 1;

            end;

       'Y': begin

              if pos('I', kadr) <> 0 then Result:= pos('I', kadr)

              else if pos('J', kadr) <> 0 then Result:= pos('J', kadr)

                else if pos('F', kadr) <> 0 then Result:= pos('F', kadr)

                  else if pos('M', kadr) <> 0 then Result:= pos('M', kadr)

                    else Result:= Length(kadr) + 1;

            end;

       'I': begin

              if pos('J', kadr) <> 0 then Result:= pos('J', kadr)

              else if pos('F', kadr) <> 0 then Result:= pos('F', kadr)

                else if pos('M', kadr) <> 0 then Result:= pos('M', kadr)

                  else Result:= Length(kadr) + 1;

            end;

       'J': begin

              if pos('F', kadr) <> 0 then Result:= pos('F', kadr)

              else if pos('M', kadr) <> 0 then Result:= pos('M', kadr)

                else Result:= Length(kadr) + 1;

            end;

     else

       Result:= Length(kadr) + 1;

     end;

   end;

   
   
   
   

   procedure TForm1.ObrabotkaClick(Sender: TObject);

   label

     metka;

   var

     kol, buf: integer;

     Proc, proci, u: integer;

     vyh: string;

     PolChisla_1Proc, uvel: real;

     bufer: string;

     Priz_pusto_memo: boolean;

   
   
   

   procedure DelProbel(var kadr: string);   // Удаление пробелов

   var

     k: integer;

   begin

     while pos(' ', kadr) <> 0 do

       begin

         k:= pos(' ', kadr);

         delete(kadr, k, 1);

       end;

   end;

   
   

   procedure pustostroka;

   begin

     stroka.Delete(m);            //  Удаляем пустую строку

     Dec(kol);                    //  Уменьшаем кол-во строк на 1

     Dec(m);                      //  Уменьшаем на одну стороку

   end;

   
   
   

   procedure nomerkadra(var kadr: string);

   var

     error, nach, x: integer;

     poz_N7: string [10];

   begin

     poz_N7:= '          ';

     nach:= pos('N',kadr);    // Номер позиции 'N'

     if nach <> 0 then         // Позиция найдена

       begin

         Inc(nach);  // Наращиваем на 1

         poz_N7:= copy(kadr, nach, 10);

         val(poz_N7,x,error);      // проверяем на ошибку

         if error = 1 then

         else

           begin

             delete(kadr,nach,error-1); // Удаляем старое значение

             Inc(buf);                    // Наращиваем кадр на 1

             insert(IntToStr(buf), kadr, nach); // Вставляем новое число

           end;

       end;

   end;

   
   
   
   
   

   Procedure PC_MAYAK(var kadr: string);

   var

     I_est: boolean;

     st: string;

     s: string[10];

   begin

     if (pos('%', kadr) <> 0) or (pos('$', kadr) <> 0) then exit;

     I_est:= False;

     if (pos('I',kadr) <> 0) or (pos('J',kadr) <> 0) then I_est:= true;

     if pos('X',kadr) <> 0 then

       begin

         NaytiKoordinatu(kadr,'X', vyh);

         if oshibka <> 1 then

           begin

             X_nast:= StrToFloat(vyh);

             PreobrazovanieMayak(X_nast, kadr); // не было точки

           end;

       end

     else

       if I_est then  // Добавление Х Если нет

         begin

           uslovie:= FindVstavki('X', kadr);

           s:= FloatToStr(X_nast);

           if X_nast <> 0 then s:= DobavitTochku(s);

           insert(Concat('X', s), kadr, uslovie);

         end;

     if pos('Y',kadr) <> 0 then

       begin

         NaytiKoordinatu(kadr,'Y', vyh);

         if oshibka <> 1 then

           begin

             Y_nast:= StrToFloat(vyh);

             PreobrazovanieMayak(Y_nast, kadr)  // не было точки

           end;

       end

     else

       if I_est then       // Добавление Y Если нет

         begin

           uslovie:= FindVstavki('Y', kadr);

           s:= FloatToStr(Y_nast);

           if Y_nast <> 0 then s:= DobavitTochku(s);

           insert(Concat('Y',s), kadr, uslovie);

         end;                                          // Подходы

     if (pos('G42', kadr) <> 0) or (pos('G41', kadr) <> 0) then

       begin

         try

           s:= Stroka.Strings[Succ(m)]; // ошибка нет строки вообще

         except                         // так не должно быть это ошибка оператора

         on EStringListError do       // добавляем пустую строку и исключаем ошибку

           stroka.Add('');

         end;

         if pos('X', kadr) = 0 then

           begin                                  // Вставка Х и Y если нет

             uslovie:= FindVstavki('X', kadr);

             s:= FloatToStr(X_nast);              // В позиции X Y I J F M

             if X_nast <> 0 then s:= DobavitTochku(s);

             Insert('X' + s, kadr, uslovie);

           end;

         if pos('Y', kadr) = 0 then

           begin

             uslovie:= FindVstavki('Y', kadr);

             s:= FloatToStr(Y_nast);

             if Y_nast <> 0 then s:= DobavitTochku(s);

             Insert('Y' + s, kadr, uslovie);

           end;

         if (pos('I', Stroka.Strings[Succ(m)]) <> 0) and (pos('J', Stroka.Strings[Succ(m)]) <> 0)

         then

           begin

             Naytikoordinatu(Stroka.Strings[Succ(m)], 'I', st);

             I:= StrToFloat(st);

             Naytikoordinatu(Stroka.Strings[Succ(m)], 'J', st);

             J:= StrToFloat(st);

             Podhod_G41_G42_radius;

             J:= J + Y_nast;

             if (I_sled = -1) and (J > 0) then J:= -J;   // ЛОГИЧЕСКИЙ ПЕРЕСЧЁТ

             if (I_sled = 1) and (J < 0) then J:= -J;

             I:= I + X_nast;

             if(J_sled = -1) and (I > 0) then I:= -I;

             if(J_sled = 1) and (I < 0) then I:= -I;

             if pos('J', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'J', st);

                 PreobrazovanieMayak(I, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('J', kadr);

                 Insert('J' + FloatToStr(I), kadr, uslovie);

               end;

             if pos('I', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'I', st);

                 PreobrazovanieMayak(J, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('I', kadr);

                 Insert('I' + FloatToStr(J), kadr, uslovie);

               end;

             X_pred:= X_nast;

             Y_pred:= Y_nast;

             exit;

           end

         else

           begin

             Podhod_G41_G42_line;             // ЛИНЕЙНЫЕ ПОДХОДЫ РАСЧЁТ

             if pos('I', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'I', st);

                 PreobrazovanieMayak(X_sled, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('I', kadr);

                 Insert('I' + FloatToStr(X_sled) + '.', kadr, uslovie);

               end;

             if pos('J', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'J', st);

                 PreobrazovanieMayak(Y_sled, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('J', kadr);

                 Insert('J' + FloatToStr(Y_sled) + '.', kadr, uslovie);

               end;

             exit;

           end;

       end;

     uslovie:= pos('I',kadr);            // расчёт радиусов

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'I',vyh);

         if oshibka = 1 then

         else

           begin

             I:= StrToFloat(vyh);

             I:= X_pred + I;

             preobrazovanieMAYAK(I,kadr);

           end;

       end;

     uslovie:= pos('J',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'J',vyh);

         if oshibka = 1 then

         else

           begin

             J:= StrToFloat(vyh);

             J:= Y_pred + J;

             preobrazovanieMAYAK(J,kadr);

           end;

       end;

     X_pred:= X_nast;

     Y_pred:= Y_nast;

   end;

   
   
   

   Function VM_MAYAK(var kadr: string): string;

   var

     I_est: boolean;

     s, st: string;

   begin    

     if (pos('%', kadr) <> 0) or (pos('$', kadr) <> 0) then exit;

     I_est:= False;

     if (pos('I',kadr) <> 0) or (pos('J',kadr) <> 0) then I_est:= true;

     uslovie:= pos('X',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'X', vyh);

         if oshibka = 1 then

         else

           begin

             vyh:= TrimRight(vyh);      // Удаляем лишние пробелы справа

             X_nast:= StrToFloat(vyh) / 1000;

             preobrazovanieMAYAK(X_nast,kadr);

           end;

       end

     else

       if I_est = true then  // Добавление Х Если нет

         begin

           uslovie:= pos('Y',kadr);

           insert('X'+ vyh, kadr, uslovie);

         end;

     uslovie:= pos('Y',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'Y', vyh);

         if oshibka = 1 then

         else

           begin

             vyh:= TrimRight(vyh);      // Удаляем лишние пробелы справа

             Y_nast:= StrToFloat(vyh) / 1000;

             preobrazovanieMAYAK(Y_nast,kadr);

           end;

       end

     else

       if I_est = true then       // Добавление Y Если нет

         begin

           uslovie:= pos('I',kadr);

           insert('Y' + vyh, kadr, uslovie);

         end;

     if (pos('G42', kadr) <> 0) or (pos('G41', kadr) <> 0) then

       begin

         try

           s:= Stroka.Strings[Succ(m)]; // ошибка нет строки вообще

         except

         on EStringListError do       // добавляем пустую строку и исключаем ошибку

           stroka.Add('');

         end;

         if pos('X', kadr) = 0 then

           begin                                  // Вставка Х и Y если нет

             uslovie:= FindVstavki('X', kadr);

             s:= FloatToStr(X_nast);    // В позиции X Y I J F M

             if X_nast <> 0 then s:= DobavitTochku(s);

             Insert('X' + s, kadr, uslovie);

           end;

         if pos('Y', kadr) = 0 then

           begin

             uslovie:= FindVstavki('Y', kadr);

             s:= FloatToStr(Y_nast);

             if Y_nast <> 0 then s:= DobavitTochku(s);

             Insert('Y' + s, kadr, uslovie);   

           end;

         if (pos('I', Stroka.Strings[Succ(m)]) <> 0) and (pos('J', Stroka.Strings[Succ(m)]) <> 0)

         then

           begin

             Naytikoordinatu(Stroka.Strings[Succ(m)], 'I', st);

             I:= StrToFloat(st);

             Naytikoordinatu(Stroka.Strings[Succ(m)], 'J', st);

             J:= StrToFloat(st);

             Podhod_G41_G42_radius;

             J:= J / 1000;

             J:= J + Y_nast;

             if (I_sled = -1) and (J > 0) then J:= -J;

             if (I_sled = 1) and (J < 0) then J:= -J;

             I:= I / 1000;

             I:= I + X_nast;

             if(J_sled = -1) and (I > 0) then I:= -I;

             if(J_sled = 1) and (I < 0) then I:= -I;

             if pos('J', kadr) <> 0 then

               begin

                  NaytiKoordinatu(kadr, 'J', st);

                  PreobrazovanieMayak(I, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('J', kadr);

                 Insert('J' + FloatToStr(I), kadr, uslovie);

               end;

             if pos('I', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'I', st);

                 PreobrazovanieMayak(J, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('I', kadr);

                 Insert('I' + FloatToStr(J), kadr, uslovie);

               end;

             X_pred:= X_nast;

             Y_pred:= Y_nast;

             exit;

           end

         else

           begin             // Линейный подход

             st:= Stroka.Strings[Succ(m)];

             uslovie:= Pos('X', st);

               if uslovie <> 0 then

                 begin

                   NaytiKoordinatu(st, 'X', st);

                   X_sled:= StrToFloat(st) / 1000;

                   X_sled:= X_sled - X_nast;

                 end

               else X_sled:= 0;            // Если нет в кадре то 0

             st:= stroka.Strings[Succ(m)];

             uslovie:= Pos('Y', st);

             if uslovie <> 0 then

               begin

                 NaytiKoordinatu(st, 'Y', st);

                 Y_sled:= StrToFloat(st) / 1000;

                 Y_sled:= Y_sled - Y_nast;

               end

             else Y_sled:= 0;

             if pos('I', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'I', st);

                 PreobrazovanieMayak(X_sled, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('I', kadr);

                 Insert('I' + FloatToStr(X_sled) + '.', kadr, uslovie);

               end;

             if pos('J', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'J', st);

                 PreobrazovanieMayak(Y_sled, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('J', kadr);

                 Insert('J' + FloatToStr(Y_sled) + '.', kadr, uslovie);

               end;

             exit;

           end;

       end;

     uslovie:= pos('Z',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'Z', vyh);

         if oshibka = 1 then

         else

           begin

             vyh:= TrimRight(vyh);      // Удаляем лишние пробелы справа

             Z:= StrToFloat(vyh) / 1000;

             preobrazovanieMAYAK(Z,kadr);

           end;

       end;

     uslovie:= pos('I',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'I',vyh);

         if oshibka = 1 then

         else

           begin

             vyh:= TrimRight(vyh);      // Удаляем лишние пробелы справа

             I:= StrToFloat(vyh) / 1000;

             I:= X_pred + I;

             preobrazovanieMAYAK(I,kadr);

           end;

       end;

     uslovie:= pos('J',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'J',vyh);

         if oshibka = 1 then

         else

           begin

             vyh:= TrimRight(vyh);      // Удаляем лишние пробелы справа

             J:= StrToFloat(vyh) / 1000;

             J:= Y_Pred + J;

             preobrazovanieMAYAK(J,kadr);

           end;

       end;

     uslovie:= pos('U',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'U', vyh);

         if oshibka = 1 then

         else

           begin

             vyh:= TrimRight(vyh);      // Удаляем лишние пробелы справа

             Uvmmayak:= StrToFloat(vyh) / 1000;

             preobrazovanieMAYAK(Uvmmayak,kadr);

           end;

       end;

     uslovie:= pos('K',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'K', vyh);

         if oshibka = 1 then

         else

           begin

             vyh:= TrimRight(vyh);      // Удаляем лишние пробелы справа

             K:= StrToFloat(vyh) / 1000;

             preobrazovanieMAYAK(K,kadr);

           end;

       end;

     X_pred:= X_nast;

     Y_pred:= Y_nast;

   end;

   
   
   
   
   

   Function MAYAK_VM(var kadr: string): string;

   var

     I_est: boolean;

     uslovie: integer;

     strok: string[10];

     s, st: string;

   begin

     if pos('%', kadr) <> 0 then exit;

     if pos('$', kadr) <> 0 then exit;

     I_est:= False;

     uslovie:= pos('I',kadr);

     if uslovie <> 0 then I_est:= true;

     uslovie:= pos('X',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'X',vyh);

         if oshibka = 1 then

         else

           begin

             X_nast:= StrToFloat(vyh) * 1000;

             X_nast:= Int(X_nast);                 // Отбрасываем дробную часть

             preobrazovanieVM(X_nast,kadr);

           end;

       end

     else

       if I_est then

         begin

           uslovie:= pos('Y',kadr);

           strok:= FloatToStr(X_pred);  // Преобразуем в число строку

           insert('X' + strok, kadr, uslovie);

         end;

     uslovie:= pos('Y',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'Y',vyh);

         if oshibka = 1 then

         else

           begin

             Y_nast:= StrToFloat(vyh) * 1000;

             Y_nast:= Int(Y_nast);                 // Отбрасываем дробную часть

             preobrazovanieVM(Y_nast,kadr);

           end;

       end

     else

       if I_est then

         begin

           uslovie:= pos('I',kadr);

           strok:= FloatToStr(Y_pred);  // Преобразуем в число строку

           insert('Y' + strok, kadr, uslovie);

         end;

     if (pos('G42', kadr) <> 0) or (pos('G41', kadr) <> 0) then

       begin

         try

           s:= Stroka.Strings[Succ(m)]; // ошибка нет строки вообще

         except

         on EStringListError do       // добавляем пустую строку и исключаем ошибку

           stroka.Add('');

         end;

         if pos('X', kadr) = 0 then

           begin                                  // Вставка Х и Y если нет

             uslovie:= FindVstavki('X', kadr);    // В позиции X Y I J F M

             Insert('X' + FloatToStr(X_nast), kadr, uslovie);

           end;

         if pos('Y', kadr) = 0 then

           begin

             uslovie:= FindVstavki('Y', kadr);

             Insert('Y' + FloatToStr(Y_nast), kadr, uslovie);

           end;

         if (pos('I', Stroka.Strings[Succ(m)]) <> 0) and (pos('J', Stroka.Strings[Succ(m)]) <> 0)

         then

           begin

             Naytikoordinatu(Stroka.Strings[Succ(m)], 'I', st);

             I:= StrToFloat(st);

             Naytikoordinatu(Stroka.Strings[Succ(m)], 'J', st);

             J:= StrToFloat(st);

             J:= J * 1000;

             I:= I * 1000;

             I:= I - X_nast;

             J:= J - Y_nast;

             Podhod_G41_G42_radius;

             if (I_sled = -1) and (J > 0) then J:= -J;

             if (I_sled = 1) and (J < 0) then J:= -J;

             if(J_sled = -1) and (I > 0) then I:= -I;

             if(J_sled = 1) and (I < 0) then I:= -I;

             if pos('J', kadr) <> 0

             then

               begin

                 NaytiKoordinatu(kadr, 'J', st);

                 PreobrazovanieVM(I, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('J', kadr);

                 Insert('J' + FloatToStr(I), kadr, uslovie);

               end;

             if pos('I', kadr) <> 0

             then

               begin

                 NaytiKoordinatu(kadr, 'I', st);

                 PreobrazovanieVM(J, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('I', kadr);

                 Insert('I' + FloatToStr(J), kadr, uslovie);

               end;

             X_pred:= X_nast;

             Y_pred:= Y_nast;

             exit;

           end

         else

           begin

             Podhod_G41_G42_line;

             if pos('I', kadr) <> 0

             then

               begin

                 NaytiKoordinatu(kadr, 'I', st);

                 PreobrazovanieVM(X_sled, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('I', kadr);

                 Insert('I' + FloatToStr(X_sled), kadr, uslovie);

               end;

             if pos('J', kadr) <> 0

             then

               begin

                 NaytiKoordinatu(kadr, 'J', st);

                 PreobrazovanieVM(Y_sled, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('J', kadr);

                 Insert('J' + FloatToStr(Y_sled), kadr, uslovie);

               end;

             exit;

           end;

       end;

     uslovie:= pos('I',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'I',vyh);

         if oshibka = 1 then

         else

           begin

             I:= StrToFloat(vyh) * 1000;

             I:= Int(I);                 // Отбрасываем дробную часть

             I:= I - X_pred;

             preobrazovanieVM(I,kadr);

           end;

       end;

     uslovie:= pos('J',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'J',vyh);

         if oshibka = 1 then

         else

           begin

             J:= StrToFloat(vyh) * 1000;

             J:= Int(J);                  // Отбрасываем дробную часть

             J:= J - Y_pred;

             preobrazovanieVM(J,kadr);

           end;

       end;

     uslovie:= pos('Z',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'Z',vyh);

         if oshibka = 1 then

         else

           begin

             Z:= StrToFloat(vyh) * 1000;

             Z:= Int(Z);                  // Отбрасываем дробную часть

             preobrazovanieVM(Z,kadr);

           end;

       end;

     uslovie:= pos('A',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'A',vyh);

         if oshibka = 1 then

         else

           begin

             A:= StrToFloat(vyh) * 1000;

             A:= Int(A);                   // Отбрасываем дробную часть

             preobrazovanieVM(A,kadr);

             Delete(kadr, uslovie, 1);

             Insert('U',kadr,uslovie);

           end;

       end;

     uslovie:= pos('K',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'K',vyh);

         if oshibka = 1 then

         else

           begin

             K:= StrToFloat(vyh) * 1000;

             K:= Int(K);                  // Отбрасываем дробную часть

             preobrazovanieVM(K,kadr);

           end;

       end;

     X_pred:= X_nast;

     Y_pred:= Y_nast;

   end;

   
   
   

   procedure PC_VM(var kadr: string);

   var

     uslovie: integer;

     I_est: boolean;

     s, st: string;

   begin

     if (pos('%', kadr) <> 0) or (pos('$', kadr) <> 0) then exit;

     I_est:= False;

     if (pos('I',kadr) <> 0) or (pos('J',kadr) <> 0) then I_est:= true;

     if pos('X',kadr) <> 0 then

       begin

         NaytiKoordinatu(kadr,'X',vyh);

         if oshibka = 1 then

         else

           begin

             X_nast:= StrToFloat(vyh) * 1000;

             X_nast:= Int(X_nast);                 // Отбрасываем дробную часть

             preobrazovanieVM(X_nast,kadr);

           end;

       end

     else

       if I_est then

         begin

           uslovie:= pos('Y',kadr);            // Преобразуем в число строку

           insert('X' + FloatToStr(X_pred), kadr, uslovie);

         end;

     if pos('Y',kadr) <> 0 then

       begin

         NaytiKoordinatu(kadr,'Y',vyh);

         if oshibka = 1 then

         else

           begin

             Y_nast:= StrToFloat(vyh) * 1000;

             Y_nast:= Int(Y_nast);                 // Отбрасываем дробную часть

             preobrazovanieVM(Y_nast,kadr);

           end;

       end

     else

       if I_est then

         begin

           uslovie:= pos('I',kadr);                 // Преобразуем в число строку

           insert('Y' + FloatToStr(Y_pred), kadr, uslovie);

         end;

     if (pos('G42', kadr) <> 0) or (pos('G41', kadr) <> 0) then

       begin

         try

           s:= Stroka.Strings[Succ(m)]; // ошибка нет строки вообще

         except

         on EStringListError do       // добавляем пустую строку и исключаем ошибку

           stroka.Add('');

         end;

         if pos('X', kadr) = 0 then

           begin                                  // Вставка Х и Y если нет

             NaytiKoordinatu(Stroka.Strings[Succ(m)], 'X', s);

             if oshibka <> 1 then

               begin

                 uslovie:= FindVstavki('X', kadr);

                 s:= TrimRight(s);

                 X_nast:= StrToFloat(s) * 1000;    // В позиции X Y I J F M

                 Insert('X' + FloatToStr(X_nast), kadr, uslovie);

               end

             else

               begin

                 X_nast:= X_pred;

                 uslovie:= FindVstavki('X', kadr); // В позиции X Y I J F M

                 Insert('X' + FloatToStr(X_nast), kadr, uslovie);

               end;

           end;

         if pos('Y', kadr) = 0 then

           begin

             uslovie:= FindVstavki('Y', kadr);

             NaytiKoordinatu(Stroka.Strings[Succ(m)], 'Y', s);

             s:= TrimRight(s);

             Y_nast:= StrToFloat(s) * 1000;

             Insert('Y' + FloatToStr(Y_nast), kadr, uslovie);

           end;

         if (pos('I', Stroka.Strings[Succ(m)]) <> 0) and (pos('J', Stroka.Strings[Succ(m)]) <> 0)

         then

           begin

             Naytikoordinatu(Stroka.Strings[Succ(m)], 'I', st);

             I:= StrToFloat(st);

             Naytikoordinatu(Stroka.Strings[Succ(m)], 'J', st);

             J:= StrToFloat(st);

             Podhod_G41_G42_radius;

             J:= J * 1000;

             J:= Int(J);

             if (I_sled = -1) and (J > 0) then J:= -J;

             if (I_sled = 1) and (J < 0) then J:= -J;

             if Pos('I', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'I', s);

                 PreobrazovanieVM(J, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('I', kadr);

                 Insert('I' + FloatToStr(J), kadr, uslovie);

               end;

             I:= I * 1000;

             I:= Int(I);

             if(J_sled = -1) and (I > 0) then I:= -I;

             if(J_sled = 1) and (I < 0) then I:= -I;

             if Pos('J', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'J', s);

                 PreobrazovanieVM(I, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('J', kadr);

                 Insert('J' + FloatToStr(I), kadr, uslovie);

               end;

             Exit;

           end

         else

           begin

             Podhod_G41_G42_line;

             X_sled:= Int(X_sled);

             if Pos('X', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'I', s);

                 PreobrazovanieVM(X_sled, kadr);

               end

             else

               begin

                 uslovie:= FindVstavki('Y', kadr);

                 Insert(FloatToStr(X_sled), kadr, uslovie);

               end;

             Y_sled:= Int(Y_sled);

             if Pos('Y', kadr) <> 0 then

               begin

                 NaytiKoordinatu(kadr, 'J', s);

                 PreobrazovanieVM(Y_sled, kadr);

                 X_pred:= X_nast;

                 Y_pred:= Y_nast;

                 exit;

               end

             else

               begin

                 uslovie:= FindVstavki('X', kadr);

                 Insert(FloatToStr(Y_sled), kadr, uslovie);

               end;

           end;

       end;

     if pos('I',kadr) <> 0 then

       begin

         NaytiKoordinatu(kadr,'I',vyh);

         if oshibka = 1 then

         else

           begin

             I:= StrToFloat(vyh) * 1000;

             I:= Int(I);                 // Отбрасываем дробную часть

             preobrazovanieVM(I,kadr);

           end;

       end;

     if pos('J',kadr) <> 0 then

       begin

         NaytiKoordinatu(kadr,'J',vyh);

         if oshibka = 1 then

         else

           begin

             J:= StrToFloat(vyh) * 1000;

             J:= Int(J);                  // Отбрасываем дробную часть

             preobrazovanieVM(J,kadr);

           end;

       end;

     if pos('Z',kadr) <> 0 then

       begin

         NaytiKoordinatu(kadr,'Z',vyh);

         if oshibka = 1 then

         else

           begin

             Z:= StrToFloat(vyh) * 1000;

             Z:= Int(Z);                  // Отбрасываем дробную часть

             preobrazovanieVM(Z,kadr);

           end;

       end;

     uslovie:= pos('A',kadr);

     if uslovie <> 0 then

       begin

         NaytiKoordinatu(kadr,'A',vyh);

         if oshibka = 1 then

         else

           begin

             A:= StrToFloat(vyh) * 1000;

             A:= Int(A);                   // Отбрасываем дробную часть

             preobrazovanieVM(A,kadr);

             Delete(kadr, uslovie, 1);

             Insert('U',kadr,uslovie);

           end;

       end;

     if pos('K',kadr) <> 0 then

       begin

         NaytiKoordinatu(kadr,'K',vyh);

         if oshibka = 1 then

         else

           begin

             K:= StrToFloat(vyh) * 1000;

             K:= Int(K);                  // Отбрасываем дробную часть

             preobrazovanieVM(K,kadr);

           end;

       end;

       X_pred:= X_nast;

       Y_pred:= Y_nast;

   end;

   
   
   

          //  НАЧАЛО ОСНОВНОЙ ПРОГРАММЫ  obrabotka

   
   

   begin

     if (Form1.NomerKadra.State = cbUnchecked) and (Form1.Probel.State = cbUnchecked) and

       (Form1.Pustostr.State = cbUnchecked) and (Form2.Ne_obrabatyvat.Checked) then

       begin

         ShowMessage(' Обработка не задана ');

         Goto metka;

       end;

     Priz_pusto_memo:= false;

     kol:= Memo1.Lines.Count;    //   Количество строк

     if kol = 0 then             //   Если поле пусто

       begin

         ShowMessage(' В поле редактирования пусто ');

         Goto metka;

       end;

     memo1mod:= true;

     Panel1.Caption:= IntToStr(kol);

     buf:= 0;   m:= 0;   I:= 0;   J:= 0;

     PolChisla_1Proc:= kol div 100;

     uvel:= PolChisla_1Proc;

     Indikator.Position:= 0;

     Proc:= Succ(Indikator.Position);

     u:= 100 div kol;

     Proci:= u;

     stroka:= TStringList.Create();

     stroka.Text:= Memo1.Text;

     Memo1.Clear;

     repeat

       bufer:= stroka.Strings[m];

       Panel2.Caption:= IntToStr(Succ(m));

       Panel2.Refresh;

       if (Form1.Probel.Checked)then

         DelProbel(bufer);                                // Удаляем пробелы

       if Form1.NomerKadra.Checked then                 // включен переключатель

         nomerkadra(bufer);

       if Form2.PC_MAYAK.Checked then

         pc_mayak(bufer);

       if Form2.PC_VM.Checked then

         pc_vm(bufer);

       if Form2.VM_MAYAK.Checked then

         VM_MAYAK(bufer);

       if Form2.MAYAK_VM.Checked then

         Mayak_vm(bufer);

       if kol >= 100 then

         begin

           if m >= PolChisla_1Proc then

             begin

               Indikator.Position:= Proc;

               Form1.PanelSostoyaniya.Panels[1].Text:= ' Выполнено ' + IntToStr(Indikator.Position) + ' %';

               PanelSostoyaniya.Refresh;  // Перерисовка панели

               Inc(proc);

               PolChisla_1Proc:= PolChisla_1Proc + uvel;

             end;

         end

           else

             begin

               Indikator.Position:= Proci;

               Form1.PanelSostoyaniya.Panels[1].Text:= ' Выполнено ' + IntToStr(Indikator.Position) + ' %';

               PanelSostoyaniya.Refresh;  // Перерисовка панели

               Inc(proci, u);

             end;

       stroka.Strings[m]:= bufer;   // Для токарного станка

       if Length(bufer) = 0 then

         if Form1.PustoStr.Checked then

           pustostroka;

       Bufer:= '';        //  Очистка строки Буфер

       Inc(m);       // Следующая строка (+1)

     until m >= kol;

     Panel1.Caption:= IntToStr(Stroka.Count);  // Сколько реально осталось

     Form1.PanelSostoyaniya.Panels[1].Text:= ' Выполнено ' + '100' + ' %';

     Indikator.Position:= 100;

     if (Form2.PC_MAYAK.Checked) or (Form2.PC_VM.Checked) or (Form2.VM_MAYAK.Checked) or (Form2.MAYAK_VM.Checked) then

       begin

         Form2.PC_VM.Enabled:= false;

         Form2.PC_MAYAK.Enabled:= false;

         Form2.VM_MAYAK.Enabled:= false;

         Form2.MAYAK_VM.Enabled:= false;

         Form2.Ne_obrabatyvat.Checked:= true;

       end;

     try      //  Ошибка если в Memo1 пробелы

     if Stroka.Strings[0] <> '' then    // Вставить пустую строку если её нет

       Stroka.Insert(0, '');

     except

       on EStringListError do

     end;

     Memo1.Text:= Stroka.Text;

     stroka.Free;

     metka:                     // если Поле пустое то выход сюда

   end;

   
   

   procedure TForm1.ToolButton6Click(Sender: TObject);  // Кнопка очистить

   begin

     Memo1.Clear;

     Panel1.Caption:= '0';

     Panel2.Caption:= '0';

     Form2.PC_VM.Enabled:= true;

     Form2.PC_MAYAK.Enabled:= true;

     Form2.VM_MAYAK.Enabled:= true;

     Form2.MAYAK_VM.Enabled:= true;

     Label1.Caption:= '';

     Form2.FormActivate(Sender);

     Memo1.SetFocus;

     Indikator.Position:= 0;

   end;

   
   
   

   procedure TForm1.ToolButton4Click(Sender: TObject);  // Кнопка параметры

   begin

     Form2.ShowModal;

   end;

   
   
   
   

   procedure TForm1.Toolbutton9Click(Sender: TObject); // Кнопка найти и заменить

   begin

     ReplaceDialog1.Execute;

   end;

   
   
   

   procedure TForm1.ReplaceDialog1Replace(Sender: TObject); // Кнопка найти и заменить

   label

     10;

   begin

     Memo1.HideSelection:= true;

     10:

     if pos(ReplaceDialog1.FindText, Memo1.Text) <> 0 then

       begin

         Memo1.SelStart:= pos(ReplaceDialog1.FindText, Memo1.Text) - 1 ;

         Memo1.SelLength:= Length(ReplaceDialog1.FindText);

         Memo1.SelText:= ReplaceDialog1.ReplaceText;

         goto 10;

       end;

     Memo1.HideSelection:= false;

   end;

   
   
   

   procedure TForm1.memo1KeyDown(Sender: TObject; var Key: Word;

     Shift: TShiftState);

   begin

     Panel1.Caption:= IntToStr(Memo1.Lines.Count);

   end;

   
   
   

   procedure TForm1.ToolButton5Click(Sender: TObject); // Кнопка в верхний регистр

   begin

     Memo1.Text:= UpperCase(Memo1.Text);

   end;

   
   
   
   

   procedure TForm1.ToolButton8Click(Sender: TObject);

   begin

     Form5.Visible:= true;

   end;

   
   
   
   

   end.

   Файл Unit2.pas

   
   

   unit Unit2;

   
   

   interface

   
   

   uses

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

     Dialogs, StdCtrls, ComCtrls, ExtCtrls;

   
   

   type

     TForm2 = class(TForm)

       PereschotProg: TGroupBox;

       PC_MAYAK: TRadioButton;

       Ne_obrabatyvat: TRadioButton;

       PC_VM: TRadioButton;

       VM_MAYAK: TRadioButton;

       MAYAK_VM: TRadioButton;

       Button1: TButton;

       Mayk223mp: TRadioButton;

       procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

       procedure FormActivate(Sender: TObject);

       procedure Button1Click(Sender: TObject);

   
   

     private

       { Private declarations }

     public

       { Public declarations }

     end;

   
   

   var

     Form2: TForm2;

   
   

   implementation

   
   

   uses Unit1;

   
   

   {$R *.dfm}

   
   
   

   procedure Sostoyanie_perekluchateley;

   begin

     if Form2.Ne_obrabatyvat.Checked then

       Form1.PanelSostoyaniya.Panels[0].Text:= st + Form2.Ne_obrabatyvat.Caption

     else

       if Form2.PC_MAYAK.Checked then

         Form1.PanelSostoyaniya.Panels[0].Text:= st + Form2.PC_MAYAK.Caption

     else

       if Form2.PC_VM.Checked then

         Form1.PanelSostoyaniya.Panels[0].Text:= st + Form2.PC_VM.Caption

     else

       if Form2.VM_MAYAK.Checked then

         Form1.PanelSostoyaniya.Panels[0].Text:= st + Form2.VM_MAYAK.Caption

     else

       if Form2.MAYAK_VM.Checked then

         Form1.PanelSostoyaniya.Panels[0].Text:= st + Form2.MAYAK_VM.Caption

     else

       if Form2.Mayk223mp.Checked then

         Form1.PanelSostoyaniya.Panels[0].Text:= st + Form2.Mayk223mp.Caption;

   end;

   
   
   
   

   procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

   begin

     Sostoyanie_perekluchateley;

     If Mayk223mp.Checked then

       begin

         Form2.Close;

       end;

   end;

   
   

   procedure TForm2.FormActivate(Sender: TObject);

   begin

     Sostoyanie_perekluchateley;

   end;

   
   

   procedure TForm2.Button1Click(Sender: TObject);

   begin

     Sostoyanie_perekluchateley;

     Form2.Close;

   end;

   
   

   end.

   
   

   Файл Unit5.pas

   unit Unit5;

   
   

   interface

   
   

   uses

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

     Dialogs, ExtCtrls, StdCtrls;

   
   

   type

     TForm5 = class(TForm)

       GroupBox1: TGroupBox;

       RadioButton1: TRadioButton;

       Edit1: TEdit;

       Label1: TLabel;

       ButtonObpabotka: TButton;

       ButtonNastroyka: TButton;

       procedure FormActivate(Sender: TObject);

       procedure ButtonObpabotkaClick(Sender: TObject);

       procedure ButtonNastroykaClick(Sender: TObject);

     private

       { Private declarations }

     public

       { Public declarations }

     end;

   
   

   var

     Form5: TForm5;

   
   

   implementation

   
   

   uses unit1, unit6;

   
   
   

   {$R *.dfm}

   
   
   
   

   procedure TForm5.FormActivate(Sender: TObject);

   begin

     Form5.Caption:= Application.Title;

   end;

   
   

   procedure TForm5.ButtonObpabotkaClick(Sender: TObject);

   var

     stroka, stroka1: TStrings;

     Name_File, kol_v_stroka: integer;

     chast, chot, ObshiySchot: integer;

     st, name: WideString;

   begin

     stroka:= TStringList.Create();

     stroka1:= TStringList.Create();

     chot:= 0;  Name_File:= 1; chast:= 0;

     chast:= StrToInt(Edit1.Text) * 955;

     kol_v_stroka:= 0;

     ObshiySchot:= 0;

     stroka1.Text:= Form1.memo1.Text;

     repeat

       try

         st:= stroka1.Strings[ObshiySchot];

       except

         on EStringListError do

           begin

             Stroka.Free;

             stroka1.Free;

             Form1.memo1.Text:= ' Ошибка в редакторе: Возможно в поле редактирования пусто или одни пробелы';

             Form5.Close;

             Exit;

           end;

       end;

       if chot <= chast then

         begin

           stroka.Insert(kol_v_stroka, st);

           Inc(chot, Length(st));                  //  Увеличиваем на длину строки

           Inc(kol_v_stroka);

           Inc(ObshiySchot);

         end

       else

         begin

           name:= Concat('E:\Наладчик\Пров\', IntToStr(Name_File), '.txt');

           stroka.SaveToFile(name);

           stroka.Clear;

           chot:= 0;

           kol_v_stroka:= 0;

           Name_File:= Succ(Name_File);

         end;

       if (stroka1.Count = ObshiySchot) and (Length(stroka.Text) <> 0) then

         begin

           name:= Concat('E:\Наладчик\Пров\', IntToStr(Name_File), '.txt');

           stroka.SaveToFile(name);

         end;

     until stroka1.Count = ObshiySchot;

     stroka.Free;

     stroka1.Free;

     Form5.Close;

     ShowMessage(' Обработка завершена ');

   end;

   
   

   procedure TForm5.ButtonNastroykaClick(Sender: TObject);

   var

     NameF: WideString;

   begin

     Form6.Visible:= true;

   end;

   
   

   end.

   Файл Unit6.pas

   unit Unit6;

   
   

   interface

   
   

   uses

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

     Dialogs, ExtCtrls, StdCtrls, Registry, FileCtrl;

   
   

   type

     TForm6 = class(TForm)

       Panel1: TPanel;

       Memo1: TMemo;

       ButtonRedEndFile: TButton;

       ButtonRedPapku: TButton;

       Label1: TLabel;

       SaveDialog1: TSaveDialog;

       procedure FormActivate(Sender: TObject);

       procedure ButtonRedPapkuClick(Sender: TObject);

     private

       { Private declarations }

     public

       { Public declarations }

     end;

   
   

   var

     Form6: TForm6;

     RegIni: TRegistry;

   
   

   implementation

   
   

   uses unit1;

   
   

   {$R *.dfm}

   
   

   procedure TForm6.FormActivate(Sender: TObject);

   begin

     Form6.Caption:= Application.Title;

     RegIni:= TRegistry.Create;

     RegIni.RootKey:= HKEY_LOCAL_MACHINE;

     RegIni.OpenKey('Software\Naladchik', false);

     Label1.Caption:= RegIni.ReadString('pach');

     RegIni.CloseKey;

     RegIni.Free;

   end;

   
   

   procedure TForm6.ButtonRedPapkuClick(Sender: TObject);

   begin

     if SaveDialog1.Execute then

       begin

         Label1.Caption:= SaveDialog1.FileName;

         RegIni:= TRegistry.Create;

         RegIni.RootKey:= HKEY_LOCAL_MACHINE;

         RegIni.OpenKey('Software\Naladchik', true);

         RegIni.CreateKey('a');

         RegIni.WriteString('pach', SaveDialog1.FileName);

         RegIni.CloseKey;

         RegIni.Free;

       end;

   end;

   
   

   end.

   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   

   ПРИЛОЖЕНИЕ 2

   РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ

   Главное окно программы

   При запуске программы, появляется главное окно, представленное на рис.П.2.1.

                                                         Рис.П. 2.1

   При нажатии кнопки «Открыть», открывается диалоговое окно выбора файла рис. П.2.2.

    

   
   
   
   
   
   
   

   Рис.П.2.2

   Выбираем обработку рис.П.2.3. и  нажимаем «Закрыть»
   
   

                                  Рис.П.2.3

   
   

   Нажимаем кнопку «Обработка» рис.П.2.4.

   Рис.П.2.4

   Всё программа полностью обработана заданным методом обработки

   
   
   

   ПРИЛОЖЕНИЕ 3        

   РУКОВОДСТВО ПРОГРАММИСТА

   3.1. Назначение программы

            Программа «Наладчик» предназначена для конвертирования исходного текста программ для станков с ЧПУ. И предназначена для использования на производстве в различных областях.

            Программа позволяет:

   –   конвертировать программный текст в любою из доступных программе систем;

   –   удалять лишние пробелы;

   –   удалять пустые строки;

   –   устанавливать периодическую нумерацию кадров;

   –   задавать шрифт(цвет, размер, тип);

   –   печать документа;

   –   визуальный контроль обработки;

   –   менять регистр букв к заглавным(что требует синтаксис программ);

   –   разбивать программу на заданное количество частей;

   –   осуществляет поиск и замену по образцу.

   3.2. Условия применения программы

   Разработанная программа является приложением MS Windows. Для ее работы требуется наличие на компьютере операционной системы MS Windows NT4.0/2000/XP и все вытекающее отсюда техническое обеспечение.

   Кроме того, требуется:

   –   физическая память 1Mб + память на используемые и создаваемые текстовые файлы (не менее 5 Мб);

   –   оперативная память 2*размер текстового файла. При нехватке оперативной памяти может использоваться виртуальная память. А за счет того, что все данные находятся в памяти, сильно сокращается время решения задач.

   Для написания программы использовалась среда разработки Borland Delphi 7.

   3.3.  Характеристики программы

   
   

   После запуска программы пользователь может запускать решение задачи в следующей последовательности:

   - выбор (открытие) текстового файла;

   - выбор метода конвертирования;

   - выбор шрифта;

   - выбор дополнительных методов обработки

   3.4. Обращение к программе

   Запустить программу можно из оболочки Windows, посредством запуска файла Наладчик.ехе

   
   

   3.5. Входные и выходные данные

   В качестве входных и выходных данных используются текстовые файлы.

              

   3.6 Сообщения

   Сообщения, выдаваемые оператору приведены в табл. П.3.1.

                                                                                                                 Таб.П.3.1

   Вид сообщения

   Описание

   Действие

   В поле редактирования пусто

   В поле редактирования нет ни какого текста

   Введите текст в поле редактирования

   Обработка не задана

   Не поставлена ни одна галочка задач обработки

   Задайте обработку

   
   
   
   
   
   
   

            ПРИЛОЖЕНИЕ 4              

   РУКОВОДСТВО ОПЕРАТОРА

   4.1. Назначение программы

   Программа «Наладчик» предназначена для конвертирования исходного текста программ для станков с ЧПУ. И предназначена для использования на производстве в различных областях.

            Программа позволяет:

   –   конвертировать программный текст в любою из доступных программе систем;

   –   удалять лишние пробелы;

   –   удалять пустые строки;

   –   восстанавливать периодическую нумерацию кадров;

   –   задавать шрифт(цвет, размер, тип);

   –   печать документа;

   –   визуальный контроль обработки;

   –   менять регистр букв к заглавным(что требует синтаксис программ);

   –   разбивать программу на заданное количество частей;

   –   осуществляет поиск и замену по образцу.

   4.2. Условия выполнения программы

   Разработанная программа является приложением MS Windows. Для ее работы требуется наличие на компьютере операционной системы MS Windows 98/NT4.0/2000/XP и все вытекающее отсюда техническое обеспечение.

   Кроме того, требуется:

   –   физическая память 1Mб + память на используемые и создаваемые из текстовые файлы (не менее 10 Мб);

   –   оперативная память 2*размер используемого файла. При нехватке оперативной памяти может использоваться виртуальная память. А за счет того, что все данные находятся в памяти, сильно сокращается время решения задач.

   Для написания программы использовалась среда разработки Borland Delphi 7.

   4.3. Выполнение программы

   Программа представлена в виде формы, в главном окне которого производится выбор функции программы. Режим работы программы – диалоговый. Все выполняемые программой функции запускаются с помощью соответствующих кнопок.

   Для запуска программы оператор из оболочки системы Windows должен произвести запуск файла Наладчик.ехе

   
   

   Главное окно программы

   Рис.П.4.1

    

    

   Панель инструментов

   Рис.П.4.2

    ----- открыть файл

    ----- сохранить файл

    ----- распечатать содержимое поля редактирования

     ----- при нажатии этой кнопки появляется дополнительный диалог обработки (см. далее)

   ----- очистить поле редактирования

    ----- при нажатии этой кнопки появляется дополнительный диалог замены (см. далее)

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

   ------ при нажатии появляется дополнительный диалог (разбивка файла на несколько частей)

   
   

   Меню файл

   Выход – выход из программы;

   Сохранить – вызов диалогового окна (Сохранить как);

   Открыть – вызов диалогового окна (Сохранить как);

   Печать – вызов диалогового окна (Печать).

   Меню настройки

   Шрифт - вызов диалогового окна(Шрифт);

   Принтер - вызов диалогового окна(Настройка печати);

   Параметры - вызов диалогового окна(Параметры).

   Меню справка

   Вызов диалогового окна(Версия) Рис.П.4.3.

   
   

   Рис.П.4.3

   Работа начинается с открытия текстового файла   либо выбором пункта меню Файл – открыть. В результате открывается диалог выбора файла  Рис. П.4.4.

   
   
   
   
   
   
   
   
   
   
   
   
   
   

     Рис. П.4.4

   Выбираем файл, нажимаем открыть. Следующим действием нажимаем,   появляется диалог, в котором выбираем желаемый метод обработки.

   Не обрабатывать – пересчет производится не будет.

   ПК – МАЯК – выбрана обработка конвертирование системы (Sinumeric – Маяк).

   ПК – ВМ – выбрана обработка конвертирование системы (Sinumeric – ВМ).

   ВМ – МАЯК – выбрана обработка конвертирование системы (ВМ – Маяк).

   МАЯК – ВМ – выбрана обработка конвертирование сис                                                      Рис.П.4.5                      темы (Маяк - ВМ).

   Кнопка «Закрыть» закрывает диалог, В результате выбранных вами действий результат выбора отображается в левом нижнем углу главной формы рис.П.4.6.

   
   

   Рис.П.4.6

    

   Выбрано обработка ПК – МАЯК

   Дополнительная панель настройки обработки

   
   
   

   Номера кадров – упорядочить номера кадров, начиная с 1.

   
   

   Пробелы – будут удалены все пробелы.

   
   

   Пустые строки – будут удалены все пустые строки.

   
   

         Рис.П.4.7

   4.4 Информация во время обработки

   
   

   нажимаем кнопку <Обработка>

   
   
   

   Рис.П.4.8

   Это - информационная панель, отображающая в процентах и графически, сколько уже обработано данных файла во время обработки рис.П.4.9.

   
   

   Рис.П.4.9

   
   
   
   

   Во время обработки в верхней части окна показано, сколько обработано строк, в нижней сколько всего рис.П.4.9.1.

   
   
   

   Рис.П.4.9.1

    

   
   

   Всё файл обработан, сохраняем   или меню файл – сохранить

   В результате нажатия вышесказанной кнопки появляется следующий диалог.

   Выберите желаемый файл из списка или напишите имя в поле «Имя файла» рис.П.4.9.2.

    

   
   

   Рис.П.4.9.2

   
   

    всё, можно закрывать программу кнопка «Закрыть»

   Функция разделения файла

   
   

   При нажатии кнопки  на панели инструментов (Рис.П.4.9.3.) появляется диалог «Разбивка файла на несколько частей»

   Рис.П.4.9.3

   
   
   

   При нажатии на кнопку «Обработка» происходит разбивка файла на файлы заданной ёмкости. Нажимаем кнопку «Настройка» рис.П.4.9.3.

   
   

   Рис.П.4.9.4

   
   

               В этом диалоге при нажатии кнопки «Редактирование вставки в конец файла» текст набранный в поле редактора (находится внизу формы) вставляется в каждую часть файла рис.П.4.9.4.

   
   

            При нажатии кнопки «Редактировать конечную папку» появляется диалог «Сохранить как» (Рис.П.4.9.2 ).

   4.5. Дополнительные настройки

   Меню – Настройки

    

               Шрифт – выбор шрифта для поля редактирования рис.П.4.9.5.

   
   

   Рис.П.4.9.5

   
   

   Принтер – установка свойств принтера для вывода на печать рис.П.4.9.6.

   
   

    Рис.П.4.9.6

   
   
   
   
   

   Это диалог вызывается нажатием кнопки  и работает как замена чего-то чем-то. В данном примере все вхождения X заменяются Y рис.П.4.9.7.

   Рис.П.4.9.7

   4.6. Инструкции по обработке исключительных ситуаций

   Во время работы программы могут поступать сообщения пользователю (исключительные ситуации), которые запрограммированы лишь для повышения надёжности программы и исключения, как можно больше ошибок.

   - Это сообщение поступает, когда вы нажимаете кнопку <Обработка>, но в поле редактирования пусто.

   Действия – откройте не пустой файл и повторите обработку.
             Рис.П.4.9.8

   Сообщение появляется при попытке закрыть программу, не сохранив изменившееся поле редактирования.

   
   

   Действия – если хотите сохранить изменённый файл нажмите <Yes>  иначе <No>                 рис.П.4.9.9

   4.7. Дополнительные инструкции по программированию и математическая постановка

   Как отмечалось выше, эта версия программы обрабатывает исходный код, который генерирует программа Unigraphics.

   Пример кода из Unigraphics

   Программа 1

     N0800 X90.91 Y-160.881

     N0810 G3 X91.643 Y-166.402 I423.693 J53.462

     N0820 X92.657 Y-173.301 I350.64 J47.998

     N0830 G1 X91.625 Y-178.443

     N0840 G2 X91.623 Y-178.442 I2.026 J6.7

     N0850 X90.181 Y-177.736 I1.441 J4.76

     N0860 G1 X89.494 Y-177.174

     N0870 X89.242 Y-176.969

   
   

   Как видно из примера, координаты задаются в миллиметрах до 0.001 долей (при обработке в программе Наладчик размеры разрядностью более 0.001 отбрасываются).

   Пример    Unigraphics 0.0016     после обработки    Наладчик 0.001

   Центр радиуса задаётся относительно начальной точки радиуса (относительно).

     N0810 G3 X91.643 Y-166.402 I423.693 J53.462

   ПК – МАЯК

   У Маяков, как известно координаты задаются тоже в миллиметрах, но I, J – координаты центра радиусов задаются относительно начала системы координат (абсолютно) таб.П.4.10.

   Таблица П4.10

   Программа до и после обработки.

   Программа до обработки

   (программа 1)

   Программа после обработки ПК – МАЯК(программа 2)

     N0800 X90.91 Y-160.881

     N0810 G3 X91.643 Y-166.402 I423.693 J53.462

     N0820 X92.657 Y-173.301 I350.64 J47.998

     N0830 G1 X91.625 Y-178.443

     N0840 G2 X91.623 Y-178.442 I2.026 J6.7

     N0850 X90.181 Y-177.736 I1.441 J4.76

     N0860 G1 X89.494 Y-177.174

     N0870 X89.242 Y-176.969

   N73X90.91Y-160.881

   N74G3X91.643Y-166.402I514.603J-107.419

   N75X92.657Y-173.301I442.283J-118.404

   N76G1X91.625Y-178.443

   N77G2X91.623Y-178.442I93.651J-171.743

   N78X90.181Y-177.736I93.064J-173.682

   N79G1X89.494Y-177.174

   N80X89.242Y-176.969

   
   

   Принцип пересчёта:

   Пересчёт радиусов

   I_наст = X_пред + I_наст                      Это формулы пересчёта радиусов с относительной в

   J_наст = Y_пред + J_наст                    абсолютную систему координат. 

    

    

            То есть, для кадра N74 (программа 2) берём из кадра N0800 (программа 1) X, Y из N0810 берём I, J получаем:

   I_наст = X90.91 + I423.693 = 514.603 результат обработки в программе 2 (кадр N74)

   J_наст = Y-160.881 + J53.462 = -107.419

    

   Расчёт линейных заходов (функции G41, G42) на эквидистанту контура обрабатываемой детали.

   Таблица П4.11

   Добавление недостающих координат

   до обработки (программа 1)

   после обработки (программа 2)

   N5G1Z-25.F500M8

   N6G90G42D20X-104.6Y0F20

   N7Y-23.

   N5G1Z-25.F500M8

   N6G90G42D20X-104.6Y0I0J-23.F20

   N7Y-23.

   Здесь мы видим, что в программу были вставлены недостающие части кадра  I и J координаты таб.П4.11.

    

   
   

   I = X_sled – X_nast;          Это формулы расчёта координат заходов на линейный

   J = Y_sled – Y_nast          контур детали.

           То, есть для кадра N6 (программа 2) берём из кадра N6 и N7  (программа 1) настоящие и следующие значения координат X и Y.

   I = (его нет значит значение то же, что и предыдущее) 104.6 – 104.6 = 0

   J = 23 – 0 = 23

   
   

   Расчёт заходов на радиус (функции G41, G42) на эквидистанту контура обрабатываемой детали.

   С начала рассчитываем значение (I и J) из следующего кадра.

   Логическое решение задачи

   Если G3, то проверяем значение заданных координат:

   Если I_sled > 0 и J_sled >= 0, то I = 1, J = -1;

   Если I_sled < 0 и J_sled <= 0, то I = -1, J = 1;

   Если I_sled < 0 и J_sled >= 0, то I = 1, J = 1;

   Если I_sled > 0 и J_sled <= 0, то I = -1, J = -1

   Если G2, то проверяем значение заданных координат:

   Если I_sled > 0 и J_sled >= 0, то I = -1, J = 1;

   Если I_sled < 0 и J_sled <= 0, то I = 1, J = -1;

   Если I_sled < 0 и J_sled >= 0, то I = -1, J = -1;

   Если I_sled > 0 и J_sled <= 0, то I = 1, J = 1

            Следующее операция описана формулами:

   I_nast = Y_nast + J_sled

   J_nast = X_nast + I_sled

            Заключительные вычисления:

   если I = -1 и J > 0, то J_nast:= -J_nast;

   если I = 1 и J < 0, то J_nast:= -J_nast;

   если J = -1 и I > 0, то I_nast:= -I_nast;

   если J = 1 и I < 0, то I_nast:= -I_nast.

            В данном примере срабатывает условие, если I_sled > 0 и J_sled >= 0,

   значит I = 1, J = -1, то есть I – будет положительным, а J - отрицательным

            Далее по формулам: I_nast = Y_nast + J_sled; J_nast = X_nast + I_sled

   находим: I_nast = 0 + 0 = 0; J_nast = 104.6 + (-2.5) = 102.1

            Залючительные вычисления, если I = 1 и J < 0, то J_nast:= -J_nast;

   J_nast = -102.1, что мы и видим в таб. П4.12.

   Таблица П4.12

   Расчёт заходов на радиус (функции G41, G42)

   до обработки (программа 1)

   после обработки (программа 2)

   N5G1Z-25.F500M8

   N6G90G42D20X-104.6Y0I0J-23.F20

   N8G3X-102.1Y-25.5I2.5J0.0

   N1G1Z-25.F500M8

   N2G90G42D20X-104.6Y0I0J-102.1F20

   N3G3X-102.1Y-25.5I-102.1J0

   Не пересчитывайте программу дважды. Обычно бывает так – программист сгенерировал программу в  (Unigraphics) или где-то в другом редакторе на МАЯК или ВМ в «Наладчике» и забыл ещё вставить код, он его добавляет и опять открывает и пересчитывает. Вообще-то программа не даст пересчитать дважды, но если открыть и закрыть файл то можно просчитать ещё раз (сколько угодно раз можно пересчитывать только номера кадров, пустые строки и пробелы, без урона для программы). Здесь же чисто математический расчёт и программа, пересчитанная дважды, не будет правильной.

   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   

   СОДЕРЖАНИЕ

   ВВЕДЕНИЕ. 4

   1. РАЗРАБОТКА СИСТЕМЫ АВТОМАТИЧЕСКОГО КОН   ВЕРТИРОВАНИЯ ИСХОДНОГО ТЕКСТА  ПРОГРАММ ДЛЯ СТАНКОВ С ЧПУ.. 6

   1.1. Обоснование целесообразности разработки системы автоматического конвертирования текста исходных программ для станков с ЧПУ.. 6

   1.1.1. Назначение системы.. 6

   1.1.2. Характеристика функциональной структуры системы.. 6

   1.1.3. Обоснование цели создания системы.. 7

   1.1.4. Обоснование состава автоматизируемых задач. 7

   1.2. Аналитический обзор. 8

   1.3. Основные требования к системе. 10

   1.3.1. Основные цели создания системы и критерии эффективности её функционирования  10

   1.3.2. Функциональное назначение системы.. 10

   1.3.3. Особенности программы и условия её эксплуатации. 11

   1.3.4. Требования к функциональной структуре. 11

   1.3.5. Требования к техническому обеспечению.. 12

   1.3.6. Требования к информационному обеспечению.. 12

   1.3.7 Требования к программному обеспечению.. 12

   1.4.  Основные технические решения проекта системы.. 13

   1.4.1.  Решение по комплексу технических средств. 13

   1.4.2.  Описание системы программного обеспечения. 13

   2. РАЗРАБОТКА ЗАДАЧИ «Конвертирование исходного текста программ для станков с ЧПУ»  14

   2.1. Описание постановки задачи. 14

   2.1.1. Характеристика задачи. 14

   2.1.2. Входная информация. 14

   2.1.3. Выходная информация. 14

   2.1.4. Математическая простановка задачи. 15

   2.2. Описание алгоритма метода выбора обработки. 20

   2.2.1.  Назначение и характеристика алгоритма. 20

   2.2.2. Используемая информация. 20

   2.2.3. Результаты решения. 20

   2.2.4. Алгоритм решения. 20

   2.2.5. Список условных обозначений. 21

   2.3 Описание алгоритма выбора вспомогательных методов обработки. 23

   2.3.1. Назначение и характеристика алгоритма. 23

   2.3.2. Используемая информация. 23

   2.3.3. Результаты решения. 23

   2.3.4. Алгоритм решения. 23

   2.4. Описание алгоритма конвертирования. 24

   2.4.1. Назначение и характеристика алгоритма. 24

   2.4.2. Алгоритм решения. 24

   2.5 Описание программы «Наладчик». 27

   2.5.1. Водная часть. 27

   2.5.2. Функциональное назначение. 27

   2.5.3. Описание информации. 28

   2.5.4. Используемые подпрограммы.. 28

   2.5.5. Описание логики. 29

   2.6. Описание контрольного примера. 30

   2.6.1. Назначение. 30

   2.6.2. Исходные данные. 30

   2.6.3. Результаты расчета. 30

   2.6.4. Результаты испытания. 30

   3. ОРГАНИЗАЦИОННО-ЭКОНОМИЧЕСКАЯ ЧАСТЬ. 31

   3.1. Обоснование необходимости разработки системы конвертирования текста программ для станков с ЧПУ.. 31

   3.2. Планирование разработки. 31

   3.3. Расчет расходов на создание системы.. 32

   4. БЕЗОПАСНОСТЬ И ЭКОЛОГИЧНОСТЬ ПРОЕКТА.. 37

   4.11 Анализ вредных и опасных производственных факторов. 37

   4.2. Техника безопасности при работе с компьютером.. 39

   4.3. Электробезопасность при работе с компьютером.. 41

   4.4. Требования к освещению рабочего места и его расчет. 42

   4.4.1. Требования к освещению рабочего места. 42

   4.4.2.  Расчет освещенности рабочего места. 44

   4.5. Параметры микроклимата, загрязнение воздуха рабочей зоны вредными веществами. 47

   4.6. Пожаробезопасность при работе с компьютером.. 48

   ЗАКЛЮЧЕНИЕ. 52

   СПИСОК ЛИТЕРАТУРЫ... 52

   ПРИЛОЖЕНИЕ 1             ТЕКСТ ПРОГРАММЫ... 54

   ПРИЛОЖЕНИЕ 2             РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ... 84

   ПРИЛОЖЕНИЕ 3             РУКОВОДСТВО ПРОГРАММИСТА.. 86

   ПРИЛОЖЕНИЕ 4             РУКОВОДСТВО ОПЕРАТОРА.. 88

   
   
   
   
   
   
   Федеральное агентство по образованию РФ ГОУ ВПО «ИЖЕВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ» Факультет  «ИНФОРМАТИКА И ВЫЧИСЛИТЕЛЬНАЯ ТЕХНИКА»

   Больше работ по теме:

   Модель электронного документооборота на примере ЗАО "Bona Fide"
   Диплом
   Наращивание экономической и статистической информации в двухструктурных реляционных базах данных
   Диплом
   Программно-методический комплекс для обучения процессу создания компиляторов
   Диплом
   Программное обеспечение системы обработки изображения в реальном времени
   Диплом
   Проектирование информационной системы финансирования предприятия
   Диплом