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

{$O+,F+}

Unit buffs;

Interface

var
    LinePtr       :Pointer;     {**buffer de une ligne pour mesajes et del_**}
    SizeLinePtr   :Word;        {**Buffer de une Ligne**}

    Menu_Buf      : Pointer;    {**Menu_Buf_Ptr**}
    Size_Menu_Buf : Word;

    Sub_Buf       : pointer;    {**Sub_Buf_Ptr**}
    Size_Sub_Buf  : Word;

    BuffDir       : Pointer;
    SizeDir       : Word;

Implementation

End.


{============== FICHIER DE EDNUM ======================} { 2 Unite Graphe Trace.pas usinage machines c.n. NUM750 } { programmation Pascal } { Copyright (S) 1997-2011 } { Licence d'utilisation accord dans un but démonstratif } { unite buff_tex.pas : graphiques EDnum c.n du bois } {========================================================} {$O+,F+} Unit buff_tex; Interface Type Buf___Ptr = Array[1..30720] of char; var BufTexte : ^Buf___Ptr; Implementation End.
{============== FICHIER DE EDNUM ======================} { 3 Unite Graphe Trace.pas usinage machines c.n. NUM750 } { programmation Pascal } { Copyright (S) 1997-2011 } { Licence d'utilisation accord dans un but démonstratif } { unite Num_buff.pas: graphiques EDnum c.n du bois } {========================================================} {$O+,F+} Unit num_buff; Interface Const MaxLig = 500; Long_Formule = 20; Limite = 19; Max_Outils = 32; Type var_str = string[Long_Formule]; Tableau128 = Array[1..20] OF Var_Str; TablesValeur = Record X,Y,Z,R ,I ,J ,K :real; {*. . . EB,EX,EY,ER *} T,D : byte; ED : integer; end; TablesCommande = Record {** N5 G0 X Y R M ED F S **} CN,CF,CS : String[6]; CG, CX,CY,CR,CM,CED : String[6]; LA,LX,LY,LR,LI,LJ,LED : ^VAR_STR; end; TabVar = ^Liste1; Liste1 = Array[1..MaxLig] OF TablesValeur; TabFonc = ^Liste2; Liste2 = Array[1..MaxLig] OF TablesCommande; TableOutils = Array[1..2,1..Max_Outils] Of Real; Fichier_Outil = file of TableOutils; var W : TabVar; {**Size mem = 23ko.**} C : TabFonc; {**Size mem = 43ko. avec formules = nil**} Tab128 : Tableau128; Tab_Case_Reyon : TableOutils; File_Outils : Fichier_Outil; Implementation var u : byte; begin for u:=1 to Max_Outils Do begin Tab_Case_Reyon[1,u]:=50; Tab_Case_Reyon[2,u]:=4; end; end. {end unite 1,2,3}
©® 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.