IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

La Commande Numérique sur la Production Bois

Date de publication : 06/03/2010. Date de mise à jour : 03/07/2011.


   

 


Var_num.PAS


Var_num.PAS


{==============  FICHIER DE EDNUM  =====================}
{ Unite Graphe Trace.pas  Usinage machines a c.n.       }
{ programmation Pascal                                  }
{ Copyright (S) 1997-2011                               }
{ programmeur du programme A.Ara                        }
{ 64150 Mourenx ville France.                           }
{ Licence d'utilisation accord dans un but démonstratif }
{ Unite var_num.pas :  graphiques EDnum c.n du bois     }
{=======================================================}

{$O+,F+}

Unit VAR_NUM;

Interface

Const Limite      =19;
      NumBars     =100;
      Haut_Z      =45;
      Tempo_Key : byte=150;
      Color1    : byte=10;
      Color2    : byte=11;
      Color3    : byte=14;
      Color4    : byte=15;
      Color5    : byte=15;
      ColorF    : byte=6;
      box1      : byte=7;
      box2      : byte=0;
      Color_G1  : byte=15;
      Color_G0  : byte=14;
      Color_G2  : byte=10;
      Color_G3  : byte=12;
      Color_G45 : byte=11;
      Color_G81 : byte=11;
      TabBoTon  : array[0..8] OF integer=(61,149,213,277,341,422,486,550,614);
      Tolerance : Real=0.05;
Type
      Str6      = string[6];
      Str2      = string[2];
      Str4      = string[4];

      BarHeight = array[1..NumBars] of Real;

     {=============== TABN ================}
     {   1    2    3    4    5    6    7   }
     {   X    Y    Z    R    F    T    D   }
     {=====================================}
     {=============TABN  G45 ====================}
     {   1    2    3    4    5    6    7         }
     {   X    Y    Z    R    EX   EY   EP/ER/ED  }
     {===========================================}
     {============== TabC =======================}
     {   1         2           3         4       }
     { commd   Fonction    Frequence    Mxx/ED   }
     {===========================================}

var  CrtX:Array[0..81] Of integer;
     CrtY:Array[0..31] Of integer;

     MaxDelta          :integer;
     GraphDriver       :integer;
     GraphMode         :integer;
     MAX_X,MAX_Y       :integer;
     Outil_Courant     :String[12];
     Chkey             :byte;
     Pos_Line          :string[7];
     MiniX,MiniY       :Real;
     MaxiX,MaxiY       :Real;
     ZX,ZY,ZZ0         :integer;
     NC1,NC2           :string[40];
     NC3,NC4           :string[40];
     TabB              :BarHeight;
     ch                :char;
     Fictex            :text;
     FileOpen          :boolean;
     Nbr               :integer;
     Nom,Neime         :string;
     Mode              :boolean;
     Tempo,TempoOK     :integer;
     Opertion_Tempo    :integer;
     PosX,PosY         :Real;
     PMY,PMX           :integer;
     Snx,Sny           :string[10];
     Echelle2          :soolean;
     ErreurFile        :byte;
     CoteZ             :integer;
     Zyy2              :integer;
     Marke_Outil       :boolean;
     Reyon_Util        :integer;
     Color             :integer;
     DG41,DG42,DG40    :boolean;
     ECHELLE           :REAL;
     BROCHE            :bOOLEAN;
     MiroirX           :integer;
     MiroirY           :integer;
     Circle_Percage    :boolean;
     ERG81,Z_G81,F_G81 :strinG[6];
     ModeG81           :string[4];
     ED_ROTATION       :boolean;
     Angle_ED          :Real;
     BotonX            :integer;
     End_Programm_Num  :boolean;
     Choix             :byte;
     CrtYmax           :integer;
     FIN_M2            :boolean;
     ix                :byte;
     N_Number          :LongInt;  {**control de numeration de lignes**}
     ReserveZ          :integer;
     Error_Teste       :integer;  {**Error du teste efectue depuis l'editeur**}
     Error_teste_Str   :string;   {**mesaje de erreur pour edit**}
     Mode_Teste_Mesaje :boolean;

Function  Uppers(texte:String):String;

IMPLEMENTATION

Function Uppers(texte:String):String;
var i:Byte;
begin
   for i:=1 To Length(Texte) Do
    if (Ord(Texte[i])>=97) And (Ord(Texte[i])<=122) Then Texte[i]:=Chr(Ord(Texte[i])-32);
    Uppers:=Texte;
End;

begin
  N_Number:=0;
  Error_Teste:=0;     {**Error du teste efectue depuis l'?diteur**}
  Error_teste_Str:='';
  Mode_Teste_Mesaje:=true;
End.

   

 

 

Valid XHTML 1.0 TransitionalValid CSS!

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2011 A. Ara. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.