Таймер нужно разрешить, попробуй так:

On Int0 Padschet                                            'При прерывании перейти на метку Padschet

Config Int0 = Rising
Config Timer1 = Timer , Prescale = 1                        ' конфигурация таймера1
Stop Timer1                                                 'останавливаем
Timer1 = 0                                                  'оюнулим его
D = 1.25                                                 

Enable Int0                                                 
Enable Timer1
Enable Interrupts                                           'разрешаем прерывание

Здесь можно так:
Padschet:
A = Timer1                                                  'забираем данные, которые пришли за время таймера 1

'Stop Timer1                                                 'останавливаем
Disable Int0

Отредактировано Karavan (2008-04-23 15:21:24)

Это твоя строка: Config Timer1 = Timer , Prescale = 1
А это - моя: Config Timer3 = Timer , Prescale = 64                 'конфигурим таймер3.
                                                                   ^ ^
прескалер - это делитель опорной частоты
может в Асю?

Отредактировано Karavan (2008-04-24 12:23:47)

частотомер чтоли лепишь?

Попробуй может подойдёт. Вроде работала когда-то.

$regfile = "M8def.dat"
$crystal = 4000000
$baud = 19200

Dim W As Word , Channel As Byte , Ugol As Word              'Single
Dim Period As Word

Config Int0 = Rising
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2                                         'configure lcd screen
Config Timer1 = Timer , Prescale = 64

Stop Timer1
Timer1 = 0
Cursor Off
Cls
'Now give power to the chip
Enable Int0                                                 'enable the interrupt
Enable Interrupts

On Int0 Int0_int                                            'Initialise the INT0 Interrupt
Rem On Int0 Int0_int Nosave     'Initialise the INT0 Interrupt
Rem Use The Nosave Option When You Dont Want The Internal Registers To Be Saved/restored In
Rem The Interrupt Routine

  Start Adc
Rem The Interrupt Handler For The Int0 Interrupt
Rem                        Дроссель
      Locate 1 , 4 : Lcd "аpocce»Д"                         '; Ugol
      Locate 1 , 16 : Lcd "%"
Channel = 6
Do
         Locate 2 , 1 : Lcd Period ; "  "
Ugol = 10 * W                                               '
Ugol = Ugol / 102                                           '
  Waitms 10                                                 '0
      Select Case Ugol                                      'УБИРАЕМ ДРОЖАНИЕ
      Case Is < 10                                          'ЗНАЧЕНИЙ ADC НА
      Locate 1 , 13 : Lcd "  " ; Ugol                       'ДИСПЛЕЕ
      Case Is < 100                                         '
      Locate 1 , 13 : Lcd " " ; Ugol                        '
      Case 100                                              '
      Locate 1 , 13 : Lcd Ugol                              '
      End Select
Loop

Int0_int:

     Stop Timer1
     Period = Timer1
      Timer1 = 0
       Start Timer1
     W = Getadc(channel)
Rem You Can Perform More Actions Here
Return                                                      'notice the return

Я не утверждаю на 100%, но я старался делать обработку прерывания как можно короче, в процессе можно запретить все прерывания, а после вывода на дисплей разрешить. Если есть железо: залей прогу и попробуй - это автотестер для корбюраторных двигателей. Измеряет обороты и угол опережения зажигания.
Удачи!

Отредактировано Karavan (2008-04-25 23:06:19)

А может стоит строки

do
T = D * A
E = T
F = 1 / E
Waitms 100                                                  'задержка 0.25 с
Cls                                                         'Очищаем дисплей
'Lcd "F = "                                                  'Выводим на дисплей F =
Lcd A          
loop

вынести в основной цикл?
а в прерывании оставить

Padschet:
Stop Timer1                                                                                    Мой код
A = Timer1                                                  'забираем данные, которые пришли за время таймера 1
Timer1 = 0
Start Timer1                                                'запускаемTimer1
Return

ИМХО проще всего в прерывании выставить флаг (Bit):

Padschet:
Stop Timer1                                                                                    Мой код
A = Timer1                                                  'забираем данные, которые пришли за время таймера 1
Timer1 = 0
Start Timer1                                                'запускаемTimer1
Set Flag                        
Return

и в основном цикле смотреть его значение:

Do
If Flag = 1 Then                                       'прерывание произошло
 T = D * A
 E = T (смысл?)
 F = 1 / E
 Waitms 100                                             'задержка 0.25 с
 Cls                                                         'Очищаем дисплей
 'Lcd "F = "                                               'Выводим на дисплей F =
 Lcd A
 Reset Flag                                                'сброс флага прерывания
End If
loop

При в ходе в прерывание ВСЕ регистры сохраняются в стеке, для частотомера лучше сохранять только нужные (использовать Nosave), это тоже даст выигрыш в скорости выполнения и объеме кода, что-то типа этого:

On Int0 Padschet Nosave 

Padschet:
 push r24
 push r25
 push r26
 push r27
 in r24,sreg
 push r24
  Stop Timer1                                               ' Мой код
  A = Timer1                                                'забираем данные, которые пришли за время таймера 1
  Timer1 = 0
  Start Timer1                                              'запускаемTimer1
  Set Flag                                                     'ставим флажок
 pop r24
 !Out Sreg , R24
 pop r27
 pop r26
 pop r25
 pop r24
Return

Удачи

В протеусе значения скачут аццки.

SyncMVGP
да, всё работает! А каким образом подсчитать частоту? Если делим частоту avr на кол-во импульсов - получается какая-то фигня.
Либо как указать длину измерения, скажем, в секунду?

Будет ли правильно работать следующий код?

$regfile = "2313def.dat"
$crystal = 4000000

' configure lcd display
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.1 , Rs = Portb.0

Config Timer1 = Counter , Edge = Falling , Prescale = 1
Stop Counter1
Dim R As Single
Dim Rpm As Word
Cls

Do
  Counter1 = 0
  Start Counter1
  Waitms 100
  Stop Counter1
   R = Counter1
   R = R * 10
   Rpm = R
  Locate 1 , 1
  Lcd "RPM: " ; Rpm ; "       "

Loop

End

В протеусе всё ок

Отредактировано validol (2009-12-11 17:02:56)