Siemens SINUMERIK 840Di sl Function Manual page 141

*** 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
;
;
;
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
Synchronized actions
Function Manual, 11/2006, 6FC5397-5BP10-2BA0
*** Read FIFO till tooth number 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
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
5.6 "Centering" with continuous measurement
; 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
; Activate
; Deactivate
Examples
141