0 BEGIN PGM 82601_IT MM 
1 ;Programma NC per la determinazione dei valori di
2 ;tolleranza di un accoppiamento. Successivamente
3 ;il controllo numerico esegue un ciclo di misura.
4 ;Analizza poi il risultato di misura e determina
5 ;se l'accoppiamento misurato rientra nella tolleranza
6 ;definita. Il controllo numerico visualizza quindi
7 ;sullo schermo lo stato, il risultato di misura e le
8 ;quote.
9 ;Tutti i parametri necessari vengono definiti nel
10 ;programma NC 8260_it.h.
11 ;Se tutti i file richiesti vengono salvati nella
12 ;stessa directory, non è necessario eseguire alcun
13 ;adattamento in questo programma NC.
14 ;Qualora i file debbano essere salvati in directory
15 ;diverse, è necessario adattare i percorsi nelle
16 ;definizioni dei file.
17 ;
QS2 = "a" ;Definizione lettera minuscola per verifica
18 ;
19 ;Verifica se foro standard o albero standard
Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
20 ;
21 ;Apertura tabella per foro standard
22 FN 26: TABOPEN Hole_82603.TAB
23 ;
24 ;Se foro, salto a LBL1
25 FN 9: IF +Q2 EQU -1 GOTO LBL 1
26 ;
27 ;Apertura tabella per albero standard
28 FN 26: TABOPEN Shaft_82603.TAB
29 ;
30 ;Label di salto LBL1
31 LBL 1
32 ;
Q22 = 0 ;Numero riga contatore
33 ;
34 ;Lettura valore da riga 0 colonna "BEREICH" della tabella
35 FN 28: TABREAD Q3 =Q22 /"BEREICH"
36 ;
37 ;Label di salto LBL11
38 LBL 11
39 ;
40 ;Verifica se l'accoppiamento definito rientra nel range
41 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
42 ;
43 ;Lettura quota superiore dalla tabella
44 FN 28: TABREAD Q4 =Q22 / QS1
45 ;
46 ;Incremento del numero di riga di uno
Q22 = Q22 + 1
47 ;
48 ;Lettura quota inferiore dalla tabella
49 FN 28: TABREAD Q5 =Q22 / QS1
50 ;
51 ;Salto a LBL99
52 FN 9: IF +1 EQU +1 GOTO LBL 99
53 ;
54 ;Label di salto LBL12
55 LBL 12
56 ;Incremento del numero di riga di due
Q22 = Q22 + 2
57 ;
58 ;Lettura valore da riga Q2 colonna "BEREICH" della tabella
59 FN 28: TABREAD Q3 =Q22 /"BEREICH"
60 ;
61 ;Salto a LBL11
62 FN 9: IF +1 EQU +1 GOTO LBL 11
63 ;
64 ;Label di salto LBL99
65 LBL 99
66 ;
67 ;Calcolo quota massima in mm
Q23 = Q1 + ( Q4 / 1000 )
68 ;
69 ;Calcolo quota minima in mm
Q33 = Q1 + ( Q5 / 1000 )
70 ;
71 ;Chiamata utensile tastatore 3D
72 TOOL CALL "TOUCH_PROBE" Z S50
73 ;Preposizionamento
74 L  Z+100 R0 FMAX
75 L  X+Q11  Y+Q21 R0 FMAX
76 ;
77 ;Salto alla misurazione
78 ;Se foro, salto a LBL 14
79 FN 9: IF +Q2 EQU -1 GOTO LBL 14
80 ;Se albero, salto a LBL 15
81 FN 11: IF +Q2 GT -1 GOTO LBL 15
82 ;
83 ;Misurazione foro
84 LBL 14
85 TCH PROBE 421 MISURARE FORATURA ~
   Q273=+Q11  ;CENTRO 1. ASSE ~
    Q274=+Q21  ;CENTRO 2. ASSE ~
    Q262=+Q1   ;DIAMETRO NOMINALE ~
    Q325=+Q41  ;ANGOLO DI PARTENZA ~
    Q247=+90   ;ANGOLO INCREMENTALE ~
    Q261=+Q31  ;ALTEZZA MISURATA ~
    Q320=+Q51  ;DISTANZA SICUREZZA ~
    Q260=+100  ;ALTEZZA DI SICUREZZA ~
    Q301=+1    ;SPOST. A ALT. SICUR. ~
    Q275=+Q23  ;LIMITE MASSIMO ~
    Q276=+Q33  ;LIMITE MINIMO ~
    Q279=+0    ;TOLLERANZA 1. CENTRO ~
    Q280=+0    ;TOLLERANZA 2. CENTRO ~
    Q281=+0    ;PROTOCOLLO DI MIS. ~
    Q309=+0    ;STOP PGM SE ERRORE ~
    Q330=+0    ;UTENSILE ~
    Q423=+4    ;NUMERO TASTATURE ~
    Q365=+1    ;TIPO DI TRAIETTORIA
86 M140 MB MAX F9999
87 ;Salto alla determinazione dello stato
88 FN 9: IF +1 EQU +1 GOTO LBL 16
89 ;
90 ;Misurazione albero
91 LBL 15
92 TCH PROBE 422 MIS. CERCHIO ESTERNO ~
    Q273=+Q11  ;CENTRO 1. ASSE ~
    Q274=+Q21  ;CENTRO 2. ASSE ~
    Q262=+Q1   ;DIAMETRO NOMINALE ~
    Q325=+Q41  ;ANGOLO DI PARTENZA ~
    Q247=+90   ;ANGOLO INCREMENTALE ~
    Q261=+Q31  ;ALTEZZA MISURATA ~
    Q320=+Q51  ;DISTANZA SICUREZZA ~
    Q260=+100  ;ALTEZZA DI SICUREZZA ~
    Q301=+1    ;SPOST. A ALT. SICUR. ~
    Q277=+Q23  ;LIMITE MASSIMO ~
    Q278=+Q33  ;LIMITE MINIMO ~
    Q279=+0    ;TOLLERANZA 1. CENTRO ~
    Q280=+0    ;TOLLERANZA 2. CENTRO ~
    Q281=+0    ;PROTOCOLLO DI MIS. ~
    Q309=+0    ;STOP PGM SE ERRORE ~
    Q330=+0    ;UTENSILE ~
    Q423=+4    ;NUMERO TASTATURE ~
    Q365=+1    ;TIPO DI TRAIETTORIA
93 M140 MB MAX F9999
94 ;Salto alla determinazione dello stato
95 FN 9: IF +1 EQU +1 GOTO LBL 16
96 ;
97 LBL 16
98 ;Stato determinato
99 FN 9: IF +Q180 EQU +1 GOTO LBL 20
100 FN 9: IF +Q181 EQU +1 GOTO LBL 21
101 FN 9: IF +Q182 EQU +1 GOTO LBL 22
102 ;
103 LBL 20
QS3 = "OK"
104 FN 9: IF +1 EQU +1 GOTO LBL 23
105 ;
106 LBL 21
QS3 = "RIPRESA"
107 FN 9: IF +1 EQU +1 GOTO LBL 23
108 ;
109 LBL 22
QS3 = "SCARTO"
110 FN 9: IF +1 EQU +1 GOTO LBL 23
111 ;
112 LBL 23
113 ;Composizione testo per accoppiamento
QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
114 ;
115 ;Visualizzazione su schermo del contenuto del file maschera 82602_it.a
116 FN 16: F-PRINT 82602_it.A / SCREEN:
117 ;
118 ;Fine programma
119 END PGM 82601_IT MM