840D Pomiar czasu i zapis do pliku

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 

Kod: Zaznacz cały

%_TTF_SPF
;$PATH=/_N_CUS_DIR
PROC TTF SBLOF DISPLOF

;NAME: Till The Finish

;PROGRAM DO ODLICZANIA POZOSTAŁEGO CZASU OBRÓBKI WSZYSTKICH DETALI
;ZLICZA ODSTĘP CZASU CO JAKI JEST URUCHAMIANY (PROGRAM + WYMIANA DETALU)
;NA TEJ PODSTAWIE SZACUJE JAK DŁUGO POTRWA JESZCZE OBRÓBKA.
;PROGRAM NALEŻY PODCZEPIĆ POD NAGŁÓWEK E_HEAD
;TO DO: DODANIE LOGIKI KTÓRA NIE BRAŁA BY POD UWAGĘ CZASU WYMIANY PŁYTEK,
;		PRZERWY CZY JEDNOSTKOWYCH ODSTĘPÓW DŁUŻSZCH LUB KRÓTSZYCH NIŻ
;		CZAS PROGRAMU + (CZAS WYMIANY +/- n%)...
;
;$AC_REQUIRED_PARTS  ->  ZADANA LICZBA PRZEDMIOTÓW
;$AC_TOTAL_PARTS  ->  LICZBA DNIOWA PRZEDMIOTÓW
;$AC_ACTUAL_PARTS  ->  LICZBA CAŁKOWITA OBROBIONYCH PRZEDMIOTÓW
;
;
	
DEF INT T_PART, REM_PARTS, TIM_1, TIM_2, TIM_3, T_MODE
DEF BOOL STR_TIME
;---------------------------------------------
;T_MODE = 0 - SREDNIA OSTATNICH 6 CZASÓW; 1 - ŚREDNIA NAJDŁUŻSZYCH CZASÓW; 2 - ŚREDNIA NAJKRÓTSZYCH CZASÓW

T_MODE=2
	
		;/UNIX time :);/
		R71=$A_SECOND + ($A_MINUTE * 60) + ($A_HOUR * 3600) ;T_NEW
		STOPRE
IF R70==0
		R70=$A_SECOND + ($A_MINUTE * 60) + ($A_HOUR * 3600) ;T_OLD
		STOPRE
		GOTO CALC_DATA
ENDIF
		;WARUNEK SPRAWDZAJĄCY CZY POMIAR CZASU NIE BYŁ ZROBIONY PRZED I PO 24

		IF R70 < R71
		T_PART = R71 - R70
	ELSE
		IF R70 > R71
			T_PART = (86400-R70) + R71
		ELSE
		GOTOF END_T_PART
		ENDIF
	ENDIF
	
	R70=$A_SECOND + ($A_MINUTE * 60) + ($A_HOUR * 3600) ;T_OLD

	;++++++++++++++++++++++++++++
	;SPRAWDZANIE USTAWIENIA "R4" - RZECZYWISTA LICZBA DETALI
	;OBROBIONA PODCZAS 1 PRZEJŚCIA PROGRAMU
	;WYMUSZENIE LICZBY <> 0 (W DALSZEJ CZĘŚCI BĘDZIEMY DZIELIĆ PRZEZ R4)
	IF	R4==0
		R4=1
	ELSE
		IF R4<0
			R4=TRUNC(ABS(R4))
		ENDIF
	ENDIF
	;++++++++++++++++++++++++++++
	
	REM_PARTS=$AC_REQUIRED_PARTS-$AC_ACTUAL_PARTS ;OBLICZENIE ILE ZOSTAŁO NAM DETALI DO OBRÓBKI
	
	
	
	IF	($AC_TOTAL_PARTS==0) OR ($AC_REQUIRED_PARTS==0)
		R74=0 R75=0 R76=0 R77=0 R78=0 R79=0 R80=0
	ENDIF
	
	R74=T_PART
	R75=R74
	R76=R75
	R77=R76
	R78=R76
	R79=R78
		
	;,TWORZENIE ŚREDNIEJ POMIARU R75, R76, R77, R78
	
	IF	R78==0	GOTOF	REAL_TIMER
	
	IF (T_MODE==2)
		;---
		IF	(R74>R75)
			TIM_1=R75
		ELSE
			TIM_1=R74
		ENDIF
		;---
		IF (R76>R77)
			TIM_2=R77
		ELSE
			TIM_2=R76
		ENDIF
		;---
		IF (R78>R79)
			TIM_3=R79
		ELSE
			TIM_3=R78
		ENDIF
		;---
		T_PART=(TIM_1+TIM_2+TIM_3)/3
	ELSE
			IF (T_MODE==1)
				;---
				IF	(R74<R75)
					TIM_1=R75
				ELSE
					TIM_1=R74
				ENDIF
				;---
				IF (R76<R77)
					TIM_2=R77
				ELSE
					TIM_2=R76
				ENDIF
				;---
				IF (R78<R79)
					TIM_3=R79
				ELSE
					TIM_3=R78
				ENDIF
				;---
				T_PART=(TIM_1+TIM_2+TIM_3)/3
			ELSE
				;T_MODE==0
				T_PART=(R74+R75+R76+R77+R78+R79)/6
			ENDIF
	ENDIF
	
REAL_TIMER:
	T_PART=TRUNC((REM_PARTS DIV R4)*T_PART) ;CZAS POTRZEBNY DO OBROBIENIA WSZYSTKICH DETALI 
	
	T_DAY=T_PART DIV 86400
	T_PART=T_PART-(T_DAY*86400)
	STOPRE
	T_HOUR=T_PART DIV 3600
	STOPRE
	T_MINUTE=(T_PART-(T_HOUR*3600) DIV 60
	;-++-------------
	EX_TIME=<<"1"
	IF T_DAY==0
		EX_TIME=<<"00"
	ELSE
		IF (T_DAY DIV 10) <> 0
			EX_TIME=<<T_DAY
		ELSE
			EX_TIME=<<"0"<<T_DAY
		ENDIF
	ENDIF
	IF T_HOUR==0
		EX_TIME=<<"00"
	ELSE
		IF (T_HOUR DIV 10) <> 0
			EX_TIME=<<T_HOUR
		ELSE
			EX_TIME=<<"0"<<T_HOUR
		ENDIF
	ENDIF
	IF T_MINUTE==0
		EX_TIME=<<"00"
	ELSE
		IF (T_MINUTE DIV 10) <> 0
			EX_TIME=<<T_MINUTE
		ELSE
			EX_TIME=<<"0"<<T_MINUTE
		ENDIF
	ENDIF
	EX_TIME=<<"1"
	;-++-------------
	
	STR_TIME=ISNUMBER(EX_TIME)
	
	IF STR_TIME == TRUE
		R80=NUMBER(EX_TIME)
	ELSE
		R80=18888881
		IF R79<>0
			R74=0 R75=0 R76=0 R77=0 R78=0 R79=0
		ENDIF
	ENDIF

	IF	REM_PARTS==0
		R70=0 R71=0 R74=0 R75=0 R76=0 R77=0 R78=0 R79=0
	ENDIF
	
END_T_PART:
M17
CALC_DATA:
R80=18888881
GOTOB END_T_PART

Kod: Zaznacz cały

DEF STRING[128] MESSAGE1
DEF STRING[64] SCROLL_TEXT
DEF INT A_, B_, C_, D_=0
STOPRE
N25 G4F10
STOPRE
R10=$AC_OLD_PROG_NET_TIME
STOPRE
MESSAGE1="------------"
SCROLL_TEXT="CNC.INFO.PL"
A_=STRLEN(MESSAGE1)
B_=STRLEN(SCROLL_TEXT)
MESSAGE1=<<MESSAGE1<<SCROLL_TEXT

C_=A_+B_

;++++++++++++++++
WHILE D_<C_
MSG(SUBSTR(MESSAGE1,D_,A_)<<" POZOSTALA WIADOMOC")
;G4F10
MESSAGE1=<<MESSAGE1<<"-"
D_=D_+1
ENDWHILE
;++++++++++++++++

STOPRE
M0
M30