Rockwell Automation 1398-PDM-xxx IQ Master Version 3.2.4 for IA-2000 and IQ-5000 Positioning Drive Modules, IQ-55 - Manual (Page 401)

Application Examples • Auger Dispensing Application 379
Publication 1398-PM601A-EN-P — October 2000
APPENDIXES
ASSIGN FSDONE O1 ;Fill & seal complete
ASSIGN AUGERRDY O2 ;Auger axis ready
ASSIGN SEALBAG O3 ;Instruct sealing operation
; Xkey Routines
X1:
CLR
PRINT 1,2 "ENTER BAG WEIGHT"
READ 2,1 "IN LBS -- ", SHOW FILLWGHT
CLR
PRINT 1,2 "X1 = FILL WEIGHT"
PRINT 2,2 "X2 = AUGER SPEED"
F1=ON
XEND
X2:
CLR
READ 1,1 "AUGER SPEED = ", SHOW AUGERSPD
CLR
PRINT 1,2 "X1 = FILL WEIGHT"
PRINT 2,2 "X2 = AUGER SPEED"
F2=ON
XEND
;Start of Main Program
F1=OFF
F2=OFF
X1 CONT
X2 CONT
CLR
PRINT 1,1 "X1 = FILL WEIGHT"
PRINT 2,1 "X2 = AUGER SPEED"
WAIT F1=ON
WAIT F2=ON
NEXT:
CLR
PRINT 1,1 "X1 = FILL WEIGHT"
PRINT 2,1 "X2 = AUGER SPEED"
OFFSET=1 ;Slow feed weight
RAPWGHT=FILLWGHT-OFFSET ;Calculate rapid feed weight variable
SLOWWGHT=RAPWGHT+OFFSET ;Calculate slow feed weight variable
AUGERRDY=ON ;Output to conveyor, auger ready
WAIT BAGRDY=ON ;Wait for bag present
AUGERRDY=OFF
CLR
FILL:
D=1,V=AUGERSPD ;Index auger at variable speed
IF ADC1>=RAPWGHT JMP SLOWFILL
JMP FILL ;Fill until weight variable is reached
SLOWFILL:
D=.1,V=AUGERSPD
SLOW:
D=.1,V=50
IF ADC1>=SLOWWGHT JMP STOPFILL
JMP SLOW ;Slowfill until weight variable is reached
STOPFILL:
D=.5,V=0
SEALBAG=ON ;Seal bag
WAIT SEALDONE=ON ;Bag seal complete
SEALBAG=OFF
FSDONE=ON ;Output to conveyor, fill & seal complete
DWL .25
FSDONE=OFF
JMP NEXT ;Continue process
END