Угу.Серый_Ветер писал(а):не те коммутаторы смотрю??
- на 52 зоны есть paradox, одним проводным модулем + 64 зоны радио... стоит как боинг, порядка 15 000 тока за плату проводного модуля, а еще и радиомодуль.готовое....
даже халявное есть))) блоки в них выгорают во время гроз - будь здоров, такие не покупал большие, но знаю что есть)) но цен не знаю...а название микросхемы можно? даташит хоть почитать...Никаких матриц.
ну если 15к это боинг )))Серый_Ветер писал(а):стоит как боинг, порядка 15 000 тока за плату проводного модуля, а еще и радиомодуль.
а вот с МК еще не возился
можно название микросхемы? а то гуглондекс выдают в результатах тока пассивные разветвители по коаксиалу...Flasher писал(а):А вот тут помогут аналоговые коммутаторы.
Код: Выделить всё
set porta.5
counter = (counter + 1) & 7; ' (7 - это 111 в двоичной) и пишешь значения
porta.2 = counter & 1
porta.3 = (counter >> 1) & 1
porta.4 = (counter >> 2) & 1
reset porta.5Код: Выделить всё
Dim countert As Byte = 0
set porta.5
If (countert And 1 > 0) Then
Set portb.2
Else
Reset portb.2
End If
reset porta.5
) то все работает... но код получается ОЧЕНЬ громоздкий... особенно зная что его можно сократить в цикле... тока не выходит, хоть тресни...