Вполне достаточно-подключал много раз

А как выход оборотов с коммутатора подключить на pin контроллера? очень часто мелькают схемы со стабилитроном и резистором, достаточно ли этого?

подскажите как написать в баскоме прогу которая генерирует прямоугольный сигнал(меандр), частота чтобы плавно задавалась от 1Гц до 5000Гц
и выводилась на экран
вот что я написал , не судите строго , в прерывании от таймера я просто загружаю в него число которое является суммой константы и значения ацп измеренного с переменного резистора,за счет этого при поворачивании ручки резистора изменяется частота вызова подпрограммы по переполнению таймера
$regfile = "m88pdef.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32

'Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portd.0 , Db7 = Portd.1 , E = Portd.7 , Rs = Portd.6
'Config Lcd = 20 * 4
'Initlcd
'Cls
'Cursor Off

Config Timer1 = Timer , Prescale = 8

'Timer1 = 65445
' Timer1 = Divid

Config Portb.1 = Output
On Timer1 Strobe

Enable Interrupts
Enable Timer1

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Const Multk = 330
Dim A As Word
Dim T As Word
Dim B0 As Bit
Dim Freq As Word
Dim Divid As Word
Dim Divid2 As Word
Dim Adcw2 As Integer
Dim Adcw As Word
Dim Adcw3 As Word
Dim Coef As Single
Dim Cnt As Byte
Dim B1 As Bit

'Dim Freqstr As String * 5
'Dim Freqstrf As String * 5
'Dim Coefstr As String * 4
'Dim Coefstrf As String * 4
'Dim Adcwstr As String * 4
'Dim Adcwstrf As String * 4
'Dim B3 As Bit
'Divid2 = 50

'Locate 1 , 1
'Lcd "Àac¿o¿a"
'Locate 2 , 1
'Lcd "㻸¿e»Ä½oc¿Ä"
'Divid = 1000
Do

Incr T
' If T = 1 Then Gosub Setdiv1
'If T = 255 Then Gosub Setdiv2

'if b0=1 then gosub freqcount1 else gosub freqcount2
Adcw = Getadc(6)

If Adcw = 0 Then Adcw = 1
If Adcw > 1010 Then Adcw = 1010

If T = 100 Then Gosub Label1

Loop
End

'Divid = Divid2
'Freqstr = Str(divid2)
'Freqstrf = Format(freqstr , "00000")
'Locate 1 , 1
'Lcd Freqstrf
'Adcwstr = Str(adcw)
'Adcwstrf = Format(adcwstr , "0000")
'Locate 2 , 1
'Lcd Adcw

Strobe:
'Start Timer1
Timer1 = Divid2

If B0 = 0 Then Gosub Sten Else Gosub Stdis
Return
Sten:

Set Portb.1

B0 = 1
Return
Stdis:

Reset Portb.1

B0 = 0

Return

'Setdiv1:
' T = 0

' Divid2 = Adcw * 10
' Divid = Divid2
'' Divid = 1000

' Return

' Freqcount1:
' Incr T
' Return
'Freqcount2:
' Incr A
' If T <> Divid2 Then Gosub Setdiv1

' Return

' Label1:
'Divid2 = 0
' Return

Label1:
T = 0
If Adcw <= 20 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw <= 40 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw <= 60 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw <= 80 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw <= 100 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw <= 120 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw <= 140 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw <= 160 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw <= 180 Then Divid2 = Adcw * Multk : Tccr1b = &B00000010
If Adcw >= 200 Then Divid2 = Adcw + 63336 : Tccr1b = &B00000010
If Adcw >= 290 Then Divid2 = Adcw + 64246 : Tccr1b = &B00000010
If Adcw >= 380 Then Divid2 = Adcw + 64489 : Tccr1b = &B00000010
If Adcw >= 470 Then Divid2 = Adcw + 64566 : Tccr1b = &B00000010
If Adcw >= 560 Then Divid2 = Adcw + 64576 : Tccr1b = &B00000010
If Adcw >= 650 Then Divid2 = Adcw + 64553 : Tccr1b = &B00000010
If Adcw >= 740 Then Divid2 = Adcw + 64510 : Tccr1b = &B00000010
If Adcw >= 830 Then Divid2 = Adcw + 64456 : Tccr1b = &B00000010
If Adcw >= 920 Then Divid2 = Adcw + 64394 : Tccr1b = &B00000010
If Adcw >= 1010 Then Divid2 = Adcw + 64350 : Tccr1b = &B00000010
Return

у меня заработало на меге 48 только код подправил
$regfile = "m48def.dat"
$crystal = 16000000
$hwstack = 45
$swstack = 20
$framesize = 40

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portd.0 , Db7 = Portd.1 , E = Portd.7 , Rs = Portd.6
Config Lcd = 16 * 2
Initlcd
Cls
Cursor Off

Config Timer1 = Timer , Prescale = 64 , Capture Edge = Rising

Dim Timercounter As Word
Dim Period As Single
Dim F1 As Single
Dim F As Word
Dim Coefstr As String * 4
Dim Coefstrf As String * 4
Dim Adcw As Word
Dim B0 As Bit
Dim Adcw2 As Integer
Dim Adcw3 As Word
Const T = 0.000004

On Capture1 Zaxvat

Timercounter = 0
Waitms 50
Enable Interrupts
Enable Capture1

Cursor Off

Do

If Timercounter = 0 Then
F = 0

Else

Period = Timercounter * T
F1 = 1 / Period
F = Abs(f1)

EndIf
Coefstr = Str(f)
Coefstrf = Format(coefstr , " ")
Locate 1 , 1
Lcd "«ac¿o¿a" ; " " ; Coefstrf ; "¡å"
Waitms 100

Loop

Zaxvat:
Timercounter = Timer1
Timer1 = 0
Return

End

Конечно,может не очень по теме, Гц * 60=об/мин,но в ДВС рабочий ход проходит за два
оборота вала,соответственно 1 импульс за два оборота,цилиндров 2,4,6,8 и может быть 12(т.е. какая то переменная из eeprom),сюда бы добавить два порога для ЭПХХ,один для
сигнализации превышения частоты ващения... Чудесный тахометр бы получился...

А почему нельзя, умножаем частоту на 60 и получаем значение в об/мин

На Меге16 получилось!Вопрос:А Герцы можно перевести в Об/мин?

Потолок измерений определить довольно сложно, поскольку чем выше частота, тем сильнее "разброс" показаний. Вернее сказать дискретность показаний увеличивается, например при частоте 40 кГц на устройстве отображается то 41666, то вдруг 62500 (разница целых 20834 Гц). Если еще выше поднять частоту (например до 50 кГц), то устройство тормозит, это можно заметить по частоте обновления символов на экране (при частоте 50 кГц частота обновления примерно 1 сек). Максимум что может выдать устройство это около 64000 Гц.

virb, интересно а какой потолок измерений получился ?

Попробовал на 8 меге - работает. Сначала не мог никак проверить, потом приволок с работы генератор частоты и проверил. Надо амплитуду сигнала от 1,5 и выше вольт ставить, при меньшей амплитуде не замечает. При маленьких значениях частоты на дисплее отображается та же частота что и подается, а при увеличении частоты значение на дисплее становится чуть больше, чем подается (например, при 100 Гц отображается 102 Гц, при 1000 Гц - 1024 Гц).

К стати у меня на 8 меге тоже неработает,пальцем касаешься вывода циферки бегают по экрану,а если подключить генератор даже 1 кгц непоказывает при кварце 12мгц.Показывает только одно число 4886(помоему точно непомню ).

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

Переделав проект на мегу 8 обнаружено, что в пртеусе работает, а в железе нет. Или же этот МК не подходит, только мега 32?

этим вопросом задаются многие)) попробуй;)

Это правда, что при делении на 0 происходит разрушение кристалла?

Самое простое было бы сделать на задержке, только незнаю насколько точно получиться отсчитывать время:


Поэтому, когда промежуток слишком большой (как у тебя 0,01-10 сек), конфигурируем таймер на прерывание по переполнению, в прерывании увеличиваем значение переменной. Время, через которое происходит увеличение переменной, можно подсчитать. Пускай сделали так, чтобы переполнение происходило каждые 0,01 сек. Все, зная значение переменной, знаем сколько точно прошло времени: к примеру в переменной лежит число 156, значит счетчик протикал 1,56 сек. А дальше привязываем к значению нашей переменной выполнение нужных действий.

Камрад, такой вопрос - как лучше организовать формирование точного сигнала на ноге контроллера определенной длительности - от 0,01 до 10 секунд например?

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

T=(1/F)*n тут Т-константа, n-предделитель, F-частота работы камня

Как считается константа Const T = 0.000004 ? Что-то я не догнал краями. У меня при кварце 11,059 и такой константе считает верно, но до частоты 62500 (снимаю со счетчика). Ставишь на более высокие ноги - 124кГц и более - не считает. Предделитель - 64, как в примере.