66 lines
1.7 KiB
Plaintext
66 lines
1.7 KiB
Plaintext
FUNCTION "CpuZtUS" : DWord
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
AUTHOR : FSI
|
|
VERSION : 0.1
|
|
VAR_INPUT
|
|
"I_STIME.tx" : DWord; // Zeit
|
|
END_VAR
|
|
|
|
VAR CONSTANT
|
|
debug : Bool;
|
|
N : Int;
|
|
offset : Int;
|
|
offset_1 : DWord := 0;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
(*#################################################################################################
|
|
|
|
Copyright (c) Fondium Singen GmbH
|
|
|
|
### Änderungshistorie ###
|
|
|
|
Datum: Version: Bearbeiter: Beschreibung:
|
|
23.09.2018 0.0 St. Maier Neuerstellung
|
|
11.10.2019 0.1 St. Maier Überarbeitung Kopf damit TIA kompatibel
|
|
17.10.2019 0.2 St. Maier I_STIME Eingefügt, damit keine Abhängigkeit zu einem
|
|
IDB besteht
|
|
18.10.2019 0.3 St. Maier Variablen Kommentare eingefügt - wurden bei der
|
|
Portierung nach TIA nicht übernommen
|
|
#################################################################################################*)
|
|
|
|
(*################################### Baustein Beschreibung #######################################
|
|
|
|
Abhängigkeiten (von anderen Fuktionen und Quellen):
|
|
- STIME, IDB_STIME
|
|
|
|
Inputs:
|
|
- I_STIME.tx
|
|
|
|
Outputs:
|
|
-
|
|
|
|
In-\Outputs:
|
|
-
|
|
|
|
Return-Value:
|
|
-
|
|
|
|
Funktionsbeschreibung:
|
|
|
|
|
|
#################################################################################################*)
|
|
|
|
#CpuZtUS := DINT_TO_DWORD(DWORD_TO_DINT(#"I_STIME.tx") * 1000);
|
|
|
|
IF #debug THEN
|
|
#CpuZtUS := DINT_TO_DWORD((DWORD_TO_DINT(SHL(IN:=#CpuZtUS,N:=#N) OR SHL(IN:=DWORD#1,N:=#N))-1) + DWORD_TO_DINT(#offset_1));
|
|
END_IF;
|
|
|
|
|
|
|
|
|
|
END_FUNCTION
|
|
|