PDA

Просмотр полной версии : Время на ПЛК 150



KRUG
10.01.2014, 16:02
После прошивки на 2,14 раньше не знаю какая была (2010года) перестало работать время на контроллере. при включение оно вроде начинает отсчет с 0,0,0, 2000 , при попытке настроить время встает и больше не идет

VAR
GetTime: CurTimeEx;
TimeAndDate: SystemTimeDate;
Sys_Time: SysTime64;
set_time: BOOL;
END_VAR

IF set_time THEN
TimeAndDate.Minute;
TimeAndDate.Second;
TimeAndDate.Hour;
GetTime (SystemTime:=Sys_Time , TimeDate:= TimeAndDate);
ELSE
TimeAndDate.Day :=0;
TimeAndDate.DayOfWeek :=0;
TimeAndDate.dwHighMsec :=0;
TimeAndDate.dwLowMSecs :=0;
TimeAndDate.Milliseconds :=0;
TimeAndDate.Minute :=0;
TimeAndDate.Second :=0;
TimeAndDate.Hour :=0;
TimeAndDate.Year :=0;
TimeAndDate.Month :=0;
Sys_time.ulHigh :=0;
Sys_time.ulLow :=0;
GetTime (SystemTime:=Sys_Time , TimeDate:= TimeAndDate);
END_IF


Подскажите в чем дело?

capzap
10.01.2014, 16:35
а через браузер как, тоже не устанавливается?

Валенок
10.01.2014, 22:41
VAR_IN_OUT
STD: SystemTimeDate; (*тута и тикает и меняем*)
END_VAR
VAR
SetGet: CurTimeEx;
zSTD,mSTD: SystemTimeDate;
ST64: SysTime64;
END_VAR


IF SysMemCmp(ADR(STD),ADR(mSTD),SIZEOF(STD)) <> 0 THEN (*меняли ?*)
SetGet(SystemTime:=ST64, TimeDate:= STD);
END_IF
STD := zSTD;
SetGet(SystemTime:=ST64, TimeDate:= STD); (*свежачок*)
mSTD := STD;

KRUG
13.01.2014, 08:11
Оставил включенным на выходные, О чудо - спустя 2 суток часы снова пошли без какого либо вмешательства. Может что то с железом?

KRUG
13.01.2014, 08:12
а через браузер как, тоже не устанавливается?

не успел попробывать