{==============  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.

©® document original sources pascal
  
Page Last Updated: Juin 27, 2011 | Page Editor: A. Ara | SiteMap Dans Une Autre Galaxie
Cet emplacement web non-commercial, et totalement libre & indépendant de tout les parti politique ou d'organisme officiel de toute nature. Nous réflexions sont exclusivement l'avis de personnes qui rejettent le massacre que la société fait aux animaux pour tout motif.