Appendixes – Rockwell Automation 1398-PDM-xxx IQ Master Version 3.2.4 for IA-2000 and IQ-5000 Positioning Drive Modules, IQ-55 User Manual
Page 406

384
Application Examples • Thermoformer Application
Publication 1398-PM601A-EN-P — October 2000
APPENDIXES
READ 3,4 "^D0COUNT^D1 " ,SHOW COUNT,5,0(0,99999)
PRINT 3,1 "X3:COUNT "
IF COUNT <> 0 PRINT COUNT,5,0 ;If count = 0 run continuously
IF COUNT = 0 PRINT "CONT"
JMP X3E
X3_1:
;If screen = 1 read new anticipate output length
READ 3,4 "^D0OUT ON^D1 " ,SHOW OUT_LEN,7,3(0,999)
PRINT 3,1 "X1:OUT ON " ,G8,7,3
X3E:
XEND
;End of X3 key program
;
;The X4 key routine changes the operator terminal from one menu to the next.
X4:
;X4 key program
SCREEN = SCREEN + 1
;Change screen variable to next screen
IF SCREEN = 3 SCREEN = 0
;Screen must be 0, 1, or 2
ON SCREEN JMP M0,M1,DI
;Determine the new screen to be displayed
M0:
;If screen = 0 change display to menu 0
CLEAR
;Clear operator terminal screen
PRINT 1,1 "X1:LENGTH " ,LENGTH,7,3
PRINT 2,1 "X2:SPEED " ,SPEED,4,0
PRINT 3,1 "X3:COUNT "
IF COUNT <> 0 PRINT COUNT,5,0 ;If count not zero print value
IF COUNT = 0 PRINT "CONT"
; else continuous operation
PRINT 4,1 "X4:NEXT MENU"
JMP X4E
M1:
;If screen = 1 change display to menu 1
CLEAR
;Clear operator terminal screen
PRINT 1,1 "X1:ACCEL " ,ALPHA,4,0
PRINT 2,1 "X2:DWELL " ,TIME,6,3
PRINT 3,1 "X3:OUT ON " ,OUT_LEN,7,3
PRINT 4,1 "X4:NEXT MENU"
JMP X4E
DI:
;If screen = 2 change display to status
CLEAR
;Clear operator terminal screen
PRINT 4,1 "X4:NEXT MENU"
IF STATE <> 1 PRINT 2,2 "WAITING FOR START"
IF STATE = 1 PRINT 2,3 "RUNNING BATCH"
IF STATE = 2 PRINT 3,3 "BATCH COMPLETE"
X4E:
XEND
;End of X4 key program
;
ALL OFF
;Initialize all outputs off
CLEAR
PRINT "^D3"
;Print initial message on operator terminal
PRINT 2,3 "THERMOFORMER"
PRINT 3,7 "CONTROL"
DELAY 2
;Wait for 2 seconds
CLEAR
;Clear operator terminal screen
SCREEN = 2
;Set screen to status display
STATE = 0
;Initial state=0 (waiting for start input)
PRINT 4,1 "X4:NEXT MENU"
X1 CONT
;Enable the X key routines for continuous
; operation
X2 CONT
X3 CONT
X4 CONT
TFMRLOOP:
;Main program loop
IF SCREEN <> 2 JMP TFMR05
CLEAR 2
;If screen = 2 print status message
PRINT 2,2 "WAITING FOR START"
TFMR05:
WAIT I4 ON
;Wait for start input