Вопрос касательно MicroPascal for PIC

0
Дамы и господа, я новичок в контроллерах, инфу сколько не рыл нашёл только пару худосочных статей.
Имеем код программы
program MyProject;
 var test:bit;
begin
 PORTA:=0x00;
 TRISA:=0xFF;
 portb:=0x00;
 TRISB:=0x00;
 PORTB.7:=1;
 test:=0;
while true do
 test:= testbit(porta,0);
 if test = 0 then
 setbit(PORTB,0)
 else
 clearbit(portb,0);
end.

Пин RB7 подключен к пину RA0 через кнопку.
Нажимай её сколько хочешь, один хрен на пин RB0 сигнал не подаётся. Скажите пожалуйста в чём ошибка
17 февраля аноним,  в категории Компьютеры, Интернет
 
Ваш ответ
Отображаемое имя (по желанию):
Анти-спам проверка:

1 Ответ
0
17 февраля аноним, 
Не эксперт в контроллерах, но судя по коду проблема в том, что ты это делаешь в цикле ?!
test:= testbit(porta,0);
if test = 0 then
setbit(PORTB,0) // Если test = 0 мы выполняем setbit()
else
clearbit(portb,0); // но через мгновение мы очищаем свой сигнал из-за clearbit()

Также было бы неплохо прочитать документацию по testbit()/setbit() какие там параметры
Copyright © 2016 Вопросы и ответы онлайн - sovety.info | Для связи: site@sovety.info
Мнение редакции может не совпадать с мнением авторов вопросов и ответов.
Индекс цитирования
...