Панель индикации для ПР200

[ПавелП]

Почему в ФБ IO_a Вы комментируете?

Комменты - это признак хорошего тона в программировании.
Значит была такая необходимость, что не мешает программе.

// проверка на "иголки" светодиодов внешних - работа не нормальная

В чем проявляется ненормальность?

Даже если Вы передаете эти значения на внешние выхода K1..K4, то в конце программного цикла ПР точно так же (по-битно) выдает их на транзисторы.
Т.е. если предыдущее состояние было K1=1, K2=1, K3=1, K4=0 (десятичное 7), то при записи десятичной 8 пройдет несколько промежуточных состояний:
- K1=0, K2=1, K3=1, K4=0 -> 6
- K1=0, K2=0, K3=1, K4=0 -> 4
- K1=0, K2=0, K3=0, K4=0 -> 0
- K1=0, K2=0, K3=0, K4=1 -> 8

Вы можете попробовать обратиться к разработчикaм с просьбой, что если эти биты принадлежат одному регистру, производить запись всей маски одной командой.
Или добавить в схему регистр со схемой сравнения, которая будет стробировать запись в регистр с задержкой (так чтобы вывелись все биты на K1..K2).
OWEN_2.jpg
т.е. как только схема увидит, что какой-то бит меняется, запускает импульс с задержкой фронта (выждет время на изменение всех бит), после чего защелкнет новые данные.

Схемное решение переусложнено для данного варианта.

производить запись всей маски одной командой

По их информации последовательность следующая:
1. Читаются входы в регистр(ы)
2. Выполняется программа пользователя.
3. Выполняются служебные программы
- последовательный обмен
- вывод на индикацию
- клавиатура
- ещё чё нибудь
4. Записываются результаты в порты.

Это примерно 1 мс и есть.

Никак в процессе пользовательской программы не могут данные побитно писаться в порт.

[melky]

кто сказал, что время цикла 1 мс ? паспорт изделия или ваша программа?

[ПавелП]

кто сказал, что время цикла 1 мс ? паспорт изделия или ваша программа?

В экранных настройках гляньте.

[melky]

ПавелП у меня таких коротких программ не бывает по этому и удивился, что у вас 1 мс программа.

Вычисления программы влияют на цикл, 1мс это минимально возможно время, значит у вас там программы кот наплакал.

[ПавелП]

ПавелП у меня таких коротких программ не бывает по этому и удивился, что у вас 1 мс программа.

Вычисления программы влияют на цикл, 1мс это минимально возможно время, значит у вас там программы кот наплакал.

ForX:=10; (*начало *) ForJ:=10000; (* конец цикла *) // задать параметры

ForY:=Sek; ForY:=ForY+1; // увеличение по-секундно


For ForX := 0 to ForJ do ForY:=ForY+1; // выполнить цикл

// тут нужные вычисления

end_for KS4:=ForY; // вывести результат

Цикл длинной в 10000 тактов - задолбается котик плакать.

[melky]

0011 - горят 3 светодиода
0100 - горят 4 светодиода
0110 - горят 6

и так далее...

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

[МихаилГл]

0011 - горят 3 светодиода
0100 - горят 4 светодиода
0110 - горят 6

и так далее...

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

Он для теста это сделал, что вы придираетесь. Как ему проверить оперативно, только привязав к секундам

[ПавелП]

Он для теста это сделал, что вы придираетесь. Как ему проверить оперативно, только привязав к секундам

Они стараются мне помочь!
Это всем идёт на пользу!

[melky]

IVM тьфу ты ешкин кот, так и что он хочет добиться используя выходы ПР которые имеют состояние только раз за цикл?, цикл записи в выходы только в конце цикла программы, внутри программы хоть обморгайся до усрачки....

[ПавелП]

IVM тьфу ты ешкин кот, так и что он хочет добиться используя выходы ПР которые имеют состояние только раз за цикл?, цикл записи в выходы только в конце цикла программы, внутри программы хоть обморгайся до усрачки....

О чём и речь!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Не должно быть подзвякивания.