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

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

Подключаем библиотеку 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 для задания высоты над уровнем горизонта.

Цитата:

---

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

---

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

Цитата:

---

Сообщение от rovki

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

---

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

А на ФБ можно?

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

Цитата:

---

Сообщение от capzap

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

---

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

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

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

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

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