Roman.com, да вот, пока ждал ответа от "добрых людей" уже сам накатал код и этот код работает. Благо нашел таки папку с примерами в Баскоме (как оказалось, она находится в папке "мои документы", а не в самой папке со средой). Кстати в этой теме по идее должны "обитать" люди, которые знают Баском
Просто эти люди наверное думают что пришел я тут, "халявщик", не хочу напрягаться, а типа "напишите мне код"... И фиг ты им докажешь что уже долбаюсь с этим около 12 часов: изучаю, ищу, пытаюсь разобраться и все тщетно. Вы ведь сами свидетель)) И отчасти эти люди еще забывают о том что очевидные для них вещи, для меня - темный лес и забывают наверное что сами тоже с чего-то начинали и чего-то не понимали и как было трудно разобраться... Но, все же надеюсь что они изменят свое мнение и помогут мне во всем разобраться
Вот этот мой код, который работает:
Спойлер
Код: Выделить всё
$regfile = "m8adef.dat"
$crystal = 11059200
$baud = 19200
Config Portd.2 = Input
Set Portd.2
Config Int0 = Falling
On Int0 Mode_sub
Enable Int0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
On Adc Get_adc
Enable Adc
Dim Vol As Word , Vol_buff As Word
Dim Round_pl As Word , Round_min As Word , Round_val As Byte
Vol = 0
Vol_buff = 0
Round_val = 1
Enable Interrupts
Do
Start Adc
Config Powermode = Adcnoise
Stop Adc
Round_pl = Vol + Round_val
Round_min = Vol - Round_val
If Vol <> Vol_buff And Round_pl <> Vol_buff And Round_min <> Vol_buff Then
Vol_buff = Vol
Print Vol
Waitms 100
End If
Loop
Mode_sub:
Print "ch_mode"
Waitms 500
Gifr = 64
Return
Get_adc:
Vol = Getadc(0)
Return
End
Но, повторюсь: то, что он просто работает меня не очень устраивает. Мне нужно чтобы он работал ПРАВИЛЬНО (имеется ввиду - по всем "канонам" AVR "библии", так то он и так работает с виду правильно и стабильно, то есть нареканий и конкретных претензий к своему коду я не имею)!
Для удобства выкладываю код из этого файла-примера:
Спойлер
Код: Выделить всё
'--------------------------------------------------------------------
' ADC_INT.BAS
' demonstration of GETADC() function in combintion with the idle mode
' for a better noise immunity
' Getadc() will also work for other AVR chips that have an ADC converter
'--------------------------------------------------------------------
$regfile = "m88def.dat"
$crystal = 8000000
$baud = 19200
$hwstack = 40
$swstack = 8
$framesize = 40
Declare Sub Adc_isr()
'configure single mode and auto prescaler setting
'The single mode must be used with the GETADC() function
'The prescaler divides the internal clock by 2,4,8,16,32,64 or 128
'Because the ADC needs a clock from 50-200 KHz
'The AUTO feature, will select the highest clockrate possible
Config Adc = Free , Prescaler = Auto , Reference = Internal
'Now give power to the chip
On Adc Adc_isr Nosave
Enable Adc
Enable Interrupts
Dim W As Word , Channel As Byte
Channel = 0
'now read A/D value from channel 0
Do
Channel = 0
'idle will put the micro into sleep.
'an interrupt will wake the micro.
Start Adc
Idle
Stop Adc
Print "Channel " ; Channel ; " value " ; W
Loop
End
Sub Adc_isr()
$asm
push r26
push r27
push r24
in r24,SREG
push r24
push r25
$end Asm
W = Getadc(channel)
$asm
pop r25
pop r24
Out Sreg , R24
pop r24
pop r27
pop r26
$end Asm
End Sub
Теперь конкретно что меня смущает (в сравнении своего кода и примера из Bascom "ADC_INT.BAS"):
1) Первое что бросается в глаза это строчка:
Declare Sub Adc_isr(). На мой взгляд, нет никакой разницы объявлять так официально функцию или просто сделать как сделал я... Я прав?
2) Само название функции. В конце названия:
_isr и, как мне показалось это и подсветило название функции розовенькой в коде. Так это влияет на что-то или нет? В помощи по Баскому пишут пример
My_isr, что и наводит на всякие подозрения.
3) Присутствие в строке:
On Adc Adc_isr Nosave слова
Nosave. Как я понял, это слово отвечает за сохранение (а точнее - несохранение) каких-то регистров во время прерывания. Но ЗАЧЕМ здесь это надо? В своем коде, как можно увидеть, я этого слова не использовал... А надо ли?
4) В примере кода от Bascom, сам АЦП конфигурируют как
Config Adc = Free, я же конфигурирую его как
Config Adc = Single! Влияет ли это на что-то в дальнейшем коде? Или все верно?
5) В примере кода от Bascom, процессор микроконтроллера выключают командой
Idle. Почитав литературу, я сделал вывод (могу и ошибаться), что лучше вместо Idle использовать команду
Power adcnoise, вроде это должно дать лучшее гашение шумов. Однако в помощи по Баском-у пишут:
THIS STATEMENT IS NOT RECOMMENDED. Please use CONFIG POWERMODE instead.. Поэтому я использовал вместо команды
Idle - команду
CONFIG POWERMODE = adcnoise. Правильно я поступил или нет? Эта строка здесь правильно используется?
6) Ну и наконец, в примере от Баском-а мы видим в коде прерывания АЦП - Ассемблерные вставки, которые, как я понял, сохраняют какие-то регистры, а потом опять их считывают это, как я понял, связано как-то со словом
Nosave, о котором я писал в пункте 3. Что это за регистры? За что они отвечают? Что вообще делается при помощи того кода на ассемблере? Зачем этим регистрам сначала приказывают не сохраняться при помощи слова
Nosave, а потом пытаются их сохранить при помощи Ассемблерного кода?
На что вообще влияют эти все данные отличия? Ведь мой код тоже работает! Или это все на точность как раз и влияет?
В общем, надеюсь на то что кто-то сможет ответить мне по каждому пункту и разъяснить ситуацию.
roman.com писал(а):Ух... вот бы с удовольствием помог хорошему Человеку...
Огромное Вам Человеческое Благодарю, за Вашу помощь в другой ветке
И так многое прояснил для себя благодаря Вам!
The only one thing necessary for the triumph of evil ...is for good people to do nothing.
