CAL Uhr_lesen (
|
:= Year ,
:= Month ,
:= Day ,
:= Weekday ,
:= Hour ,
:= Minute ,
:= Second )
Uhrzeit_erzeugen.Second:=USINT_TO_UINT(Uhr_lesen.Second);
Uhrzeit_erzeugen.Minute:=USINT_TO_UINT(Uhr_lesen.Minute);
Uhrzeit_erzeugen.Hour:=USINT_TO_UINT(Uhr_lesen.Hour);
CAL Uhrzeit_erzeugen(
MilliSecond := ,
Second := ,
Minute := ,
Hour :=
|
td_aktuelle_Uhrzeit:= OutputTOD ,
:= Error )
Datum_erzeugen.Day:=USINT_TO_UINT(Uhr_lesen.Day);
Datum_erzeugen.Month:=USINT_TO_UINT(Uhr_lesen.Month);
Datum_erzeugen.Year:=USINT_TO_UINT(Uhr_lesen.Year);
CAL Datum_erzeugen (
Day := ,
Month := ,
Year :=
|
da_aktuelles_Datum:= OutputDate ,
:= Error )
D_A_T_erzeugen.Second:=USINT_TO_UINT(Uhr_lesen.Second);
D_A_T_erzeugen.Minute:=USINT_TO_UINT(Uhr_lesen.Minute);
D_A_T_erzeugen.Hour:=USINT_TO_UINT(Uhr_lesen.Hour);
D_A_T_erzeugen.Day:=USINT_TO_UINT(Uhr_lesen.Day);
D_A_T_erzeugen.Month:=USINT_TO_UINT(Uhr_lesen.Month);
D_A_T_erzeugen.Year:=USINT_TO_UINT(Uhr_lesen.Year);
CAL D_A_T_erzeugen ( MilliSecond := ,
Second := ,
Minute := ,
Hour := ,
Day := ,
Month := ,
Year :=
|
dat_akutelles_Datum_Uhrzeit:= OutputDAT ,
:= Error )
(***Ausgang 0 wird geschalten***)
IF (dat_akutelles_Datum_Uhrzeit > DT#2009-04-23-12:00:00) AND (dat_akutelles_Datum_Uhrzeit < DT#2009-04-25-18:00:00) Then
x_D_Ausgang_0:=true;
END_IF;
...und den entsprechenden Reiter (lokal, global, typ) auswählen. In meinem Programmbeispiel sind alle Variablen global deklariert.
hier nochmal der Programmcode:
mfG JanCode:CAL Uhr_lesen ( | := Year , := Month , := Day , := Weekday , := Hour , := Minute , := Second ) Uhrzeit_erzeugen.Second:=USINT_TO_UINT(Uhr_lesen.Second); Uhrzeit_erzeugen.Minute:=USINT_TO_UINT(Uhr_lesen.Minute); Uhrzeit_erzeugen.Hour:=USINT_TO_UINT(Uhr_lesen.Hour); CAL Uhrzeit_erzeugen( MilliSecond := , Second := , Minute := , Hour := | td_aktuelle_Uhrzeit:= OutputTOD , := Error ) Datum_erzeugen.Day:=USINT_TO_UINT(Uhr_lesen.Day); Datum_erzeugen.Month:=USINT_TO_UINT(Uhr_lesen.Month); Datum_erzeugen.Year:=USINT_TO_UINT(Uhr_lesen.Year); CAL Datum_erzeugen ( Day := , Month := , Year := | da_aktuelles_Datum:= OutputDate , := Error ) D_A_T_erzeugen.Second:=USINT_TO_UINT(Uhr_lesen.Second); D_A_T_erzeugen.Minute:=USINT_TO_UINT(Uhr_lesen.Minute); D_A_T_erzeugen.Hour:=USINT_TO_UINT(Uhr_lesen.Hour); D_A_T_erzeugen.Day:=USINT_TO_UINT(Uhr_lesen.Day); D_A_T_erzeugen.Month:=USINT_TO_UINT(Uhr_lesen.Month); D_A_T_erzeugen.Year:=USINT_TO_UINT(Uhr_lesen.Year); CAL D_A_T_erzeugen ( MilliSecond := , Second := , Minute := , Hour := , Day := , Month := , Year := | dat_akutelles_Datum_Uhrzeit:= OutputDAT , := Error ) (***Ausgang 0 wird geschalten***) IF (dat_akutelles_Datum_Uhrzeit > DT#2009-04-23-12:00:00) AND (dat_akutelles_Datum_Uhrzeit < DT#2009-04-25-18:00:00) Then x_D_Ausgang_0:=true; END_IF;
hallo,Hallo Ralf,
was sin T5 LS, hast Du eventuell ein Datenblatt?
mfG Jan
VAR
Eingang_0 AT %I0.0.0.0.0 :BOOL;
Analogausgang AT %QAW0.0.0.0 :UINT;
END_VAR
IF Eingang_0 = true Then
Analogausgang:= 2047;
Else Analogausgang:= 0;
END_IF;
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?