Siemens SINUMERIK 840D sl Function Manual page 145

%_N_MEAC_MITTEN_MPF
; Measure using rotary axis B (BACH) where the difference is displayed
; between the measured values
;*** Define local user 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
;*** Traverse axis, measure, calculate ***
N100 MEAC[BACH]=(0)
; Reset FIFO1[4] variables and ensure a defined measurement trace
N105 $AC_FIFO1[4]=0
STOPRE
;*** Read out FIFO until the number of teeth reached ***
; If FIFO1 is not empty and all teeth are still not measured, save measured value
from FIFO variable in
; synchronization parameter and increment counter of measured values
ID=1 WHENEVER ($AC_FIFO1[4]>=1) AND (Z_MW<M_ZAEHNE)
Synchronized actions
Function Manual, 08/2018, 6FC5397-5BP40-6BA2
DO $AC_PARAM[0+Z_MW]=$AC_FIFO1[0]
4.6 "Centering" with continuous measurement
; 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
; Content 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 per tooth
; 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
Z_MW=Z_MW+1
Examples
145