QUOTE (heinzderheinz @ 08.01.2015, 14:19 Uhr)
Was bedeutet: WEGSCHREIBEN
Auslesen??
Bei der Siemens 840D Steuerung kann ich mit einem Zeit Start und einem Zeit Stop die aktuelle Laufzeit in einem Parameter schreiben, und den Wert des Parameters über ein Write Befehl in mein Programm schreiben. Das Ergebnis siehst du unten im Programm %_N_LAUFZEIT_BF1844_MPF
%_N_ZEIT_START_BF1844_SPF
;$PATH=/_N_WKS_DIR/_N_BF1844_NEU_WPD
DEF INT _EC
DEF REAL Stunde, Minute, Sekunde
Stunde = $A_HOUR
Minute = $A_MINUTE
Sekunde = $A_SECOND
R950 = TRUNC((Stunde*60+Minute+Sekunde/60)*100)/100
RET
Hier ein Beispiel von der Siemens 840D:
%_N_ZEIT_STOP_BF1844_SPF
;$PATH=/_N_WKS_DIR/_N_BF1844_NEU_WPD
DEF INT _EC
DEF REAL Stunde, Minute, Sekunde
Stunde = $A_HOUR
Minute = $A_MINUTE
Sekunde = $A_SECOND
R960 = TRUNC((Stunde*60+Minute+Sekunde/60)*100)/100
R990 = R960 - R950
IF PAL_NO==1 GOTOF LAUFZ_PAL1
ENDIF
IF PAL_NO==2 GOTOF LAUFZ_PAL2
ENDIF
LAUFZ_PAL1:
MSG("Laufzeit PAL1 = "<<R990<<" Minuten")
Write (_EC,"/_N_WKS_DIR/_N_BF1844_NEU_WPD/_N_LAUFZEIT_BF1844_MPF","LAUFZEIT PAL1 AM "<<$A_DAY<<".0"<<$A_MONTH<<"."<<$A_YEAR<<" - "<<$A_HOUR<<":"<<$A_MINUTE<<":"<<$A_SECOND<<" - = "<<R990<<" Min")
GOTOF ENDE
LAUFZ_PAL2:
MSG("Laufzeit PAL2 = "<<R990<<" Minuten")
Write (_EC,"/_N_WKS_DIR/_N_BF1844_NEU_WPD/_N_LAUFZEIT_BF1844_MPF","LAUFZEIT PAL2 AM "<<$A_DAY<<".0"<<$A_MONTH<<"."<<$A_YEAR<<" - "<<$A_HOUR<<":"<<$A_MINUTE<<":"<<$A_SECOND<<" - = "<<R990<<" Min")
ENDE:
RET
%_N_LAUFZEIT_BF1844_MPF
;$PATH=/_N_WKS_DIR/_N_BF1844_NEU_WPD
LAUFZEIT AM 15.05.14 - 17:45:48 - Laufzeit = 16.39 Minuten