И снова - управление ротацией на ПЛК

[SlavikP]

самое смешное - в пунтке 1 они ссылаются на нормативку, а потом начинают писать хотелки, которые могут противоречить нормативке
и когда тычешь их в это, начинаются истерики

Ну вот, вы тоже заметили, что наш мир далек от идеала. Но мы выкручиваемся. Договариваемся с заказчиками, чтим уголовный кодекс.... Пока всё идёт хорошо

[Сергей0308]

Ну вот, вы тоже заметили, что наш мир далек от идеала. Но мы выкручиваемся. Договариваемся с заказчиками, чтим уголовный кодекс.... Пока всё идёт хорошо

В смысле чтим, голову им не размаживаете, если какие шероховатости?

[Saenich01]

Вот, сделал для себя. Вроде даже работает.
Функциональный блок управления 16 насосами (или не насосами).
Можно управлять и меньшим количеством, установив соответствующую маску входов.
Может управлять группой из нескольких одновременно работающих насосов, с обработкой отказов, ротацией, и подсчетом времени наработки.
Позволяет менять кол-во одновременно работающих на ходу, корректно выбирая те, у кого меньше время наработки.
Технически модуль можно легко переделать на любое количество.
Делал для себя. Собрано в Codesys 3.5.17, но несложно переносится на любую версию, даже на 2.3. Проверил работу - вроде работает.
В те давние времена, когда я только разбирался в программировании ПЛК мне подобных модулей сильно недоставало. Если кому надо такое - берите и пользуйтесь свободно. Freeware.
Панамку для конструктивной критики подставил.

Посмотрел проект, нашёл несколько ошибок:
1) в условие поднятия флага сортировки (NeedResort) нужно добавить отслеживание изменения состояния переключателей АВТО и изменения количества насосов.
2) в цикле "// Сохранение текущего состояния с заменой отказавших насосов" InternalStart[i] нужно заменить на InternalStart[PumpData[i].Index], так как массив уже отсортирован.

[Рогов Алексей]

ага, типа "какая такая стоимость ПНР? мы должны подвести 3 фазы на клемник и нажать кнопку ВКЛ и всё должно заработать"

Да, немецкие станки так и вводят в эксплуатацию. Задача наладчика ознакомить с панелью управления, предоставить график техобслуживания с указанием быстроизнашивающихся элементов. На это обычно час уходит и оператор продукцию через 2-3 часа производит. В русском оборудовании: болты и шпильки из хозтоваров, пока три дня наладчик всё не протянет, не поедет.

[In_Da_Cher_A]

Да, немецкие станки так и вводят в эксплуатацию. Задача наладчика ознакомить с панелью управления, предоставить график техобслуживания с указанием быстроизнашивающихся элементов. На это обычно час уходит и оператор продукцию через 2-3 часа производит. В русском оборудовании: болты и шпильки из хозтоваров, пока три дня наладчик всё не протянет, не поедет.

ой не надо эту туфту здесь втирать, сейчас не 90ые.
с кем и с чем только не работали за эти годы, такие же люди, так же и работают и косячат и часами совещания проводят по всякой ерунде, и также халтурят
и чуть что - элементарно кидают, оставив эксплуатацию без схем, без софта и запчастей
или наоборот выставляют за каждый болт как за чугунный мост

а за "русское оборудование" отдельные лучи поноса вам в карму

[МихаилГл]

ой не надо эту туфту здесь втирать, сейчас не 90ые.
с кем и с чем только не работали за эти годы, такие же люди, так же и работают и косячат и часами совещания проводят по всякой ерунде, и также халтурят
и чуть что - элементарно кидают, оставив эксплуатацию без схем, без софта и запчастей
или наоборот выставляют за каждый болт как за чугунный мост

а за "русское оборудование" отдельные лучи поноса вам в карму

Да-да, пришло нам как то австрийское чудо техники, шкаф в сборе, подключай и вперёд. Только забыли сборщики перемычки на ПЧ поставить. И ПО в контроллерах не было. Пришлось самим всё программировать.

[SlavikP]

Посмотрел проект, нашёл несколько ошибок:
1) в условие поднятия флага сортировки (NeedResort) нужно добавить отслеживание изменения состояния переключателей АВТО и изменения количества насосов.
2) в цикле "// Сохранение текущего состояния с заменой отказавших насосов" InternalStart[i] нужно заменить на InternalStart[PumpData[i].Index], так как массив уже отсортирован.

Спасибо, попробую при возможности.

[SlavikP]

Посмотрел проект, нашёл несколько ошибок:
2) в цикле "// Сохранение текущего состояния с заменой отказавших насосов" InternalStart[i] нужно заменить на InternalStart[PumpData[i].Index], так как массив уже отсортирован.

Не имеет смысла, т.к. все равно циклу for надо будет сделать полный проход по массиву InternalStart[] и в целом без разницы в каком это будет порядке. Но вычисление индекса i в каждой итерации существенно проще, чем предложенное вами PumpData[i].Index

// Сохранение текущего состояния с заменой отказавших насосов
FOR i := 0 TO 15 DO
IF InternalStart[i] AND NOT PumpData[i].Available THEN
(* Находим замену для отказавшего насоса *)
FOR j := 0 TO AvailableCount - 1 DO
IF PumpData[j].Available AND NOT InternalStart[PumpData[j].Index] THEN
InternalStart[PumpData[j].Index] := TRUE;
EXIT;
END_IF;
END_FOR;
InternalStart[i] := FALSE;
END_IF;
END_FOR;