Для того чтобы не городить например кучу деталей лишних, у тебя всё есть в PIC, подключаются они программно, хочешь включить пожалуйста, нехочешь включать тоже пожалуйста
Например 16F84 ( На PORTB ты можеш программно подключить подтягивающие резисторы ) это при условии если ты их сделаешь в конфигурации входами!

Например, на порт В вешаешь кнопки одним выводом на корпус. На плюс питания уже не надо разводить резисторы, так как в микрухе они уже есть внутри... Это 8 резисторов.

Добавлено (02.12.2010, 21.44.52)
---------------------------------------------

a=%0101
if PORTA=a then metka

ещё раз спасибо за ответы и терпения.

Попробуйте собрать и увидите.

А Протеус в схеме с лампочками все равно не даст Вам того эффекта, как с диодами.

Так что собирайте схему в железе, и эксперементируйте.

Dim VAR1 As Byte ' Создать переменную VAR1 типа Byte

VAR1 = PORTA ' Прочитать состояние порта А и поместить его двоичное значение в переменную VAR1

LoadBit VAR1, 4, 0 ' Записать в неиспользуемый 4-й разряд переменной VAR1 нулевое значение
LoadBit VAR1, 5, 0 ' Записать в неиспользуемый 5-1 разряд переменной VAR1 нулевое значение
LoadBit VAR1, 6, 0 ' Записать в неиспользуемый 6-1 разряд переменной VAR1 нулевое значение
LoadBit VAR1, 7, 0 ' Записать в неиспользуемый 7-1 разряд переменной VAR1 нулевое значение

On VAR1 GoTo Metka_0, Metka_1, Metka_2, Metka_3 ' Если значение VAR1 = 0 идти к метке Metka_0
' Если значение VAR1 = 1 идти к метке Metka_1
' Если значение VAR1 = 2 идти к метке Metka_2
' Если значение VAR1 = 3 идти к метке Metka_4

'--------------------------------------------------------------------
LoadBit Variable , Index , Value

По команде LoadBit записывается 0 либо 1 в указанный разряд переменной или регистра.

Variable - это определяемая пользователем переменная, типа Byte, Word, или Dword.

Index - может быть константой, переменной, или выражением, которое указывает на отдельный бит переменной, который необходимо изменить.

Value - может быть константой, переменной, или выражением, которое будет помещено в нужный разряд. Попытка поместить в нужный разряд значение больше чем 1, приведет к тому, что все равно в него будет записана 1.
\
On VAR1 GoTo LABEL_0 , LABEL_1, LABEL_2

Эта команда будет работать точно так же как и блок команд If...Then. Если же значение переменной VAR1 не будет находится в заданных пределах от 0 до 2, например переменная VAR1 получит значение больше чем 2, то команда On GoTo не будет делать ничего и основная программа будет продолжена со следующей команды.

'--------------------------------------------------------------------

Команда On GoTo предназначена, прежде всего, для использования с микроконтроллерами, которые имеют
всего одну страницу памяти (0-2047). Если используются большие микроконтроллеры, и есть подозрение,
что метка перехода может находиться на линии раздела страниц, то лучше вместо неё использовать команду On GoToL

'-----------------------------------------------------------------------
On GoToL Это команда безусловного перехода принуждающая основную программу переходить в различные её места,
определяемые переменным индексом. Команда On GoToL предназначена для микроконтроллеров у которых больше
чем одна страница памяти, в основном она предназначена для микроконтроллеров 18 серии, но может работать
и с микроконтроллерами 16 серии. Команда On GoToL работает так же как и команда BranchL .

tombender, если я Вас обидел, извините меня ПЛЗ. Просто я Вам полностью все расписал, нарисовал схему, только собирайте. Как работает программа тоже вроде бы ясно описал (в личке). Если возникнут вопросы (только если не "Лампочка не горит..."), спрашивайте...

Добавлено (03.12.2010, 10.06.40)
---------------------------------------------
tombender, да, Ваша схема с поста №444 не когда не заработает. Причина, отсутствие связей между лампочками и транзисторами и резисторами... Эти "точки" которые стоит поблизости от деталей, не говорит о том, что между ними существует связь (не путать с другой... ). Соберите схему на макетке и проверьте в железе...

как присвоит (а) к всем четырем porta.0,1,2,3 ?

может так a var bayte ?

symbol a=porta.0,porta.1,porta.2,porta.3 ?
if porta=%1110 then ?
если да то можно примерчик плиз

Добавлено (03.12.2010, 10.59.45)
---------------------------------------------

Я так понимаю что это програма контралирует все 4 potrta и пишет в память либо все 1 либо все 0 если оно одновременно пришлм на
porta
a если сегнал у них разный напремер на porta1 =1 porta2 =0 porta3=0 porta4=1
и сегналы приходящии могут быть хаотичными на входах porta

Нет эта программа не пишет все нули или единицы.

Здесь переменной VAR1 присваивается состояние портаА.

VAR1 = var1 & %00001111

После этого в переменной VAR1 гарантированно содержится то, что пришло на нужные входа порта В.
Ну а дальше делайте с данными которые уже в VAR1 Все что нужно,

----------------------------------------------------
Этот код устанавливает неиспользуемые биты в нули. Кстати его можно написать короче:
VAR1 = var1 & %00001111

Спасибо iivan_fd , так действительно короче. но я записал длинно именно для начинающего. А теперь у него возникнет еще один вопрос Что значит & и наверное еще второй вопрос, что значит %00001111.
Мне пожалуйста не отвечайте - сам я то знаю.