Siemens SINUMERIK 828D Function Manual page 152

Examples
3.6 "Centering" with continuous measurement
;*** Define local user-defined variables ***
N1 DEF INT ZAEHNEZAHL
N5 DEF REAL HYS_POS_FLANKE
N6 DEF REAL HYS_NEG_FLANKE
;*** Define short names for synchronized action markers ***
define M_ZAEHNE as $AC_MARKER[1]
define Z_MW as $AC_MARKER[2]
define Z_RW as $AC_MARKER[3]
;*** Input values for ZAHNRADMESSEN ***
N50 ZAEHNEZAHL=26
N70 HYS_POS_FLANKE = 0.160
N80 HYS_NEG_FLANKE = 0.140
Start:
R1=0
R2=0
R3=0
R4=0
R5=0
R6=1
R7=1
M_ZAEHNE=ZAEHNEZAHL*2
Z_MW=0
Z_RW=2
R13=HYS_POS_FLANKE
R14=HYS_NEG_FLANKE
;*** Travel, measure, calculate axis ***
N100 MEAC[BACH]=(0)
;Resetting the FIFO[4] variables and ensuring a defined measurement trace
N105 $AC_FIFO1[4]=0
STOPRE
; *** Read FIFO till tooth number reached ***
; if FIFO1 is not empty and all teeth are still not measured, save measured value
; synchronization parameter and increment counter of measured values
152
from FIFO variable in
; Input number of gear teeth
; Hysteresis positive edge probe
; Hysteresis negative edge probe
; ID marker for calculation: neg/pos edge per
tooth
; Read ID counter MW FIFO
; Calculate ID Counter MW tooth gaps
; Enter number of gear teeth to be measured
; Hysteresis positive edge probe
; Hysteresis negative edge probe
; *** Assign variables ***
; ID2 calculation result for gap dimension
; ID2 calculation result addition of all gaps
; Contents of the first element read
; R4 corresponds to a tooth distance
; Gap position calculated, final result
; Switch-on ID 3 BACH with MOV
; Switch-on ID 5 MEAC
; Calculate ID neg./pos. edge of each teeth
; Read ID counter MW FIFO till the number of
teeth
; Calculate ID counter difference of tooth gap
; Hysteresis in calculation register
; Hysteresis in calculation register
; Reset measurement job
; Reset FIFO1
Function Manual, 07/2012, 6FC5397-5BP40-3BA0
Synchronized actions