Форум РадиоКот

$regfile = «atini 2313.dat» 'говорим компилятору что у нас мега8
$crystal = 8000000
Config Portb.1 = Output ' конфигурируем порт B.1 как выход
Config Pind.1 = Input ' конфигурируем порт B.1 как выход
Do
If Pind.1 = 0 Then ' УСЛОВИЕ - если на 2-й ножке порта С низкий логический уровень то...
Portb.1=1 'подключаем Portb.1 к положительному выводу источника питания
Waitms 500 'ждем пол секунды
Portb.1=0
Else ' в противном случае...
Portb.0 = 0 ' устанавливаем на ножке 0 порта В низкий логический уровень (светодиод не горит)
End If'конец условия
Loop
End ' начало бесконечного цикла

вот так получилось
пришлось правда резистор подтягиваюший единичку pind.1 на 4.7 ком поставить

олежек писал(а):пришлось правда резистор подтягиваюший единичку pind.1 на 4.7 ком поставить

Надо было PORTD.1 в единицу установить, тогда резистор не нужен.

тоесть добавить строчку в конфигурацию порта
или заменить пин на порт

хоть порт пиши хоть пин
все равно без резистора не работает

Вы в курсе за что отвечают регистры PORTn, DDRn и PINn каждого порта? Если нет, советую сходить в обучалку...

да читал я про конфигурацию портов
я написал и порт целиком в 1
и пин выставил в единицу
пробовал по всякому
без резистора не тянется ножка
не знаю почему

олежек писал(а):без резистора не тянется ножка не знаю почему

Ну тогда остается только вариант что ножка спалилась

сразу на двух мк спалилась?

здравствуйте

усложнение задачки
вот сюда надо подключить еще одну кнопку
сказжем на порт д2
она должна прибавлять время скажем на 10 и до бесконечности
и кнопку которая будет убавлять время на 10 и до 0

tit не плохо бы вывести значение этого времени на семисегментный индикатор

$regfile = «atini 2313.dat» 'говорим компилятору что у нас мега8
$crystal = 8000000
Config Portb.1 = Output ' конфигурируем порт B.1 как выход
Config Pind.1 = Input ' конфигурируем порт B.1 как выход
Do
If Pind.1 = 0 Then ' УСЛОВИЕ - если на 2-й ножке порта С низкий логический уровень то...
Portb.1=1 'подключаем Portb.1 к положительному выводу источника питания
Waitms 500 'ждем пол секунды
Portb.1=0
Else ' в противном случае...
Portb.0 = 0 ' устанавливаем на ножке 0 порта В низкий логический уровень (светодиод не горит)
End If'конец условия
Loop
End ' начало бесконечного цикла