0  BEGIN PGM 8175_IT MM 
1  ;Programma NC per il quale viene creato un file
2  ;di protocollo dal programma. Siccome nel
3  ;protocollo è documentato anche il tempo di
4  ;esecuzione del programma, il programma inizia
5  ;con la lettura automatica dell'ora di sistema
6  ;corrente in secondi. Successivamente il controllo
7  ;numerico scrive il contenuto di un file maschera
8  ;nel protocollo. Questo contiene nel presente
9  ;esempio la data corrente, l'ora di avvio
10 ;programma e il nome del programma, incluso il
11 ;percorso del file.
12 ;Queste informazioni sono automaticamente
13 ;determinate dal controllo numerico mediante la
14 ;sintassi definita nel file maschera.
15 ;Si procede quindi con la lavorazione. Questa
16 ;viene simulata nell'esempio con un tempo di sosta.
17 ;Prima della fine del programma il controllo
18 ;numerico richiama un sottoprogramma per il calcolo
19 ;del tempo di esecuzione del programma. In esso
20 ;legge dapprima di nuovo l'ora di sistema corrente
21 ;in secondi. Da questa e dall'ora letta a inizio
22 ;del programma il controllo numerico calcola il
23 ;tempo trascorso in secondi durante l'esecuzione
24 ;del programma. Successivamente il controllo
25 ;numerico lo converte in ore, minuti e secondi.
26 ;I valori così determinati vengono scritti dal
27 ;controllo numerico anche nel protocollo grazie
28 ;ad un altro file maschera.
29 ;Come operatore è necessario adattare soltanto i
30 ;percorsi dei file maschera e il nome del file
31 ;protocollo da creare.
32 ;!IMPORTANTE! Se si avvia più volte il programma
33 ;senza cancellare il file di protocollo o
34 ;rinominarlo, le nuove voci vengono allegate al
35 ;protocollo già esistente. Anche le esecuzioni
36 ;del programma in Prova programma vengono
37 ;protocollate. In tal caso, il tempo di attesa
38 ;non viene tuttavia considerato.
39 ;
40 ;
41 ;Inizio programma
42 FN 18: SYSREAD Q10 = ID320 NR1 IDX0 ;Lettura dell'ora di sistema corrente in secondi
43 ;Scrittura maschera 81751_it.a nel protocollo
44 ;!Qui occorre definire il percorso del file
45 ;maschera e del nome del protocollo!
46 FN 16: F-PRINT 81751_it.a / Protokoll_8175.txt
47 ;
48 ;Lavorazione, qui simulata con un tempo di sosta
49 CYCL DEF 9.0 TEMPO DI SOSTA
50 CYCL DEF 9.1 SOSTA999
51 ;
52 ;Chiamata sottoprogramma per il calcolo del tempo di
53 ;esecuzione del programma
54 CALL LBL 1
55 ;Scrittura nel protocollo della maschera 81752_it.a con
56 ;il tempo di esecuzione calcolato del programma.
57 ;!Qui occorre definire il percorso del file maschera e
58 ;del nome del protocollo!
59 FN 16: F-PRINT 81752_it.a / Protokoll_8175.txt
60 ;
61 ;Fine programma
62 M30
63 ;
64 ;Sottoprogramma per il calcolo del tempo di esecuzione del
65 ERROR = 65 programma
66 LBL 1
67 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Lettura dell'ora di sistema corrente in secondi
68 FN 2: Q12 =+Q11 - +Q10 ;Sottrazione ora di sistema avvio da ora di sistema fine in secondi
69 Q13 = Q12 / 3600 ;Calcolo delle ore
70 Q20 = INT Q13 ;Eliminazione delle posizioni decimali delle ore
71 Q14 = Q20 * 3600 ;Conversione delle ore in secondi
72 Q15 = Q12 - Q14 ;Calcolo dei secondi residui
73 Q16 = Q15 / 60 ;Calcolo dei minuti
74 Q21 = INT Q16 ;Eliminazione delle posizioni decimali dei minuti
75 Q17 = Q21 * 60 ;Conversione dei minuti in secondi
76 Q22 = Q15 - Q17 ;Calcolo dei secondi residui
77 LBL 0
78 ;
79 END PGM 8175_IT MM