Непоследовательный двоичный код

[serg5768]

Не ТС, но "тряхнул стариной"
На картинках минимальные ДНФ и реализация на Шеффере

Вот я устроил вам развлекуху...

[dosikus]

Вот я устроил вам развлекуху...

Главное чтобы результат был, а его пока не видно.

[serg5768]

Главное чтобы результат был, а его пока не видно.

Аппаратного решения - да, пока единства нет.

Программное - в первых же постах прозвучало, позднее я свое решение описал.
Листинг ? Так тут Basic на дух не переваривают, а трансляцией заниматься неохота...

[raxp]

Так тут Basic на дух не переваривают

чушь, барсиков множество разновидностей, есть и пурик, который даст фору другим ЯВУ )
Пишите, а люди поправят.

[serg5768]

чушь, барсиков множество разновидностей, есть и пурик, который даст фору другим ЯВУ )
Пишите, а люди поправят.

В плане развязки порта от замыканий пинов поступил так:
picture01.jpg

В программном плане:
Опускаем объявления и пр...

Заполняем массивы.
Способ заполнения выглядит "детсадовским", но после компиляции это фиолетово, памяти жрет столько же...
В массивы грузим уже "перевод" кода Грея, индекс соответствует позициям переключателя.
nom(1)=1
nom(2)=3
nom(3)=2
nom(4)=6
nom(5)=4
nom(6)=12
nom(7)=8
nom(8 )=24
nom(9)=16

Второй массив сделан, чтоб использовать при опросе свободные пины того же порта.
non(1)=32
non(2)=96
non(3)=64
non(4)=192
non(5)=128

При обработке отыскиваем нужное:
sub prov()
For a = 1 To 9
If nom(a)‹32 and nom(a) = dev Then f=a
If non(a)›24 and non(a) = dev Then f=a
Next a
a=0
end sub

[Alex9797]

nom(1)=1
nom(2)=3
nom(3)=2
nom(4)=6
nom(5)=4
nom(6)=12
nom( 7 )=8
nom( 8 )=24
nom(9)=16

надо наоборот:

nom(1)=1
nom(3)=2
nom(2)=3
nom(6)=4
nom(4)=5
nom(12)=6
nom( 8 )=7
nom(24 )=8
nom(16)=9

С остальным - не лучше

[dosikus]

чушь, барсиков множество разновидностей, есть и пурик, который даст фору другим ЯВУ )
Пишите, а люди поправят.

И спорить не буду , ибо пишите о том в чем полный 0.

[dosikus]

serg5768, это полная чушь. Вам расписали все что нужно.

[akegor]

dosikus, Человек боится занять лишних двадцать байтов массивом, но не боится откусить гораздо больший кусок поиском. Это же не видно невооруженным глазом, а массив глаз колет кажущимся излишеством.

Гы! Если бы СТМ - плевать было бы и на память и на скорострельность, там всем и всего хватит...
Чой-то молчит ЫЕМ32А0...

[dosikus]

akegor, я подобное еще на пЫк делал. И таблица выигрывала по всему. Хочешь сказать с avr совсем плохо? А STM F0 в отгуле , когда появится , скажет. А в его отсутствие прошу не выражаться...