Description de l'application | Rexroth IndraMotion MTX
Exemple 3 :
Exemple 4 :
10
CHAN%=1
20
VERSION%=0
30
STATES%=0
40
ERR=MCODS(87,CHAN%,VERSION%,STATES%,1)
50
IF ERR=0 THEN
60
MASKE%=1
70
WHILE MASKE% <= STATES% DO
80
CASE (STATES% AND MASKE%) OF
90
LABEL 1:PRN#(0,"Temporisation")
100
LABEL 2:PRN#(0,"Fonction auxiliaire avec acquittement obligatoire")
110
LABEL 4:PRN#(0,"Blocage d'enregistrement")
120
LABEL 8:PRN#(0,"Avance dans le canal égale à 0")
130
LABEL 16:PRN#(0,"Arrêt du programme avec M0/M1")
140
LABEL 32:PRN#(0,"Arrêt d'avance dans le canal")
150
LABEL 64:PRN#(0,"Blocage d'avance dans le canal ou dans un axe de canal")
160
LABEL 128:PRN#(0,"Blocage d'enregistrement défini par le client")
170
LABEL 256:PRN#(0,"Arrêt de mouvement synchronisé entre canaux (ASTOP, ...)")
180
LABEL 512:PRN#(0,"Attente d'axe durant le remplacement des axes (G511)")
190
LABEL 1024:PRN#(0,"Attente de la variable permanente (WPV)")
200
LABEL 2048:PRN#(0,"Attente du signal d'interface au moment actif (WAITA, ...)")
210
LABEL 4096:PRN#(0,"Attente du signal IF (WAIT(BITIF(...))) ou")
220
230
LABEL 8192:PRN#(0,"Service de données Motion Control (MCODS(...))")
240
ENDCASE
250
MASKE%=MASKE%*2
260
END
270
ENDIF
M30
Exemple 5 :
Programme:
.
10
INAKTIV = 1
20
WHILE BUF%(1) <> INAKTIV DO
30
ERR_VAR% = MCODS(32,2,VERSION,BUF%,2)
40
END
Affichage des noms d'axe dans la fenêtre MSG
Programme:
:
30
VERSION=0
40
DIM AXNAME$(512)
50
REM Appeler tous les noms d'axe
60
ERR=MCODS(33,-1,VERSION,AXNAME$,512)
70
IF ERR=0 THEN
80
REM Déterminer le nombre d'axes
90
DIM AXNMB%(3)
100
VERSION=0
110
ERR=MCODS(45,-1,VERSION,AXNMB%,3)
120
ANZ=AXNMB%(2)
130
ENDIF
140
IF ERR<>0 THEN
150
PRN#(0,"Erreur survenue : ",ERR)
160
ELSE 170 REM Affichage des noms d'axe
180
FOR I%=0 TO (ANZ-1)
190
NAME$=MID$(AXNAME$,I%*9+1,8)
200
IF ASC(NAME$)<>0 THEN
210
REM Nom d'axe est défini
220
PRN#(0,I%+1,". Nom d'axe : ",NAME$)
230
ENDIF
240
NEXT
250
ENDIF
N260 M30
Canal/État d'attente
Programme:
PRN#(0," (WAIT(,ZEIT%)) dans la préparation de bloc")
Attribution axe - canal
Electric Drives
| Bosch Rexroth AG
and Controls
437/550
Fonctions CPL