0 BEGIN PGM 9030_fr MM 
1 ;Programme CN permettant de graver
2 ;un numéro d'OF donné avec un
3 ;comptage croissant, sur une pièce.
4 ;Vous définissez le numéro d'OF
5 ;dans un tableau : vous y indiquez
6 ;alors chaque chiffre dans une
7 ;colonne. La CN les lit ensuite l'un
8 ;après l'autre et les grave. La CN
9 ;mémorise aussi dans un tableau le
10 ;nombre de pièces, de manière à ce
11 ;que cette quantité reste conservée
12 ;même après une coupure de courant.
13 ;Avant la gravure, la CN lit depuis
14 ;tout le tableau toutes les
15 ;exécutions qui ont eu lieu, en
16 ;ajoute une, inscrit la nouvelle
17 ;valeur dans le tableau et grave le
18 ;nombre de pièces sur la pièce.
19 ;Avant le début du programme, vous
20 ;devez définir l'outil de gravure
21 ;et les paramètres de gravure du
22 ;numéro d'OF et du nombre de pièces.
23 ;Vous devez également définir le
24 ;numéro d'OF dans le tableau
25 ;90303_fr.tab et remettre à zéro la
26 ;quantité de pièces indiquée dans le
27 ;tableau 90304_fr.tab.
28 ;!!IMPORTANT!! Le compteur de pièces
29 ;calcule aussi le nombre d'exécutions
30 ;de programme en mode Test de
31 ;programme !!!
32 ;
33 BLK FORM 0.1 Z  X+0  Y+0  Z-40
34 BLK FORM 0.2  X+100  Y+100  Z+0
35 ;
36 ;Appel de l'outil de gravure
37 TOOL CALL 200 Z S5000
38 ;
39 ;Dégagement
40 L  Z+100 R0 FMAX M3
41 ;
42 ;Gravure du numéro d'OF à partir du
43 ;tableau
44 ;
45 ;Définition des paramètres
46 FN 0: Q2 =+1 ;EFFET DU FACTEUR D'ECHELLE 2D (1) ou 3D (0)
47 FN 0: Q4 =-1 ;PROFONDEUR FRAISAGE
48 FN 0: Q6 =+1000 ;AVANCE FRAISAGE
49 FN 0: Q7 =+200 ;AVANCE DE LA PASSE EN PROFONDEUR
50 FN 0: Q8 =+1 ;DISTANCE D'APPROCHE
51 FN 0: Q5 =+10 ;HAUTEUR DE CARACTERE
52 FN 0: Q21 =+20 ;POINT DE DEPART EN X
53 FN 0: Q22 =+60 ;POINT DE DEPART EN Y
54 FN 0: Q29 =+0 ;ROTATION
55 ;Fin de la programmation des paramètres
56 ;
57 ;Appel du programme de gravure du
58 ;numéro d'OF
59 CALL PGM 90301_fr.h
60 ;
61 ;
62 ;Gravure du nombre de pièces
63 ;
64 ;Définition des paramètres
65 FN 0: Q2 =+1 ;EFFET DU FACTEUR D'ECHELLE 2D (1) ou 3D (0)
66 FN 0: Q4 =-1 ;PROFONDEUR FRAISAGE
67 FN 0: Q6 =+1000 ;AVANCE FRAISAGE
68 FN 0: Q7 =+200 ;AVANCE DE LA PASSE EN PROFONDEUR
69 FN 0: Q8 =+1 ;DISTANCE D'APPROCHE
70 FN 0: Q5 =+10 ;HAUTEUR DE CARACTERE
71 FN 0: Q21 =+20 ;POINT DE DEPART EN X
72 FN 0: Q22 =+40 ;POINT DE DEPART EN Y
73 FN 0: Q29 =+0 ;ROTATION
74 ;Fin de la programmation des paramètres
75 ;
76 ;
77 ;Ouverture du tableau
78 FN 26: TABOPEN 90304_fr.TAB
79 ;Lecture du nombre de pièces actuel
80 FN 28: TABREAD Q80 =0 /"No"
81 ;Recalcul du nombre de pièces
82 FN 1: Q80 =+Q80 + +1
83 ;Inscription d'une nouvelle valeur dans le tableau
84 FN 27: TABWRITE 0 /"No" = Q80
85 ;
86 ;Appel du programme de gravure pour le
87 ;nombre de pièces
88 CALL PGM 90302_fr.h
89 ;
90 ;Dégagement et fin de programme
91 L  Z+100 R0 FMAX M30
92 END PGM 9030_fr MM