Расчет времени восхода и захода солнца

[rovki]

скачал ьиьлиотеку ,подключил смотрю на ФБ калькулятор календаря и не могу увидеть что у него внутри ,только квадрат входа\выхода и описание их типов.Ткните пальцем ,что бы не лезть в дебри кодесис раньше времени,где посмотреть его потраха на ФБ.

[Yegor]

Подключаем библиотеку OSCAT и делаем так:

См. пост №28 ниже:

VAR
    GetSunTime: SUN_TIME;
END_VAR

GetSunTime(LATITUDE := 56.5, LONGITUDE := 60.35, UTC := DATE#2012-06-21, SUN_RISE => sunrise, SUN_SET => sunset);
sunrise := sunrise + TIME#5h;
sunset := sunset + TIME#5h;

Просто добавь воды:

VAR
    GetSunTime: SUN_TIME;
    GetLocalTime: CurTimeEx;
    timedate: SystemTimeDate;
    systime: SysTime64;
    localdate: DWORD;
    sunrise, sunset: TOD;
END_VAR

SysMemSet(ADR(systime), 0, SIZEOF(systime));
SysMemSet(ADR(timedate), 0, SIZEOF(timedate));
GetLocalTime(SystemTime := systime, TimeDate := timedate);
localdate := DATE_TO_DWORD(PackDate(timedate.Year, timedate.Month, timedate.Day));
GetSunTime(LATITUDE := 56.5, LONGITUDE := 60.35, UTC := localdate, SUN_RISE => sunrise, SUN_SET => sunset);
sunrise := sunrise + TIME#5h;
sunset := sunset + TIME#5h;

Столько воды из-за отсутствия DATE() — пускаю лучики ненависти в сторону разработчиков кодесиса. Необходимые библиотеки: SysLibMem, SysLibTime, TimeExp (задолбался на неё ссылку давать), ну и оскат естественно. Пример приведён для Ёбурга. Возможно, прибавлять теперь уже надо 6, а не 5 часов.

В переменных sunrise и sunset у вас будет время рассвета и заката. Дальше получаем текущее время (просто к предыдущему куску добавьте):

localtime := TIME_TO_TOD(PackTime(timedate.HOUR, timedate.MINUTE, timedate.SECOND, timedate.Milliseconds));

Теперь можно сравнивать localtime с sunrise и sunset, чтобы выяснить, рассвело ли.

Усё. Ах да: у SUN_TIME есть ещё параметр H для задания высоты над уровнем горизонта.

скачал ьиьлиотеку ,подключил смотрю на ФБ калькулятор календаря и не могу увидеть что у него внутри ,только квадрат входа\выхода и описание их типов.Ткните пальцем ,что бы не лезть в дебри кодесис раньше времени,где посмотреть его потраха на ФБ.

Просто откройте файл библиотеки в кодесисе.

[Николаев Андрей]

скачал ьиьлиотеку ,подключил смотрю на ФБ калькулятор календаря и не могу увидеть что у него внутри ,только квадрат входа\выхода и описание их типов.Ткните пальцем ,что бы не лезть в дебри кодесис раньше времени,где посмотреть его потраха на ФБ.

Я так понимаю интересен сам алгоритм?
Откройте библиотеку оскатовскую как проект CoDeSys...

[rovki]

А на ФБ можно?

[rovki]

Спасибо capzap,буду разбираться.Да уж наглядность кодесис желает лучшего ,на языке FBD

[rovki]

Сильно не ругайтесь, конвертировалось средствами среды разработки, а не человеком. Предполагаю в ручную получилось бы гораздо нагляднее

А в ПР все вручную Потому наверное нагляднее .Туда бы такой модуль(макрос хотя бы) для управления освещением.

[ssl]

В блоке SUN_POS задаю широту 50.17, а долготу меняю, когда долгота больше 70 начинает выдавать время восхода TOD#1193:02:10.772, то есть когда время восхода по UTC становиться меньше 00:00:00 начинает выдавать огромные значения времени, выход - задаю долготу (-23) время восхода и заката совпадают с календарными. Однако, в течение года (меняю месяца) есть отклонение времени восхода и заката, максимум на 10 минут, не знаю на кого грешить: на календарь или на программу

[ssl]

Опять до Урала не дошли

[Yegor]

Я же проверял для своего ёбургского пояса. Там вроде просто рассчитываем для своих координат, а потом к результату прибавляем своё смещение (у меня +5). И всё, никакого переполнения — результат нормальный.

[ssl]

Все правильно надо добавлять к вычисленному времени часовой сдвиг относительно Гринвича. Спасибо.