Publicité
462/550
Bosch Rexroth AG | Electric Drives
Fonctions CPL
Exemple :
7.16.9
Fermeture d'un fichier
CLOSE
Syntaxe :
Exemple :
and Controls
La fonction EOF édite la valeur logique "VRAI" lorsque la fin du fichier est at‐
teinte lors de l'accès en écriture. Dans le cas contraire, "FAUX" est édité.
: 9 DIM A$(10)
10 OPENR(1,"P",444) : I%=0
11 WHILE NOT (EOF(1))DO
12 INP#(1,A$)
13 I%=I%+1
14 END
15 CLOSE(1)
M30
Ferme un fichier
9 fichiers au maximum peuvent être ouverts en même temps. Si l'accès à un
autre fichier est nécessaire, même si 9ème fichier est déjà ouvert, il faut tout
d'abord fermer un fichier.
De ce fait, il convient en règle générale de refermer les fichiers ouverts immé‐
diatement après que les opérations de lecture ou d'écriture sont terminées.
CLOSE(<n>)
<n>
Fig.7-60:
Syntaxe Close
:
90 DIM A$(35)
100 XPOS = MCS(1)
110 YPOS = MCS(2)
120 OPENW(1,"P5",500,"POSAXE")
130 REWRITE(1)
140 PRN#(1,"Axe X",XPOS,YPOS,"Axe Y",YPOS)
150 CLOSE(1)
160 OPENR(1,"P5")
170 INP#(1,A$)
180 CLOSE(1)
:
En l'occurrence, les positions actuelles des axes X et Y sont transmises aux
variables (lignes 90 à 110). Ensuite, le fichier 1 est ouvert et archivé en tant
que programme pièce P5 (ligne 120).
Puis, le fichier est écrit ou écrasé, puis refermé (lignes 140 à 150). Le fichier
est alors ouvert pour la lecture et le contenu est affecté à la variable A$. Après
l'accès en lecture, le fichier est refermé (lignes 160 à 180).
Rexroth IndraMotion MTX | Description de l'application
1 à 9 :
Numéro logique du fichier qui doit être fermé.
Publicité
