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
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 ;
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 ;
ReserveZ :integer ;
Error_Teste :integer ;
Error_teste_Str :string ;
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_teste_Str:=' ' ;
Mode_Teste_Mesaje:=true ;
End .
|
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.