stupiduser
Level-1
- Beiträge
- 34
- Reaktionspunkte
- 0
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
wie spiel ich das script ein oder wo schreibe ich es selber? oder hat wer so nen kleines Probe programm ???
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?