0  BEGIN PGM 8175_FR MM 
1  ;Programme CN permettant de générer un rapport à
2  ;partir du programme. Comme le temps d'exécution
3  ;du programme se trouve lui aussi documenté dans
4  ;le rapport, le programme commence par la lecture
5  ;automatique de l'heure système actuelle. Puis la
6  ;CN inscrit le contenue d'un fichier de masque
7  ;dans le rapport. Dans cet exemple, ce fichier
8  ;contient la date actuelle, l'heure de début du
9  ;programme et le nom du programme, avec le nom du
10 ;fichier.
11 ;La CN détermine ces informations automatiquement,
12 ;au moyen de la syntaxe définie dans le fichier de
13 ;masque.
14 ;L'usinage a alors lieu. Dans l'exemple, l'usinage
15 ;est simulé par une temporisation.
16 ;Avant la fin du programme, la CN appelle un sous-
17 ;programme permettant de calculer la durée
18 ;d'exécution du programme. Dans ce sous-programme,
19 ;elle commence par lire l'heure système actuelle,
20 ;en secondes. À partir de cette heure système et
21 ;de l'heure lue en début de programme, la CN
22 ;calcule le temps qui s'écoule, en secondes, pendant
23 ;l'exécution du programme. Puis, la CN convertit ce
24 ;temps en heures, minutes et secondes.
25 ;Elle inscrit alors ces valeurs dans le rapport, par
26 ;l'intermédiaire d'un autre fichier de masque.
27 ;En tant qu'opérateur, vous n'avez qu'à adapter le
28 ;chemin des fichiers de masque et le nom du rapport
29 ;à créer.
30 ;!IMPORTANT! Si vous lancez plusieurs fois le programme
31 ;sans supprimer ou renommer ce rapport, toutes les
32 ;nouvelles entrées seront associées au rapport existant.
33 ;Les exécutions de programme réalisées en mode Test de
34 ;programme sont elles aussi documentées, mais aucune
35 ;temporisation n'est alors prise en compte.
36 ;
37 ;
38 ;Début du programme
39 FN 18: SYSREAD Q10 = ID320 NR1 IDX0 ;Lecture de l'heure système actuelle, en secondes
40 ;Inscription du masque 81751_fr.a dans le rapport
41 ;!Il vous faut ici définir le chemin du fichier de
42 ;masque et le nom du rapport!
43 FN 16: F-PRINT 81751_fr.a / Protokoll_8175.txt
44 ;
45 ;L'usinage est ici simulé par une temporisation.
46 CYCL DEF 9.0 TEMPORISATION
47 CYCL DEF 9.1 TEMP999
48 ;
49 ;Appel du sous-programme permettant de calculer la
50 ;durée d'exécution du programme
51 CALL LBL 1
52 ;Inscription du masque 81752_fr.a avec le temps
53 ;d'exécution qui a été calculé pour le programme.
54 ;!Il vous faut ici définir le chemin du fichier de
55 ;masque et le nom du rapport!
56 FN 16: F-PRINT 81752_fr.a / Protokoll_8175.txt
57 ;
58 ;Fin du programme
59 M30
60 ;
61 ;Sous-programme permettant de calculer la durée
62 ;d'exécution du programme
63 LBL 1
64 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Lecture de l'heure système actuelle, en secondes
65 FN 2: Q12 =+Q11 - +Q10 ;Soustraction, en secondes, de l'heure système du départ à l'heure système de la fin
66 Q13 = Q12 / 3600 ;Calcul des heures
67 Q20 = INT Q13 ;Troncature des décimales des heures
68 Q14 = Q20 * 3600 ;Conversion des heures en secondes
69 Q15 = Q12 - Q14 ;Calcul des secondes restantes
70 Q16 = Q15 / 60 ;Calcul des minutes
71 Q21 = INT Q16 ;Troncature des décimales des minutes
72 Q17 = Q21 * 60 ;Conversion des minutes en secondes
73 Q22 = Q15 - Q17 ;Calcul des secondes restantes
74 LBL 0
75 ;
76 END PGM 8175_FR MM