Ведь я применил в программе ваш пример 
Не могу уже придумать ничего 
Давайте начнем с того, что именно вас не устраивает в имеющемся варианте? Но проблема в том что помимо переключения светодиодов и отключения через 3 сек надо еще индицировать нажатие кнопки в реальном времени отдельным светодиодом. Но в основном цикле у меня это сделать как я понимаю уже не получится. В остальном все получается очень даже хорошо 
Я пока так не умею...Код: Выделить всё
Config Timer1 = Timer , Prescale = 256 , Clear Timer = 1 ' отсчет 3-х секунд
Ocr1a = &HB71B
On Oc1a 3sec
Enable Interrupts ' разрешаем прерывание
Enable Oc1a
Таймер 1 тактируется сигналом с частотой F0/256=15625 Гц. Чтобы получить задержку 3 с, нам необходимо пропустить 3*15625=46875 периодов этого сигнала. Что в шестнадцатеричном выражении равно &hB71B. Это значение и записывается в регистр сравнения таймера, по достижению которого сработает прерывание.Gordon Shumway писал(а):Я не понял, как тут отсчитывается 3 секунды ?Код: Выделить всё
Config Timer1 = Timer , Prescale = 256 , Clear Timer = 1 ' отсчет 3-х секунд Ocr1a = &HB71B On Oc1a 3sec
Я пока так не умею... Я же выше расписывал подробно.Gordon Shumway писал(а):Я не понял, как тут отсчитывается 3 секунды ?
Вы про индикацию нажатий кнопок ? В каком виде она вам нужна - отдельным светодиодом, или как-то существующие светодиоды должны отреагировать помимо их основной работы ?осторожно! леоныч!!! писал(а):Вот зараза. Не получается. Хоть еще один порт задействуй. Глупо как то......
Вы нормально скажите, что нужно-то? Сформулируйте задание. А тоосторожно! леоныч!!! писал(а):Вот зараза. Не получается.
А чем именно - непонято. О нажатии кнопки должен сигнализировать светодиод? И как? Пока нажата кнопка, или что?осторожно! леоныч!!! писал(а):Дополнил еще очень много чем.
Компилятор обматерил меня как мог 
А если включить в обработку прерывания такой кодосторожно! леоныч!!! писал(а): Считаем что ваш пример без изменений, надо просто индицировать нажатие кнопки. Кнопка нажата - отдельный светодиод горит, отпущена - не горит.
Код: Выделить всё
3leds: ' подпрограмма обработки нажатия кнопки
if Button = 0 then
Set Led_4 ' здесь ваш отдельный светодиод, не забыть в начале присвоить его к порту например: Led_4 Alias Portb.4
Else
Reset Led_4
Timer1 = 0 ' обнуляем таймер отсчета 3-х секунд
Incr Count
If Count > 3 Then Count = 3
If Count = 1 Then
Set Red_led
Elseif Count = 2 Then
Set Yellow_led
Elseif Count = 3 Then
Set Green_led
End If
Ну да еще один End If внизу допишитеосторожно! леоныч!!! писал(а):label not found (endif0) Вот так снова меня обматерил компилятор
Код: Выделить всё
Elseif Count = 3 Then
Set Green_led
End If
End ifКод: Выделить всё
if Button = 0 then
Set Led_4 ' здесь ваш отдельный светодиод, не забыть в начале присвоить его к порту например: Led_4 Alias Portb.4
Else
Reset Led_4
End ifКод: Выделить всё
if Button = 0 then : Set Led_4 = Button : End if