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

Application Examples • In-line Bottle Filler 389
Publication 1398-PM601A-EN-P — October 2000
APPENDIXES
;Source File Name: FILLER.QPS
;Version 3.00 2/29/96
TITLE "FILLER"
PGMTYPE = MAINPGM
; G Variable Assignments
ASSIGN BOTL_LEN G1 ;Length between each bottle
ASSIGN BOTL_NUM G2 ;Number of bottles being filled in one operation
ASSIGN LAST_BTL G3 ;Position of last bottle where fillerhead began
; tracking conveyor speed
ASSIGN POS_LIM G4 ;Fillerhead forward position limit
; V Variable Assignments
ASSIGN FILL_LEN V1 ;Length between bottle 1 and botl_num + 1
ASSIGN NEXT_BTL V2 ;Next position where fillerhead will begin
; tracking conveyor
ASSIGN TEMP1 V3 ;Botl_num - 1 position in counts (Scale2)
ASSIGN FILLER_HOM V4 ;Fillerhead home position
ASSIGN REL_POS V5 ;Relative position between bottles and fillerhead
ASSIGN MAKE_UP V6 ;Correction move distance
ASSIGN CBOTL_LEN V7 ;Length between each bottle in counts (Scale2)
ASSIGN CFILL_LEN V8 ;Length between bottle 1 and botl_num + 1 in
; counts (Scale2)
ASSIGN CFILLER_HOM V9 ;Fillerhead home position in counts (Scale)
; Input Assignments
ASSIGN FILL_CMPLT I10 ;I10 is the fill operation complete input
; Output Assignments
ASSIGN FILL_EN O1 ;O1 is the fill operation enable output
ASSIGN POS_ERR O2 ;O2 is the fillerhead’s position error output
; Scanned Events
S1:IF POS1 > POS_LIM ;If fillerhead travels past the forward limit, then:
{
FILL_EN=OFF ;Turn off fill operation output
GEAREN=OFF ;Deactivate electronic gearing
POS_ERR=ON ;Turn on fillerhead position error output
}
; Xkey Routines
;The X1 key routine is used for operator entry of the
; length between each bottle for the bottle
; filling operation.
X1:
CLEAR
PRINT "BOTTLE LENGTH"
READ 2,1 ,SHOW BOTL_LEN,7,3
CLEAR
PRINT "LENGTH = " ,BOTL_LEN
PRINT 2,1 "NUMBER = " ,BOTL_NUM
PRINT 3,1 "LIMIT = " ,POS_LIM
PRINT 4,1 "X1:LEN X2:NUM X3:LIM"
XEND
;The X2 key routine allows operator entry of the number
; of bottles being filled in each operation.
X2:
CLEAR
PRINT "NUMBER OF BOTTLES"
READ 2,1 ,SHOW BOTL_NUM,7,0
CLEAR
PRINT "LENGTH = " ,BOTL_LEN
PRINT 2,1 "NUMBER = " ,BOTL_NUM
PRINT 3,1 "LIMIT = " ,POS_LIM
PRINT 4,1 "X1:LEN X2:NUM X3:LIM"
XEND
;The X3 key routine allows operator entry of the
; forward travel limit of the fillerhead.