0  BEGIN PGM 82551_es MM 
1  ;Programa NC para calcular los valores de
2  ;tolerancia de un encaje. A continuacin,
3  ;el control numrico ejecuta un ciclo de
4  ;medicin. Luego analiza el resultado de
5  ;medicin y determina si el encaje medido
6  ;se encuentra dentro de la tolerancia
7  ;definida. Despus muestra el estado, el
8  ;resultado de medicin y las cotas en la
9  ;pantalla.
10 ;La definicin de todos los parmetros
11 ;necesarios se lleva a cabo en el programa
12 ;NC 8255_es.h.
13 ;Si se han guardado todos los ficheros
14 ;necesarios en el mismo directorio, no debe
15 ;ajustar nada en este programa NC.
16 ;Si los datos estuviesen guardados en
17 ;directorios diferentes, se deberan ajustar
18 ;las rutas en las definiciones del fichero.
19 ;
20 QS2 = "a" ;Definir minscula para la comprobacin
21 ;
22 ;Comprobar si se trata de taladro estndar o de eje estndar
23 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
24 ;
25 ;Abrir tabla para Taladro estndar
26 FN 26: TABOPEN 82553_hole.TAB
27 ;
28 ;Si se trata de taladro, salto a LBL1
29 FN 9: IF +Q2 EQU -1 GOTO LBL 1
30 ;
31 ;Abrir tabla para eje estndar
32 FN 26: TABOPEN 82553_shaft.TAB
33 ;
34 ;Label LBL1
35 LBL 1
36 ;
37 Q22 = 0 ;Contador de nmero de fila
38 ;
39 ;Leer valor de la fila 0, columna "BEREICH" de la tabla
40 FN 28: TABREAD Q3 =Q22 /"BEREICH"
41 ;
42 ;Label LBL11
43 LBL 11
44 ;
45 ;Comprobar si el encaje definido se encuentra en el rea
46 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
47 ;
48 ;Leer cota superior de la tabla
49 FN 28: TABREAD Q4 =Q22 / QS1
50 ;
51 ;Aumentar en uno el nmero de fila
52 Q22 = Q22 + 1
53 ;
54 ;Leer cota inferior de la tabla
55 FN 28: TABREAD Q5 =Q22 / QS1
56 ;
57 ;Salto a LBL99
58 FN 9: IF +1 EQU +1 GOTO LBL 99
59 ;
60 ;Label LBL12
61 LBL 12
62 ;Aumentar en dos el nmero de fila
63 Q22 = Q22 + 2
64 ;
65 ;Leer valor de la fila Q2, columna "BEREICH" de la tabla
66 FN 28: TABREAD Q3 =Q22 /"BEREICH"
67 ;
68 ;Salto a LBL11
69 FN 9: IF +1 EQU +1 GOTO LBL 11
70 ;
71 ;Label LBL99
72 LBL 99
73 ;
74 ;Calcular cota mxima en mm
75 Q23 = Q1 + ( Q4 / 1000 )
76 ;
77 ;Calcular cota mnima en mm
78 Q33 = Q1 + ( Q5 / 1000 )
79 ;
80 ;Llamada de herramienta del palpador digital 3D
81 TOOL CALL "TOUCHPROBE" Z S50
82 ;Posicionamiento previo
83 L  Z+100 R0 FMAX
84 L  X+Q11  Y+Q21 R0 FMAX
85 ;
86 ;Salto a la medicin
87 ;En el caso de un taladro, salto a LBL 14
88 FN 9: IF +Q2 EQU -1 GOTO LBL 14
89 ;En el caso de un eje, salto a LBL 15
90 FN 11: IF +Q2 GT -1 GOTO LBL 15
91 ;
92 ;Medicin de taladro
93 LBL 14
94 TCH PROBE 421 MEDIR TALADRO ~
    Q273=+Q11  ;CENTRO 1ER EJE ~
    Q274=+Q21  ;CENTRO SEGUNDO EJE ~
    Q262=+Q1   ;DIAMETRO NOMINAL ~
    Q325=+Q41  ;ANGULO INICIAL ~
    Q247=+90   ;ANGULO INCREMENTAL ~
    Q261=+Q31  ;ALTURA MEDIDA ~
    Q320=+Q51  ;DISTANCIA SEGURIDAD ~
    Q260=+100  ;ALTURA DE SEGURIDAD ~
    Q301=+1    ;IR ALTURA SEGURIDAD ~
    Q275=+Q23  ;TAMANO MAXIMO ~
    Q276=+Q33  ;TAMANO MINIMO ~
    Q279=+0    ;TOLERANC. 1ER CENTRO ~
    Q280=+0    ;TOLERANC. 2DO CENTRO ~
    Q281=+0    ;PROTOCOLO MEDIDA ~
    Q309=+0    ;PARO PGM SI ERROR ~
    Q330=+0    ;HERRAMIENTA ~
    Q423=+4    ;NUM. PTOS. MEDICION ~
    Q365=+1    ;TIPO DESPLAZAMIENTO
95 M140 MB MAX F9999
96 ;Salto al clculo del estado
97 FN 9: IF +1 EQU +1 GOTO LBL 16
98 ;
99 ;Medir eje
100 LBL 15
101 TCH PROBE 422 MEDIC. ISLA CIRCULAR ~
    Q273=+Q11  ;CENTRO 1ER EJE ~
    Q274=+Q21  ;CENTRO SEGUNDO EJE ~
    Q262=+Q1   ;DIAMETRO NOMINAL ~
    Q325=+Q41  ;ANGULO INICIAL ~
    Q247=+90   ;ANGULO INCREMENTAL ~
    Q261=+Q31  ;ALTURA MEDIDA ~
    Q320=+Q51  ;DISTANCIA SEGURIDAD ~
    Q260=+100  ;ALTURA DE SEGURIDAD ~
    Q301=+1    ;IR ALTURA SEGURIDAD ~
    Q277=+Q23  ;TAMANO MAXIMO ~
    Q278=+Q33  ;TAMANO MINIMO ~
    Q279=+0    ;TOLERANC. 1ER CENTRO ~
    Q280=+0    ;TOLERANC. 2DO CENTRO ~
    Q281=+0    ;PROTOCOLO MEDIDA ~
    Q309=+0    ;PARO PGM SI ERROR ~
    Q330=+0    ;HERRAMIENTA ~
    Q423=+4    ;NUM. PTOS. MEDICION ~
    Q365=+1    ;TIPO DESPLAZAMIENTO
102 M140 MB MAX F9999
103 ;Salto al clculo del estado
104 FN 9: IF +1 EQU +1 GOTO LBL 16
105 ;
106 LBL 16
107 ;Calcular estado
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 = "CORRECTO"
114 FN 9: IF +1 EQU +1 GOTO LBL 23
115 ;
116 LBL 21
117 QS3 = "RETOCAR"
118 FN 9: IF +1 EQU +1 GOTO LBL 23
119 ;
120 LBL 22
121 QS3 = "RECHAZO"
122 FN 9: IF +1 EQU +1 GOTO LBL 23
123 ;
124 LBL 23
125 ;Componer texto para el encaje
126 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
127 ;
128 ;Mostrar en la pantalla el fichero de mscara 82552_es.a
129 FN 16: F-PRINT 82552_es.A / SCREEN:
130 ;
131 ;Final del programa
132 END PGM 82551_es MM