Спасибо всем за ответы и помощь.

пример:
надо включить таймер когда на PORTB.0=1
по приходу PORTB.0=0
отключить таймер и вывести данные.

если делать в протеусе и брать генератор

то при частоте
1гц=500 000мкс
10гц=50 000мкс
100гц=5 000мкс
1000гц=500мкс
10 000гц=50мкс
100 000гц=5мкс

если период равен 2

вот такие цифры должны быть выведены на ЖКИ.

И еще вопрос: как вывести в протеусе с генератора именно вот такой импульс, как показано на рисунке.

Как это написать програмно пока ума не приложу может кто что подскажет.

Добавлено (05.03.2010, 11.42.30)
---------------------------------------------
od100 var DWord
od101 var DWord
q var Bit '
s var DWord'
f var Byte
tmrost var Byte
prdt var Byte
ostatok var Word

OPTION_REG.7=1'подтягивающий резистор выключен
OPTION_REG.6=0 'прерывание по фронту portb.0
OPTION_REG.5=0 'приращение таймера от внутреннего генератора
OPTION_REG.3=1 'предделитель выключен перед таймером
INTCON.5=0 'выключить таймер TMR0

prdt=0 ' до скольки будет считать таймер до переполнения установлено 255

TMR0=prdt
od100=0
od101=0
q=0
f=0
INTCON = $B0 ' включаем прерывания от входа INT и по переполнению таймера TMR0

On Interrupt GoTo myint

lp:
If q=1 Then
LCDOUT $FE, 1,#od101,"ms"' Выводим данные если разрешенно
q=0
EndIf
GoTo lp

' Interrupt handler
Disable
myint:
If INTCON.1=1 Then
INTCON.1=0
INTCON.5=1
EndIf

If PORTB.0=1 Then
INTCON.5=0
If TMR0<(256-prdt) Then s=s+ TMR0
od101=s
s=0
f=0
q=1
EndIf

If INTCON.2=1 Then
If PORTB.0=0 Then s=s+ TMR0
TMR0=prdt
INTCON.2=0
EndIf

Resume
Enable

показывает что попало, не получаю 500 000мкс на частоте 1гц

OPTION_REG
bit 6 INTEDG: Interrupt Edge Select bit
1 = Interrupt on rising edge of RB0/INT pin
0 = Interrupt on falling edge of RB0/INT pin,

Вот выставил ты в этом бите 0, т.е. прерывание у тебя будет присходить, когда напряжение на RB0 меняется с высокого уровня на низкий. А надо поставить 1, тогда прерывание произойдет при перепаде с низкого на высокий (по фронту), в обработчике прерывания обнулить таймер и переключить этот бит на 0, тогда второе прерывание по RB0 произойдет по перепаду с высокого на низкий уровень (по спаду импульса). И на этом втором прерывании надо считать значение, что насчитал таймер - это и будет длительность положительного импульса. И опять Option_Reg.6 присвоить 1 и выйти из обработчика. Т.е. обработчик должен уметь различать, фронтом или спадом он вызван, и выполнять соответствующие действия. А различать можно по этому же биту OPTION_REG.6

Добавлено (05.03.2010, 23.33.36)
---------------------------------------------
Прикол....
пока сочинял да писал Dmitriy все объяснил

1гц-500 000мкс или 500мс
10гц-50 000мкс или 50мс
100гц-5 000мкс или 5мс
1000гц- 500мкс или 0.5мс

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

==============================================================================

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

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

;--Настройки устройств I2C--

Declare BUS_SCL OFF ;Включить режим работы шины SCL без подтягивающего резистора

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

Declare PORTB_PULLUPS = OFF ; Включить подтягивающие резисторы на PORTB
Declare ALL_DIGITAL = off ;Каждый порт выполняет свою функцию по умолчанию

'--Определение назначения каналов портов--
TRISB = %11111111 ' Сделать каналы PORTВ входами

'---Настройки подключения ЖКИ---

Declare LCD_TYPE ALPHA
Declare LCD_DTPIN PORTB.3
Declare LCD_ENPIN PORTB.3
Declare LCD_RSPIN PORTB.2
Declare LCD_INTERFACE 4
Declare LCD_COMMANDUS 2000
Declare LCD_DATAUS 50
Declare LCD_LINES 2

OPTION_REG.7=1'подтягивающий резистор выключен
OPTION_REG.6=0 'прерывание по фронту portb.0
OPTION_REG.5=0 'приращение таймера от внутреннего генератора
OPTION_REG.3=1 'предделитель выключен перед таймером
'INTCON.5=0

s var DWord'
q var Byte
timp var DWord

INTCON.7=0
INTCON.4=1
INTCON.5=0
TMR0=0


On Interrupt GoTo te
INTCON.7=1

lo:
If q=1 Then
Lcdout $fe,1,#timp*255
timp=0
q=0
EndIf
GoTo lo

Disable
te:

If INTCON.1=1 Then
If OPTION_REG.6=0 Then
OPTION_REG.6=1
INTCON.5=1
Else
OPTION_REG.6=0
INTCON.5=0
timp=s
q=1
s=0
EndIf
INTCON.1=0
EndIf

If INTCON.2=1 Then
Inc s
TMR0=0
INTCON.2=0
EndIf

Resume
Enable

End

этот код показывает 430 440мкс

уже голову сломал как это сделать.

Спасибо еще раз всем за помощь.

И еще вопрос по прерываниям:
Будет ли успевать отрабатывать счет каждого импульса его ширины и работы основной программы, или надо учитывать задержки какие то типа pause,goto и так дале.

будут считываться импульсы еще с датчика скорости но там просче там просто нужно считывать сами импульсы просто их количество ,ширину мерять не надо.

что будет считываться:

1. Счет ширины импульса как положительного так и отрицательного-расход топлива
2. Счет импульсов их количество для датчика скорости-скорость
3. Время-дата датчик DS1307
4. Температура на улице датчик DS18B20
5. Температура двигателя датчик DS18B20
6. Напряжение бортовой сети внутренний АЦП
================================================================
расчет всего расхода топлива, скорости,температуры,напряжения.

Все уже написал кроме ширины импульса застрял на этом месте. буду пробовать на железе.

Спасибо всем за помощь и ответы.

ну не налогике же собирать.