user2007 писал(а):Без вопросов.
Шапка:
...
Dim A As Byte
----------
Config Port B = Input 'порт В обозначаем как входной по 8 входам, код от 0 до 255
В программе:
A = Port B 'переменной А присваивается значение, равное двоичному на входе порта В
If A = 0 then....
Elseif A=1 then...
----------
Elseif A=255 then...
End if
.........
Кажется понял ! Спасибо !