Ãëàâíàÿ: Ðåôåðàòû

Ðåôåðàòû. Êîíâåðòèðîâàíèå èñõîäíîãî òåêñòà ïðîãðàìì äëÿ ñòàíêîâ ñ ×ÏÓ èç îäíîé ñèñòåìû ïðîãðàììèðîâàíèÿ â äðóã...

  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);      // Óäàëÿåì ëèøíèå ïðîáåëû ñïðàâà

Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17
2012 © Âñå ïðàâà çàùèùåíû
Ïðè èñïîëüçîâàíèè ìàòåðèàëîâ àêòèâíàÿ ññûëêà íà èñòî÷íèê îáÿçàòåëüíà.