'**************************************************************** '* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 04.01.2015 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** ' Последний раз писал на этом компиляторе 2-3 года назад, так что простите. ' У меня в протеусе все заработало. Думаю и у Вас все получится. ' Если Вы только начали изучать picbasic, рекомендую сразу на протон переходить ' Это на форуме постоянно обсуждается, не пожалеете define OSC 4 TRISB = %00000001 ' Конфигурация порта OPTION_REG = %11000000 ' Опции INTCON = %1101000 ' Разрешаем прерывания Symbol In = PORTB.0 ' Вход Symbol LED = PORTB.7 ' Светик Akk var byte ' Аккумулятор ON INTERRUPT GOTO Int ' Перейти к подпрограмме ' Основная программа Main: while 1 = 1 if akk >= 4 then akk = 0 led = 1 pause 1000 else led = 0 endif wend Goto main ' Подпрограмма обработки прерывания.! DISABLE ' Отключить обработку прерываний Int: if INTCON.1 = 1 THEN ' Если есть флаг прерывания на входе rb0 INTCON.1 = 0 ' тогда сбрасываем флаг PAUSEUS 100 ' немного ждем IF IN = 1 THEN AKK = AKK + 1 ' Если на входе 1, тогда инкрементируем переменную ENDIF Resume ENABLE ' Включить обработку прерываний END