Добавлено (20.10.2012, 14:56)
---------------------------------------------
http://www.compeljournal.ru/enews/2009/5/10

Добавлено (20.10.2012, 15:03)
---------------------------------------------
тогда пробовать оператор PWM,Шим сигнал

Добавлено (31.10.2012, 16:02)
---------------------------------------------
Пробую пока в протеусе, менять мощность кнопками, проблема в том что не заходит в подпрограмму main где опрашиваються кнопки, что подскажите, если я кнопки опрашиваю в самом прерывании то кнопки работаю как можно сделать что бы кнопки опрашивались в main подпрограмме.

Declare SHOW_SYSTEM_VARIABLES = OFF ' При симуляции в Proteus не показывать внутренние переменные
Declare FSR_CONTEXT_SAVE = OFF ' Не заботиться о сохранении содержимого регистра FSR
Declare Reminders = OFF ' Выключить напоминания компилятора
Declare Warnings = OFF ' Выключить предупреждения компилятора
Declare Optimiser_Level 4 ' Включить оптимизацию программы
Declare Bootloader = OFF ' Выключить загрузчик

;-------------------------- Общие настройки------------------------------------

Device = 16F877A ' Используемый микроконтроллер
Xtal = 20 ' Частота осциллятора 20 МГц

'-------------------------- Конфигурация программирования --------------------

Config CP_OFF, DEBUG_OFF, WRT_OFF, CPD_OFF, LVP_OFF, BODEN_OFF, PWRTE_OFF, WDT_OFF, XT_OSC

'-------------------------- Настройки портов ---------------------------------

PortB_Pullups = OFF ' Выключить подтягивающие резисторы на PORTB
Declare All_Digital = On ' Установить все порты цифровыми входами/выходами


'--Определение назначения каналов портов--

TRISA = %00000001 ' Сделать канал PORTA.0 входом для АЦП-мерить напряжение
TRISE = %00000011 ' Сделать канал (вывод) AN5 (PORTE.50 выходом, RE1, RE2 входами
ADCON1 = %10000010 ' Установить все выводы PORTA в режим АЦП
TRISC = %00000000 ' PORTC выход
TRISD = %00000000 ' Сделать каналы PORTD выходами
TRISB = %00000001 ' Сделать каналы PORTВ.0 входом

'-------------------------- OPTION_REG ----------------------------------------

OPTION_REG.0=0 ' Бит установки предделителя TMR0
OPTION_REG.1=0 ' Бит установки предделителя TMR0
OPTION_REG.2=0 ' Бит установки предделителя TMR0
OPTION_REG.3=1 ' Выбор включения предделителя ,предделитель выключен
OPTION_REG.4=1 ' Выбор фронта приращения TMR0 при внешнем тактовом сигнале -выключен
OPTION_REG.5=0 ' Выбор тактового сигнала для TMR0-приращение таймера от внутреннего генератора -включен
OPTION_REG.6=0 ' Выбор активного фронта сигнала на входе внешнего прерывания INT, PORTB.0
OPTION_REG.7=1 ' Включение подтягивающих резисторов на PORTB -выключен


'-------------------------- INTCON --------------------------------------------

INTCON.0=0 ' Флаг внешнего прерывания по PORTB.4-PORTB.7 -выключен
INTCON.1=1 ' Флаг внешнего прерывания по PORTB.0(INT) -включен
INTCON.2=1 ' Флаг переполнения TMR0 -включен
INTCON.3=0 ' Бит разрешения прерывания по PORTB.4-PORTB.7 -выключен
INTCON.4=1 ' Бит разрешения прерывания по PORTB.0(INT) -включен
INTCON.5=0 ' Бит разрешения прерывания по переполнению TMR0 -выключен пока
INTCON.6=1 ' Бит разрешения прерывания от периферийных устройств -включен
INTCON.7=1 ' Бит глобального разрешения прерываний -включен

'-------------------------- PIE1, PIR1 ----------------------------------------------

PIE1.0=0 ' Бит разрешения прерывания по переполнению TMR1 -выключен пока
PIR1.0=0 ' Флаг прерывания по переполнению TMR1 -выключен пока



'-------------------------- T1CON ---------------------------------------------------

T1CON.0=0 ' Бит включения модуля TMR1
T1CON.1=0 ' Выбор источника тактового сигнала для TMR1
T1CON.2=0 ' Синхронизация внешнего тактового сигнала
T1CON.3=0 ' Включение тактового генератора TMR1
T1CON.4=0 ' Выбор коэффициента деления предделителя TMR1
T1CON.5=0 ' Выбор коэффициента деления предделителя TMR1


'-------------------------- Настройка TMR1 для прерываний --------------------
TMR1L = $DC ' Значение младшего регистра TMR1 для полусекундных интервалов
TMR1H = $0B ' Значение старшего регистра TMR1 для полусекундных интервалов
T1CON = %00110000 'Значение регистра T1CON для выбранного режима работы
PIE1.0=1 ' Разрешение прерывания при переполнении TMR1
T1CON.0=1 'Запустим TMR1 для формирования полусек. интервалов

TMR0=0 'считать таймер будет до 256

Dim s As Dword
Dim s1 As Dword
Dim timp As Dword
Dim timp1 As Dword
Dim result1 As Dword
Dim result2 As Dword

Dim tim2 As Word
Dim tim3 As Word
Dim tim4 As Word
Dim tim5 As Word
Dim tim6 As Word
Dim tim7 As Word
Dim tim8 As Word
Dim value As Word
Dim tim9 As Word
Dim tim10 As Word
Dim tim11 As Word
Dim tim12 As Word
Dim tim13 As Word

Dim simp As Word
Dim metr As Word
Dim km As Word

Dim ml As Word
Dim colimp As Word
Dim result_colimp As Word
Dim f As Byte
Dim f1 As Byte
Dim q As Byte
Dim flg As Byte

Dim sec As Byte
Dim minut As Byte
Dim chas As Byte

Dim fflg As Byte
Dim colicimp As Byte
Clear

PORTA=0
PORTB=0
PORTC=0
PORTD=0
PORTE=0

On_Interrupt GoTo te
GoTo main

main:
If PORTE.0=0 Then Inc s1
If s1>200 Then s1=200
If PORTE.1=0 Then Dec s1
If s1<1 Then s1=1
DelayMS 250
GoTo main

te:
Context Save

If INTCON.1=1 Then 'произошло прерывание по PORTB.0
If PORTE.0=0 Then Inc s1
If s1>200 Then s1=200
If PORTE.1=0 Then Dec s1
If s1<1 Then s1=1



If OPTION_REG.6=0 Then 'если это фронт то делать сдедующие
s=0
TMR0=0
OPTION_REG.6=1'переключаем для прерывания по спаду что бы мерить имульс а не период весь
Else
OPTION_REG.6=0 'возращаем на место что бы прерывание было опять по фронту
s=0
TMR0=0
EndIf
INTCON.1=0
EndIf


If INTCON.2=1 Then 'пришло прерывание от таймера TMR0-что он переполнился
Inc s 'переполнение происходит каждые 256мкс-микросекунд
If s=1 Then PORTB.1=1
If s=s1 Then PORTB.1=0
INTCON.2=0 'считываем эти переполнения и увеличеваем переменную на 1
EndIf 'что бы знать сколько переполнений было

Context Restore




End