0  BEGIN PGM 8175_ES MM 
1  ;Programa NC mediante el cual se creará
2  ;un fichero de registro a partir del
3  ;programa. Ya que en el registro también
4  ;está documentado el tiempo de ejecución
5  ;del programa, el programa comienza con
6  ;una lectura automática de la hora actual
7  ;del sistema en segundos. A continuación,
8  ;el control numérico graba en el registro
9  ;el contenido de un fichero de máscara.
10 ;En este ejemplo, este contiene la fecha
11 ;y hora actuales al inicio del programa y
12 ;el nombre del programa, así como la ruta
13 ;del fichero.
14 ;El control numérico determina esta
15 ;información automáticamente mediante la
16 ;sintaxis definida en el fichero de
17 ;máscara.
18 ;Seguidamente se realiza el mecanizado.
19 ;En el ejemplo, se simula con un tiempo
20 ;de espera.
21 ;Antes del final del programa, el control
22 ;numérico llama aun subprograma para
23 ;calcular el tiempo de ejecución del
24 ;programa. En este, vuelve a leer primero
25 ;la hora actual del sistema en segundos.
26 ;A partir de ella y de la hora leída al
27 ;inicio del programa, el control numérico
28 ;calcula el tiempo transcurrido durante la
29 ;ejecución del programa en segundos. A
30 ;continuación, el control numérico lo
31 ;convierte en horas, minutos y segundos.
32 ;También graba en el registro los valores
33 ;calculados de este modo mediante un fichero
34 ;de máscara adicional.
35 ;Como usuario, simplemente debe ajustar las
36 ;rutas de los ficheros de máscara y los
37 ;nombres del fichero de registro que se va
38 ;a generar.
39 ;
40 ;
41 ;¡IMPORTANTE! Si inicia el programa varias
42 ;veces sin eliminar o renombrar el fichero
43 ;de registro, las nuevas entradas se
44 ;adjuntarán al registro ya existente. Las
45 ;ejecuciones del programa en el test del
46 ;programa también se registrarán. Sin
47 ;embargo, para ello no se tendrá en cuenta
48 ;el tiempo de espera.
49 ;
50 ;Inicio del programa
51 FN 18: SYSREAD Q10 = ID320 NR1 IDX0 ;Leer hora actual del sistema en segundos
52 ;Grabar la máscara 81751_es.a en el registro
53 ;Aquí se deben definir la ruta del fichero de
54 ;máscara y el nombre del registro.
55 FN 16: F-PRINT 81751_es.a / Protokoll_8175.txt
56 ;
57 ;Mecanizado, aquí se simula con un tiempo
58 ;de espera
59 CYCL DEF 9.0 TIEMPO ESPERA
60 CYCL DEF 9.1 T.ESPR999
61 ;
62 ;Llamar al subprograma para calcular el
63 ;tiempo de ejecución del programa
64 CALL LBL 1
65 ;Grabar la máscara 81752_es.a en el
66 ;registro con el tiempo de ejecución del
67 ;programa calculado.
68 ;Aquí se deben definir la ruta del fichero
69 ;de máscara y el nombre del registro.
70 FN 16: F-PRINT 81752_es.a / Protokoll_8175.txt
71 ;
72 ;Final del programa
73 M30
74 ;
75 ;Subprograma para calcular el tiempo de ejecución
76 ;del programa
77 LBL 1
78 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Leer hora actual del sistema en segundos
79 FN 2: Q12 =+Q11 - +Q10 ;Restar la hora del sistema Inicio de la hora del sistema Final en segundos
80 Q13 = Q12 / 3600 ;Cálculo de las horas
81 Q20 = INT Q13 ;Redondear los decimales de las horas
82 Q14 = Q20 * 3600 ;Convertir las horas en segundos
83 Q15 = Q12 - Q14 ;Cálculo de los segundos restantes
84 Q16 = Q15 / 60 ;Cálculo de los minutos
85 Q21 = INT Q16 ;Redondear los decimales de los minutos
86 Q17 = Q21 * 60 ;Convertir los minutos en segundos
87 Q22 = Q15 - Q17 ;Cálculo de los segundos restantes
88 LBL 0
89 ;
90 END PGM 8175_ES MM