0  BEGIN PGM 8200_IT MM 
1  ;Programma NC in cui il controllo numerico
2  ;decide automaticamente sulla base di una
3  ;coordinata misurata quale programma NC
4  ;può essere eseguito per il pezzo misurato.
5  ;Definire innanzitutto i percorsi dei
6  ;programmi NC che devono essere eseguiti.
7  ;Inoltre anche per quale coordinata Z
8  ;misurata deve essere richiamato il
9  ;relativo programma.
10 ;Può essere inoltre definita una tolleranza
11 ;della quale il risultato di misura può
12 ;scostarsi in positivo e in negativo dalla
13 ;coordinata indicata.
14 ;È inoltre possibile definire un numero di
15 ;esecuzioni di programma.
16 ;
17 ;
18 ;Funzione per saltare la definizione del
19 ;programma nel corso dell'esecuzione
20 FN 9: IF +0 EQU +0 GOTO LBL 201
21 ;
22 ;Numero dei programmi che sono stati
23 ;impiegati a seconda del risultato di
24 ;misura.
25 LBL 11
26 CALL PGM 82005_it.h ;Programma n. 1
27 LBL 0
28 ;
29 LBL 12
30 CALL PGM 82004_it.h ;Programma n. 2
31 LBL 0
32 ;
33 LBL 13
34 CALL PGM 82003_it.h ;Programma n. 3
35 LBL 0
36 ;
37 LBL 14
38 CALL PGM 82002_it.h ;Programma n. 4
39 LBL 0
40 ;
41 LBL 15
42 CALL PGM 82001_it.h ;Programma n. 5
43 LBL 0
44 ;
45 LBL 201 ;Proseguimento del programma
46 ;Immissione della coordinata Z da
47 ;differenziare
48 ;Coordinata Z per programma 1
49 FN 0: Q81 =+25
50 ;Coordinata Z per programma 2
51 FN 0: Q82 =+20
52 ;Coordinata Z per programma 3
53 FN 0: Q83 =+15
54 ;Coordinata Z per programma 4
55 FN 0: Q84 =+10
56 ;Coordinata Z per programma 5
57 FN 0: Q85 =+5
58 ;
59 ;Altre immissioni
60 FN 0: Q91 =+1 ;TOLLERANZA DELLA COORDINATA Z
61 FN 0: Q94 =+10 ;NUMERO DELLE RIPETIZIONI PROGRAMMA
62 ;
63 LBL 200 ;Inizio della ripetizione
64 ;
65 CALL PGM 82006_it.h ;Chiamata programma cambio pallet
66 ;
67 ;Reset rotazione del piano di lavoro
68 PLANE RESET TURN FMAX
69 ;
70 ;Chiamata utensile tastatore
71 TOOL CALL 500 Z
72 ;
73 ;Attivazione dell'origine
74 CYCL DEF 247 DEF. ZERO PEZZO ~
    Q339=+5    ;NUMERO ORIGINE
75 ;Centro componente, bordo inferiore pezzo
76 ;
77 L  X+0  Y+0 R0 F5000 ;Preposizionamento
78 L  Z+300 ;Posizionamento ad altezza di sicurezza
79 ;
80 ;Definizione del ciclo di misura
81 ;!Qui è necessario adattare le coordinate!
/ 82 TCH PROBE 0.0 PIANO DI RIF Q90 Z-
83 TCH PROBE 0.1  X+0  Y+0  Z+300
84 ;
85 ;Per la Prova programma viene qui predefinito
86 ;come valore il risultato di misura.
87 ;!IMPORTANTE! Questo blocco NC deve essere
88 ;cancellato in Esecuzione programma in
89 ;quanto sovrascriverebbe il risultato di
90 ;misura effettivo.
91 FN 0: Q90 =+25
92 ; 
93 ;Selezione automatica del programma idoneo al
94 ;risultato di misura.
95 ;Programma n. 1
96 FN 2: Q31 =+Q81 - +Q91 ;Tolleranza coordinata Z
97 FN 11: IF +Q90 GT +Q31 GOTO LBL "PROG_01" ;Se altezza misurata maggiore della coordinata, salto a "PROG_01"
98 ;
99 ;Programma n. 2
100 FN 2: Q32 =+Q82 - +Q91 ;Tolleranza coordinata Z
101 FN 11: IF +Q90 GT +Q32 GOTO LBL "PROG_02" ;Se altezza misurata maggiore della coordinata, salto a "PROG_02"
102 ;
103 ;Programma n. 3
104 FN 2: Q33 =+Q83 - +Q91 ;Tolleranza coordinata Z
105 FN 11: IF +Q90 GT +Q33 GOTO LBL "PROG_03" ;Se altezza misurata maggiore della coordinata, salto a "PROG_03"
106 ;
107 ;Programma n. 4
108 FN 2: Q34 =+Q84 - +Q91 ;Tolleranza coordinata Z
109 FN 11: IF +Q90 GT +Q34 GOTO LBL "PROG_04" ;Se altezza misurata maggiore della coordinata, salto a "PROG_04"
110 ;
111 ;Programma n. 5
112 FN 2: Q35 =+Q85 - +Q91 ;Tolleranza coordinata Z
113 FN 11: IF +Q90 GT +Q35 GOTO LBL "PROG_05" ;Se altezza misurata maggiore della coordinata, salto a "PROG_05"
114 ;
115 ;Se non è stato possibile eseguire alcuna scelta,
116 ;salto a fine programma
117 FN 9: IF +0 EQU +0 GOTO LBL "end"
118 ;
119 ;
120 LBL "PROG_01"
121 CALL LBL 1 ;Salto al controllo della coordinata massima
122 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto a fine programma
123 ;
124 LBL "PROG_02"
125 CALL LBL 2 ;Salto al controllo della coordinata massima
126 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto a fine programma
127 ;
128 LBL "PROG_03"
129 CALL LBL 3 ;Salto al controllo della coordinata massima
130 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto a fine programma
131 ;
132 LBL "PROG_04"
133 CALL LBL 4 ;Salto al controllo della coordinata massima
134 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto a fine programma
135 ;
136 LBL "PROG_05"
137 CALL LBL 5 ;Salto al controllo della coordinata massima
138 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Salto a fine programma
139 ;
140 ;Fine programma
141 LBL "end"
142 ;
143 LBL 0
144 ;Chiamata della ripetizione
145 CALL LBL 200 REPQ94
146 ;Se il numero di ripetizioni è stato raggiunto fine
147 ;programma
148 M30
149 ;
150 ;
151 ;Controllo se il risultato di misura rientra anche
152 ;nel range positivo della tolleranza.
153 LBL 1 ;Programma n. 1
154 FN 1: Q41 =+Q81 + +Q91 ;Coordinata Z + tolleranza
155 FN 11: IF +Q90 GT +Q41 GOTO LBL "end" ;Se coordinata misurata maggiore del massimo, salto a fine del programma
156 CALL LBL 11 ;Salto a definizione programma
157 LBL 0
158 ;
159 LBL 2 ;Programma n. 2
160 FN 1: Q42 =+Q82 + +Q91 ;Coordinata Z + tolleranza
161 FN 11: IF +Q90 GT +Q42 GOTO LBL "end" ;Se coordinata misurata maggiore del massimo, salto a fine del programma
162 CALL LBL 12 ;Salto a definizione programma
163 LBL 0
164 ;
165 LBL 3 ;Programma n. 3
166 FN 1: Q43 =+Q83 + +Q91 ;Coordinata Z + tolleranza
167 FN 11: IF +Q90 GT +Q43 GOTO LBL "end" ;Se coordinata misurata maggiore del massimo, salto a fine del programma
168 CALL LBL 13 ;Salto a definizione programma
169 LBL 0
170 ;
171 LBL 4 ;Programma n. 4
172 FN 1: Q44 =+Q84 + +Q91 ;Coordinata Z + tolleranza
173 FN 11: IF +Q90 GT +Q44 GOTO LBL "end" ;Se coordinata misurata maggiore del massimo, salto a fine del programma
174 CALL LBL 14 ;Salto a definizione programma
175 LBL 0
176 ;
177 LBL 5 ;Programma n. 5
178 FN 1: Q45 =+Q85 + +Q91 ;Coordinata Z + tolleranza
179 FN 11: IF +Q90 GT +Q45 GOTO LBL "end" ;Se coordinata misurata maggiore del massimo, salto a fine del programma
180 CALL LBL 15 ;Salto a definizione programma
181 LBL 0
182 ;
183 END PGM 8200_IT MM