Kod: Zaznacz cały
CYCLE TIMER & WRITE LOG for 840D **Sharing**
Working in a high production environment we need to keep close control of cycle time. Created this cycle timer that records five cycles and then gives you the average. Which is good when you are there. But we are a 24/7 operation so I wanted a way to keep track and log cycle times every 300 cycles. So the first file is the cycle timer. Second final is used to log a cycle every 300 and copy it to a file with the date and time. 3rd is the output file.
If you'd like copies of the files just send me an email to [email protected]
or if you have questions and comments put them here so everybody can take advantage of it. Would really like to hear if anyone has a better way or different way of doing this.
;OPERATION *** CYCLE TIME COUNTER ***
;Shared By: [email protected]
R755=R754
STOPRE
R754=R753
STOPRE
R753=R752
STOPRE
R752=R751
STOPRE
R751=R750
STOPRE
R760=((R751+R752+R753+R754+R755)/5)
$AC_TIMER[1]=-1
STOPRE
R750=$AC_TIMER[1]
STOPRE
$AC_TIMER[1]=0
STOPRE
NN9999:
M17
____
;RECORD_CYCLETIME
;Shared By: [email protected]
DEF INT ERROR
DEF STRING [16] NAME="RECORD_CYCLETIME"
DEF STRING [4] ENDING="_SPF"
STOPRE
R401=R401+1 ;AFTER 300 CYCLES IT RECORDS CYCLE TIME IN FILE "RECORD_CYCLETIME.SPF"
STOPRE
IF R401==300 GOTOF RECORD
STOPRE
GOTOF END
STOPRE
RECORD:
R400=R400+1 ;RECORDED CYCLES
WRITE (ERROR,<<NAME<<ENDING, "#"<<R400<<"DATE = "<<$A_MONTH<<"/"<<$A_DAY<<"/20"<<$A_YEAR<<" TIME = "<<$A_HOUR<<":"<<$A_MINUTE<< "CYCLE TIME = " <<R750<<" SEC")
IF ERROR
MSG ("ERROR IN WRITE COMMAND" <<ERROR
M0
ENDIF
R401=0 ;RESET R401 BACK TO ZERO
END:
STOPRE
NN9999:
M17
____
; output to the log
#1 DATE: 11/3/2013 TIME: 14:21 CYCLE TIME: 47.04 SEC
#2 DATE: 11/3/2013 TIME: 14:32 CYCLE TIME: 235.304 SEC
#3 DATE: 11/3/2013 TIME: 14:43 CYCLE TIME: 46.968 SEC
#4 DATE: 11/3/2013 TIME: 14:51 CYCLE TIME: 46.876 SEC
#5 DATE: 11/3/2013 TIME: 15:4 CYCLE TIME: 46.82 SEC
