0  BEGIN PGM 82551_fr MM 
1  ;Programme CN permettant de dterminer les
2  ;valeurs de tolrance d'un ajustement La
3  ;CN excute ensuite un cycle de mesure.
4  ;Puis elle analyse le rsultat de la mesure
5  ;et dtermine ainsi si lajustement mesur
6  ;respecte la tolrance. Elle affiche ensuite
7  ;ltat, le rsultat de la mesure et les
8  ;cotes Au dbut du programme, la CN affiche
9  ; l'cran le nombre de pices qui a t
10 ;jusqu' prsent usin.
11 ;Lensemble des paramtres ncessaires doivent
12 ;tre dfinis dans le programme CN 8255_fr.h.
13 ;Si vous avez enregistr tous les fichiers
14 ;requis dans le mme rpertoire, vous n'avez
15 ;rien  adapter dans ce programme CN.
16 ;Si les fichiers se trouvent enregistrs dans
17 ;des rpertoires diffrents, il vous faudra
18 ;adapter les chemins des fichiers en consquence.
19 ;
20 QS2 = "a" ;Dfinition de la minuscule de contrle
21 ;
22 ;Contrle permettant de vrifier s'il s'agit d'un Trou standard ou d'un Arbre~
 standard
23 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
24 ;
25 ;Ouverture du tableau pour le Trou standard
26 FN 26: TABOPEN 82553_hole.TAB
27 ;
28 ;Si trou, alors saut au LBL1
29 FN 9: IF +Q2 EQU -1 GOTO LBL 1
30 ;
31 ;Ouverture du tableau pour l'Arbre standard
32 FN 26: TABOPEN 82553_shaft.TAB
33 ;
34 ;Marque de saut LBL1
35 LBL 1
36 ;
37 Q22 = 0 ;Compteur de numro de ligne
38 ;
39 ;Lecture de la valeur qui se trouve  la ligne 0, colonne "BEREICH" du~
 tableau
40 FN 28: TABREAD Q3 =Q22 /"BEREICH"
41 ;
42 ;Marque de saut LBL11
43 LBL 11
44 ;
45 ;Contrle permettant de vrifier si l'ajustement dfini se trouve dans la~
 plage
46 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
47 ;
48 ;Lecture de la cote suprieure du tableau
49 FN 28: TABREAD Q4 =Q22 / QS1
50 ;
51 ;Incrmentation du numro de ligne de un
52 Q22 = Q22 + 1
53 ;
54 ;Lecture de la cote infrieure du tableau
55 FN 28: TABREAD Q5 =Q22 / QS1
56 ;
57 ;Saut au LBL99
58 FN 9: IF +1 EQU +1 GOTO LBL 99
59 ;
60 ;Marque de saut LBL12
61 LBL 12
62 ;Incrmentation du numro de ligne de deux
63 Q22 = Q22 + 2
64 ;
65 ;Lecture de la valeur qui se trouve  la ligne Q2, colonne "Bereich" du~
 tableau
66 FN 28: TABREAD Q3 =Q22 /"BEREICH"
67 ;
68 ;Saut au LBL11
69 FN 9: IF +1 EQU +1 GOTO LBL 11
70 ;
71 ;Marque de saut LBL99
72 LBL 99
73 ;
74 ;Calcul de la cote maximale, en mm
75 Q23 = Q1 + ( Q4 / 1000 )
76 ;
77 ;Calcul de la cote minimale, en mm
78 Q33 = Q1 + ( Q5 / 1000 )
79 ;
80 ;Appel doutil : palpeur 3D
81 TOOL CALL "TOUCH_PROBE" Z S50
82 ;Prpositionnement
83 L  Z+100 R0 FMAX
84 L  X+Q11  Y+Q21 R0 FMAX
85 ;
86 ;Saut  la mesure
87 ;Si trou, alors saut au LBL 14
88 FN 9: IF +Q2 EQU -1 GOTO LBL 14
89 ;Si arbre, alors saut au LBL 15
90 FN 11: IF +Q2 GT -1 GOTO LBL 15
91 ;
92 ;Mesure de trou
93 LBL 14
94 TCH PROBE 421 MESURE TROU ~
    Q273=+Q11  ;CENTRE 1ER AXE ~
    Q274=+Q21  ;CENTRE 2EME AXE ~
    Q262=+Q1   ;DIAMETRE NOMINAL ~
    Q325=+Q41  ;ANGLE INITIAL ~
    Q247=+90   ;INCREMENT ANGULAIRE ~
    Q261=+Q31  ;HAUTEUR DE MESURE ~
    Q320=+Q51  ;DISTANCE D'APPROCHE ~
    Q260=+100  ;HAUTEUR DE SECURITE ~
    Q301=+1    ;DEPLAC. HAUT. SECU. ~
    Q275=+Q23  ;COTE MAX. ~
    Q276=+Q33  ;COTE MIN. ~
    Q279=+0    ;TOLERANCE 1ER CENTRE ~
    Q280=+0    ;TOLERANCE 2ND CENTRE ~
    Q281=+0    ;PROCES-VERBAL MESURE ~
    Q309=+0    ;ARRET PGM SI ERREUR ~
    Q330=+0    ;OUTIL ~
    Q423=+4    ;NB POINTS DE MESURE ~
    Q365=+1    ;TYPE DEPLACEMENT
95 M140 MB MAX F9999
96 ;Saut  la dtermination de ltat
97 FN 9: IF +1 EQU +1 GOTO LBL 16
98 ;
99 ;Mesure d'arbre
100 LBL 15
101 TCH PROBE 422 MESURE EXT. CERCLE ~
    Q273=+Q11  ;CENTRE 1ER AXE ~
    Q274=+Q21  ;CENTRE 2EME AXE ~
    Q262=+Q1   ;DIAMETRE NOMINAL ~
    Q325=+Q41  ;ANGLE INITIAL ~
    Q247=+90   ;INCREMENT ANGULAIRE ~
    Q261=+Q31  ;HAUTEUR DE MESURE ~
    Q320=+Q51  ;DISTANCE D'APPROCHE ~
    Q260=+100  ;HAUTEUR DE SECURITE ~
    Q301=+1    ;DEPLAC. HAUT. SECU. ~
    Q277=+Q23  ;COTE MAX. ~
    Q278=+Q33  ;COTE MIN. ~
    Q279=+0    ;TOLERANCE 1ER CENTRE ~
    Q280=+0    ;TOLERANCE 2ND CENTRE ~
    Q281=+0    ;PROCES-VERBAL MESURE ~
    Q309=+0    ;ARRET PGM SI ERREUR ~
    Q330=+0    ;OUTIL ~
    Q423=+4    ;NB POINTS DE MESURE ~
    Q365=+1    ;TYPE DEPLACEMENT
102 M140 MB MAX F9999
103 ;Saut  la dtermination de ltat
104 FN 9: IF +1 EQU +1 GOTO LBL 16
105 ;
106 LBL 16
107 ;Dtermination de ltat
108 FN 9: IF +Q180 EQU +1 GOTO LBL 20
109 FN 9: IF +Q181 EQU +1 GOTO LBL 21
110 FN 9: IF +Q182 EQU +1 GOTO LBL 22
111 ;
112 LBL 20
113 QS3 = "BON"
114 FN 9: IF +1 EQU +1 GOTO LBL 23
115 ;
116 LBL 21
117 ERROR = QS3 = "REPRISE DUSINAGE"
118 FN 9: IF +1 EQU +1 GOTO LBL 23
119 ;
120 LBL 22
121 QS3 = "REBUT"
122 FN 9: IF +1 EQU +1 GOTO LBL 23
123 ;
124 LBL 23
125 ;Compilation du texte pour l'ajustement
126 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
127 ;
128 ;Affichage du contenu du fichier de masque 82552_fr.a  l'cran
129 FN 16: F-PRINT 82552_fr.A / SCREEN:
130 ;
131 ;Fin du programme
132 END PGM 82551_fr MM