счетчик импульсов, как организовать счет за 1 секунду Опции

[JimBaton]

Подскажите как организовать счет импульсов за определенное время.Смысл такои......Допустим на INT0 пускаи считает до бесконечности сколько сможет а на INT1 считает количество импульсов за 1 секунду, записывает в переменную R,сбрасывается на 0 и считает заново.Я что-то недопонимаю, так как только начал работать с контроллерами.Подправте код

' ***************************************************************************
' *
' * Title : int0.bas
' * Program code : BASCOM AVR
' ***************************************************************************
$regfile = "m8def.dat" ' use the Mega8

$crystal = 4000000
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6

Enable Interrupts
Enable Int0
Enable Int1
Config Int1 = Rising
Config Int0 = Rising
On Int0 Label33
On Int1 Label33
Dim Counter As Long
Dim N As Long
Counter = 0



Do
N = 100 * Counter
Locate 1 , 1
Lcd "Int0: " ; N

Loop

End



Label33:
Incr Counter
Return

Сообщение отредактировал JimBaton - Jan 4 2008, 23:56

[Aesthete Animus]

2JimBaton

"Да что мне этот даташит" - Ну-ну...
"На ассемблере или на Си не хочу,хочу на барсике" - "Не хочу учиться, хочу жениться... "

Если хотите посчитать количество импульсов, то для начала нужно разобраться с таймерами. Если не понятно, что это такое, то следует для начало подергать ногами порта. Иначе у вас ничего не получится.
Кодом тут помочь могут. К примеру могу рассказать про подводные грабли внешних прерываний, про тонкости таймеров. Но никто за вас все не напишит.

Определитесь с языком, заметьте, мало кто пишет на Bascom. Не задумывались почему? А потому что он способствует непониманию архитектуры контроллера!

Нельзя пытаться все охватить сразу, надо декомпозировать задачу! К примеру в вашем случае надо разобраться с таймером, внешними прерываниями и, наверное, с UART`ом - ведь Вы должны куда-то отображать результат. Если Вы не представляете как сделать каждое из этих звеньев, то это задача для вас пока сложная и надо поставить в виде задачи, скажем, работу с таймером.

tyro.......ФАК Я.Не умничаи

А вот грубить не надо - это mauvais tone!