Синхронизация часов с сервером времени (NTP)

[VanMo]

В EasyBuilder Pro, за исключением IP-серии, синхронизация времени настраивается в системных настройках проекта.
Для EasyBuilder8000 и для IP-серии готовых средств нет. Можно вручную реализовать протокол синхронизации с помощью free protocol.
Самое простое - использовать Time Protocol. Для этого нужно отправить udp пакет на порт 37 одного из серверов времени и принять ответ - 4 байта с числом секунд от начала 1900 года.

Пример макроса для этого:

Код: Выделить всё

1. macro_command main()
3. unsigned char tmp[4]
5. OUTPORT(tmp[0], "Free Protocol", 1)
7. short receive_len
8. short wait_time=100
10. INPORT2(tmp[0], "Free Protocol", receive_len, wait_time)
12. unsigned int tt//время в секундах с 1900 года
13. tt = (0x1000000*tmp[0]) | (0x10000*tmp[1]) | (0x100*tmp[2]) | tmp[3]
16. unsigned int y
17. y = 1900 + tt/31557600 //(365.25*24*60*60)
18. tt = tt % 31557600
20. unsigned int daytotal //номер дня в году (не путать с днём месяца)
21. daytotal = tt /(24*60*60)
22. tt = tt % (24*60*60)
24. //тут посчитать месяц/день и время
26. SetData(y, "Local HMI", LW, 0, 1)
27. SetData(daytotal, "Local HMI", LW, 1, 1)
29. end macro_command

Пример проекта.

[Олег]

Приспичило мне на IP панелях синхронизировать время от компа, настроенного как сервер времени.
Не заработал ваш пример у меня. Напрягся и запилил свой, может тянуть время и с локального сервера и из инета.
не заморачивался, надеюсь что в локальной сети точность будет до секунды.
https://yadi.sk/d/nn1N2DLuz4JV4A
Почему запрещено прикреплять файлы к сообщению?