Siemens SINUMERIK 828D Function Manual page 153

ID=1 WHENEVER ($AC_FIFO1[4]>=1) AND (Z_MW<M_ZAEHNE)
;if 2 measured values are present, start calculation, calculate ONLY gap dimension
; and gap sum, increment calculation value counter by 2
ID=2 WHENEVER (Z_MW>=Z_RW) AND (Z_RW<M_ZAEHNE)
;*** Switch-on the axis BACH as endless rotating rotary axis with MOV ***
WAITP(BACH)
ID=3 EVERY $R6==1 DO MOV[BACH]=1
FA[BACH]=1000
ID=4 EVERY $R6==0 und
($AA_STAT[BACH]==1) DO MOV[BACH]=0
; Measure sequentially, store in FIFO 1, MT2 neg, MT2 pos edge
;the distance between two teeth is measured
;falling edge-...-rising edge, probe 2
N310 ID=5 WHEN $R7==1 DO MEAC[BACH]=(2, 1, -2, 2)
N320 ID=6 WHEN (Z_MW>=M_ZAEHNE) DO
MEAC[BACH]=(0)
M00
STOPRE
;*** FIFO Fetch and save values ***
N400 R3=$AC_PARAM[0]
N500 $AC_FIFO1[4]=0
;*** Calculate difference between the individual teeth ***
N510 R4=R2/(ZAEHNEZAHL)/1000
Synchronized actions
Function Manual, 07/2012, 6FC5397-5BP40-3BA0
DO $AC_PARAM[0+Z_MW]=$AC_FIFO1[0] Z_MW=Z_MW+1
DO $R1=($AC_PARAM[-1+Z_RW]-$R13)-($AC_PARAM[-2+Z_RW]-$R14) Z_RW=Z_RW+2
$R2=$R2+$R1
3.6 "Centering" with continuous measurement
; Activate
; Deactivate
; Cancel measuring job
; Contents of the first element read
; ;Reset the FIFO1[4] variable
; ;and ensure a defined measuring trace
;for the next measurement job
; R4 corresponds to an average
; tooth distance
; Division "/1000" removed in later SW
versions
Examples
153