Beiträge anzeigen
Diese Sektion erlaubt es ihnen alle Beiträge dieses Mitglieds zu sehen. Beachten sie, dass sie nur solche Beiträge sehen können, zu denen sie auch Zugriffsrechte haben.
FUNCTION_BLOCK CLK_PRG
TITLE = 'CLK_PRG'
//
//clk_prg uses the internal sps time to generate a clock with programmable period time.
//the period time is defined for 10ms .. 65s
//the first cycle after start is a clk pulse and then depending on the programmed period time a delay.
//every pulse is only valid for one cycle.
//the accuracy of clk_prg is depending on the accuracy of the system clock.
//
//uses: T_PLC_MS [FC64]
// STIME [FB64],IDB_STIME [DB64]
//
VERSION : '1.4'
AUTHOR : hugo
NAME : CLK_PRG
FAMILY : GENERAT
VAR_INPUT
PT : TIME := t#10ms;
END_VAR
VAR_OUTPUT
Q : BOOL := 0;
END_VAR
VAR
last : TIME;
tx: TIME;
END_VAR
VAR_TEMP
END_VAR
BEGIN
(* read system time *)
tx := DINT_TO_TIME(DWORD_TO_DINT("T_PLC_MS"()));
(* generate output pulse when next_pulse is reached *)
Q := tx - last >= pt OR tx - last < t#0ms;
IF Q THEN last := tx; END_IF;
(* revision hiostory
hm 25 feb 2007 rev 1.1
rewritten code for higher performance
pt can now be changed during runtime
hm 17. sep 2007 rev 1.2
replaced time() with t_plc_ms() for compatibility reasons
hm 25. oct. 2008 rev 1.3
optimized code
psyche 05.10.2014 rev 1.4
nearly completely revised because of bugs in init procedure
*)
END_FUNCTION_BLOCK
FUNCTION_BLOCK STIME
TITLE = 'STIME'
//
//this function block makes sure that the timer of a siemens sps counts from 0 - 2^32-1.
//
VERSION : '1.6'
AUTHOR : dalbi
NAME : STIME
FAMILY : MEASURE
VAR_INPUT
END_VAR
VAR_OUTPUT
tx : DWORD;
at_tx AT tx : ARRAY[0..31] OF BOOL;
END_VAR
VAR
last_time: DWORD;
bit31: BOOL;
init: BOOL := false;
max_Cycletime : TIME := t#2s; // Max cycletime default 2 second. Can be adjust when you need longer cycletimes.
Init_happened : BOOL := false; // An Init happened (CPU restart, etc). Time resetted to T#0ms or actual Timer value. Reset this manuell when you use it
cycle : INT := 0; // Value of error Cycles
(* TX_Sim : TIME; // Actual time ONLY for simulation
*)
END_VAR
VAR_TEMP
lastBit31:BOOL;
TimeDiff:TIME;
last_time_temp : DWORD; // last_time but always positive
at_last_time_temp AT last_time_temp : ARRAY[0..31] OF BOOL;
END_VAR
(* this FB is only necessary for siemens sps
the siemens sps timer counts from 0 to 2^31-1 and starts at 0 sfter overrun.
this means that the bit 31 (the highest bit ) will never be used and therefore
a problem arises when t2 - t1 is checked.
t2 - t1 is always valid also in an timer overrun situation where the time t1 is very high and t2 is very low.
the result of the subtraction t2 - t1 however is still valid.
this calculation does not work for soiemens because the highest bit is not used.
this module stores the highest bit, changes the highest bit at every overrun occurence and stuffs ther highest bit in the output.
the output is then used by t_plc_us and t_plc_ms.
the correction needs and fb and not a function because the value of the highest bit has to be stored.
do never use this function block in a codesys environment. the timer in codesys is correct and runs from 0 to 2^32-1
*)
(* read the system timer *)
tx := DINT_TO_DWORD(TIME_TO_DINT(TIME_TCK()));
(* only for simulation
TX_Sim := TX_Sim + t#10ms;
tx := DINT_TO_DWORD(TIME_TO_DINT(TX_Sim));*)
(* Check if Init necessary*)
(* On warmstarts the Siemens CPU's sets the systemtimer to 0 and also when a overrun occurs*)
last_time_temp := last_time;
at_last_time_temp[7] := false; (*set the last_time to a positiv value. Make savings on calculations*)
IF DWORD_TO_DINT(tx) < TIME_TO_DINT(max_Cycletime) AND DWORD_TO_DINT(last_time_temp) < TIME_TO_DINT(T#24D_20H_31M_23S_647MS - max_Cycletime) AND DWORD_TO_DINT(last_time_temp) > TIME_TO_DINT(max_Cycletime)THEN
init := false;
END_IF;
(* reset last_time on system startup *)
IF NOT init THEN
last_time := 0;
bit31 := false;
init := true;
Init_happened := true;
END_IF;
(* check for overrun *)
IF DWORD_TO_DINT(tx) < TIME_TO_DINT(max_Cycletime) AND DWORD_TO_DINT(last_time_temp) > TIME_TO_DINT(T#24D_20H_31M_23S_647MS - max_Cycletime) THEN
(* an overrun has occured, change the value of the highest bit *)
bit31 := NOT bit31;
END_IF;
(* stuff the highest bit into the timer value *)
at_tx[7] := bit31;
(* Check for Time_Tck bug on older S/-300 CPU's Firmware < 2.01*)
TimeDiff := DINT_TO_TIME(DWORD_TO_DINT(tx)) - DINT_TO_TIME(DWORD_TO_DINT(last_time));
IF (TimeDiff > max_Cycletime OR TimeDiff <T#0ms) AND cycle = 0 THEN
tx := last_time;
cycle := cycle +1;
ELSE
(* remember the last system time for the next overrun check *)
last_time := tx;
cycle := 0;
END_IF;
(* revision history
DA 14.9.2007 rev 1.0
original version
DA 24.2.2008 rev 1.1
added self reset on system startup
DA 2.5.2008 rev 1.2
correct a problem running under OB35
DA 12.3.2009 rev 1.3
correct a problem run on different CPUs
DA 22.12.2009 rev 1.4
correct a problem on startup
DA 19.09.2011 rev 1.5
correct a error in code
psyche 01.10.2014 rev 1.6
nearly completely revised because of many bugs
*)
END_FUNCTION_BLOCK
DATA_BLOCK IDB_STIME STIME
//
// Instance data block for "STIME"
//
BEGIN
END_DATA_BLOCK
Das ging in der Codebox hier im Forum irgendwie unter. "IDB_STIME"();
#tx := "IDB_STIME".tx; IF #Q OR NOT "IDB_STIME".init THEN #last := #tx; END_IF;IF #Q OR #tx - #last < T#0ms THEN #last := #tx; END_IF;Das verhindert das sich der Baustein "aufhängt". Obwohl das eigentlichgar nicht passieren sollte.
IF #Q OR NOT "IDB_STIME".init THEN #last := #tx; END_IF;(* read system time *)
#tx := DINT_TO_TIME(DWORD_TO_DINT("T_PLC_MS"()));"IDB_STIME"();
#tx := "IDB_STIME".tx;IF #Q OR #tx - #last < T#0ms THEN #last := #tx; END_IF;
Zu deinem Problem in der V1.6. Gibt es für deine alte CPU keinen FW-Update? So wie du es beschreibst, liegt es ja nicht an der Funktion STIME sondern eher an der CPU!? Ich habe mir deine Änderung angeschaut, ich denke auch, dass es funktioniert.
Gruss
Gregor
Für folgende Geräte mit Firmwarestand V1.x gibt es keine Updatemöglichkeit.
Für alle Versionen von C7-621, 623, 624, 626, 633 und 634
Für CPU 312IFM, CPU 313, CPU 314, CPU 314IFM, CPU 315, CPU 315F, CPU 315-2DP und CPU 316-2DP
... zur STIME V1.6
Was hast Du geändert? (bin zu faul um es zu suchen)
Warum hast Du es geändert?
Ich verwende derzeit zu 100% die S7-1500 ... letztes Jahr hatte ich noch (die letzte) S7-300.
Alles mit TIA (dzt V13)
Mg
... muß mich auch noch einmischen ...
Bitte beachte auch die letzten paar Beiträge von mir.
Ich bin auch ein bischen verärgert, daß die Siemens-Anbindung kaum mehr gewartet wird. Aber was soll man machen, man kann auch alles selber schreiben, dann gibts halt noch mehr Fehler. Trotzdem würde es mich freuen, wenn es mit der dem S7-Oscat wieder mal weiter ginge.
Nun noch ein Kommentar zu deinen Antworten ... wenn man schon eine "kostenlose" LIB irgendeines dir sicher unbekannten Programmiers verwendet, kann man schon erwarten, daß man die Meldungen des letzten Jahres in dem Forum durchgehen (Gott sei Dank gibt es das!!!). Ich habe das auch gemacht! Das braucht grad mal 1-2h. Und noch was ... ich lege mit Programmierfehlern in meinen Anlagen ganz Werke still ... nicht nur ein paar Maschinen und trotzdem verwende ich die OSCAT.
ABER TROTZDEM HOFFE ICH DASS ICH HIER WIEDER MAL WAS VON DIR HÖRE. Wir brauchen Kommentare zur LIB. DAS HILFT ALLEN!!!
Danke
Mg
... siehe Beitrag weiter unten...