FUNCTION FC 3 : VOID
TITLE =set_sys_clk
//Baustein zum stellen der AG-Uhr nach der Systemzeit des Visualisierungs-PC
AUTHOR : ne
FAMILY : clock
VERSION : 0.1
VAR_INPUT
jahr : INT ;
monat : INT ;
tag : INT ;
stunden : INT ;
minuten : INT ;
sekunden : INT ;
set : BOOL ;
END_VAR
VAR_TEMP
zeit : DATE_AND_TIME ;
rt_vl : INT ;
bcd_year1 : BYTE ;
bcd_year2 : BYTE ;
bcd_month1 : BYTE ;
bcd_month2 : BYTE ;
bcd_day1 : BYTE ;
bcd_day2 : BYTE ;
bcd_hour1 : BYTE ;
bcd_hour2 : BYTE ;
bcd_minut1 : BYTE ;
bcd_minut2 : BYTE ;
bcd_second1 : BYTE ;
bcd_second2 : BYTE ;
END_VAR
BEGIN
NETWORK
TITLE =
UN #set;
SPB _001;
NETWORK
TITLE =
L #jahr;
L 2000;
-I ;
ITB ;
T LW 10;
L #monat;
ITB ;
T LW 12;
L #tag;
ITB ;
T LW 14;
L #stunden;
ITB ;
T LW 16;
L #minuten;
ITB ;
T LW 18;
L #sekunden;
ITB ;
T LW 20;
NETWORK
TITLE =
L #bcd_year2;
T LB 0;
L #bcd_month2;
T LB 1;
L #bcd_day2;
T LB 2;
L #bcd_hour2;
T LB 3;
L #bcd_minut2;
T LB 4;
L #bcd_second2;
T LB 5;
L W#16#0;
T LB 6;
T LB 7;
NETWORK
TITLE =
U #set;
SPBNB _001;
CALL SFC 0 (
PDT := #zeit,
RET_VAL := #rt_vl);
_001: NOP 0;
END_FUNCTION