0  BEGIN PGM 82551_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
6  ;tolleranza definita. Il controllo numerico
7  ;visualizza quindi sullo schermo lo stato, il
8  ;risultato di misura e le quote.
9  ;Tutti i parametri necessari vengono definiti nel
10 ;programma NC 8255_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 ;
18 ;
19 QS2 = "a" ;Definizione lettera minuscola per verifica
20 ;
21 ;Verifica se foro standard o albero standard
22 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
23 ;
24 ;Apertura tabella per foro standard
25 FN 26: TABOPEN 82553_hole.TAB
26 ;
27 ;Se foro, salto a LBL1
28 FN 9: IF +Q2 EQU -1 GOTO LBL 1
29 ;
30 ;Apertura tabella per albero standard
31 FN 26: TABOPEN 82553_shaft.TAB
32 ;
33 ;Label di salto LBL1
34 LBL 1
35 ;
36 Q22 = 0 ;Numero riga contatore
37 ;
38 ;Lettura valore da riga 0 colonna "Range" della tabella
39 FN 28: TABREAD Q3 =Q22 /"BEREICH"
40 ;
41 ;Label di salto LBL11
42 LBL 11
43 ;
44 ;Verifica se l'accoppiamento definito rientra nel range
45 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
46 ;
47 ;Lettura quota superiore dalla tabella
48 FN 28: TABREAD Q4 =Q22 / QS1
49 ;
50 ;Incremento del numero di riga di uno
51 Q22 = Q22 + 1
52 ;
53 ;Lettura quota inferiore dalla tabella
54 FN 28: TABREAD Q5 =Q22 / QS1
55 ;
56 ;Salto a LBL99
57 FN 9: IF +1 EQU +1 GOTO LBL 99
58 ;
59 ;Label di salto LBL12
60 LBL 12
61 ;Incremento del numero di riga di due
62 Q22 = Q22 + 2
63 ;
64 ;Lettura valore da riga Q2 colonna "BEREICH" della tabella
65 FN 28: TABREAD Q3 =Q22 /"BEREICH"
66 ;
67 ;Salto a LBL11
68 FN 9: IF +1 EQU +1 GOTO LBL 11
69 ;
70 ;Label di salto LBL99
71 LBL 99
72 ;
73 ;Calcolo quota massima in mm
74 Q23 = Q1 + ( Q4 / 1000 )
75 ;
76 ;Calcolo quota minima in mm
77 Q33 = Q1 + ( Q5 / 1000 )
78 ;
79 ;Chiamata utensile tastatore 3D
80 TOOL CALL "TOUCHPROBE" Z S50
81 ;Preposizionamento
82 L  Z+100 R0 FMAX
83 L  X+Q11  Y+Q21 R0 FMAX
84 ;
85 ;Salto alla misurazione
86 ;Se foro, salto a LBL 14
87 FN 9: IF +Q2 EQU -1 GOTO LBL 14
88 ;Se albero, salto a LBL 15
89 FN 11: IF +Q2 GT -1 GOTO LBL 15
90 ;
91 ;Misurazione foro
92 LBL 14
93 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    ;N. PUNTI MISURATI ~
    Q365=+1    ;TIPO DI TRAIETTORIA
94 M140 MB MAX F9999
95 ;Salto alla determinazione dello stato
96 FN 9: IF +1 EQU +1 GOTO LBL 16
97 ;
98 ;Misurazione albero
99 LBL 15
100 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    ;N. PUNTI MISURATI ~
    Q365=+1    ;TIPO DI TRAIETTORIA
101 M140 MB MAX F9999
102 ;Salto alla determinazione dello stato
103 FN 9: IF +1 EQU +1 GOTO LBL 16
104 ;
105 LBL 16
106 ;Stato determinato
107 FN 9: IF +Q180 EQU +1 GOTO LBL 20
108 FN 9: IF +Q181 EQU +1 GOTO LBL 21
109 FN 9: IF +Q182 EQU +1 GOTO LBL 22
110 ;
111 LBL 20
112 QS3 = "OK"
113 FN 9: IF +1 EQU +1 GOTO LBL 23
114 ;
115 LBL 21
116 QS3 = "RIPRESA"
117 FN 9: IF +1 EQU +1 GOTO LBL 23
118 ;
119 LBL 22
120 QS3 = "SCARTO"
121 FN 9: IF +1 EQU +1 GOTO LBL 23
122 ;
123 LBL 23
124 ;Composizione testo per accoppiamento
125 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
126 ;
127 ;Visualizzazione su schermo del contenuto del file maschera 82552_it.a
128 FN 16: F-PRINT 82552_it.A / SCREEN:
129 ;
130 ;Fine programma
131 END PGM 82551_it MM