Siemens SIMATIC FM 357-2 Manuel page 640

Exemple d'application
; Marqueur
N110 DEF INT M_ACT=1
N120 DEF INT M_VAL=2
N130 DEF INT M_SET=3
; Programme d'usinage
N150 DEF STRING[6] PART_UP = TEIL_1
; Numéro de palpeur de mesure
N160 DEF INT MT_MR = 1
;Initialisation de début
; Marqueur
N200 $AC_MARKER[M_ACT] = 0
N210 $AC_MARKER[M_VAL] = 0
N220 $AC_MARKER[M_SET] = 0
; Désélectionner un train électronique éventuellement actif
N230 EGOFS(X)
N240 EGDEL(X)
N250 EGDEF(X,A,0)
; activer action synchrone active, mesurer avec flanc décroissant
N200 ID=SA_MEA1
EVERY ($A_PROBE[MT_NR]==1) AND ($AC_MARKER[M_ACT]==0) DO
MEAWA[B]=(3,-MT_NR) $AC_MARKER[M_ACT]=1
N210 ID=SA_MEA2
EVERY ($AA_MEAACT[A]==0) AND ($AC_MARKER[M_ACT]==1) DO
$AC_MARKER[M_ACT]=0 $AC_MARKER[M_VAL]=1
; Mouvement de l'axe de convoyage actif
N220 IF TR_TYP==1
N230 WHEN TRUE DO MOV[A]=1 FA[A]= TR_VELO
N240 ENDIF
CYCLE :
; Attente valeur mesure, définir valeur réelle de l'axe de convoyage, aller vers la position
; de départ
N250 EVERY $AC_MARKER[M_VAL]==1 DO
PRESETON(B, ($AA_IM[A]–$AA_MM1[A]+DIST_C) )
$AC_MARKER[M_VAL]=0
N260 WHENEVER $AC_MARKER[M_SET]==0 DO RDISABLE
N270 G90 G0 G60 X=START_X Y=START_Y
11-8
; AC_MARKER: Ordre de mesure actif
; AC_MARKER: Valeur mesurée valide
; AC_MARKER: Valeur réelle de l'axe de convoyage
; définie
Module de positionnement multiaxe FM 357-2 pour servomoteurs et moteurs pas à pas
6ES7 357-4AH00-8CG0