BASCOM AVR в вопросах и ответах

[Igor_67]

Ну вот, внимательно вкурив даташит, наваял следующее безобразие:

Код: Выделить всё

$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.1
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
Config Lcd = 16 * 2
Config Adc = Free , Prescaler = Auto , Reference = Avcc

Dim W As Word
Dim S As String * 16
Dim M As Single

Admux = &B11101001
Start Adc

Do
   W = Getadc(0 , 1)
   M = W * 5
   M = M / 1024
   M = M / 200
   S = Fusing(m , "#.##")
   Cls
   Lcd S
   Waitms 300
Loop

Вот только в результате должно получиться 1.3 вольта, а получается 1.5
А вот где тут собака порылась, не пойму...
Может кто разбирался с этим?
Все файлы во вложении.

[осторожно! леоныч!!!]

Код изменен.

Do

Debounce Button , 0 , 3leds , Sub ' обработка нажатия кнопки
Led = Not Button ' при нажатой кнопке зажигаем светодиод


Loop

Как видно не значительно. Но все как я писал выше. Надо как то пролинвертировать "led" чтоли.....

[amv2000]

Код изменен. Как видно не значительно.

Не вижу изменений, код от edm2007

Код: Выделить всё

'**************************************** Основной цикл *****************************************************

Do

Debounce Button , 0 , 3leds , Sub                           ' обработка нажатия кнопки
Led = Not Button                                            ' при нажатой кнопке зажигаем светодиод

Loop

Ваш выше, сами сравните.
Код от edm2007 проверен в железе, остается только смотреть подключение на схеме у Вас.

[amv2000]

Вот только в результате должно получиться 1.3 вольта, а получается 1.5

Попробуйте в железе.

[осторожно! леоныч!!!]

Debounce Button , 0 , 3leds , Sub Вместо 0 была 1. Иначе светодиод горит постоянно. И еще. Все светодиоды у меня подключены на минус (-) питания.

[edm2007]

Debounce Button , 0 , 3leds , Sub Вместо 0 была 1. Иначе светодиод горит постоянно.

Вы издеваетесь? Где Вы там увидели 1? Вот код из моего примера:

Код: Выделить всё

Do

Debounce Button , 0 , 3leds , Sub                           ' обработка нажатия кнопки
Led = Not Button                                            ' при нажатой кнопке зажигаем светодиод

Loop

И еще. Все светодиоды у меня подключены на минус (-) питания.

Вам скриншот из протеуса скинуть, где все светодиоды сидят на минусе? Я вообще не понимаю, в чем Вы нашли проблему?

В основном цикле команда Debounce считывает состояние пина порта, к которому подключена кнопка. Так как кнопка подтянута к питанию (программно), то считается 1 (при ненажатой, естественно). Далее на пин порта дополнительного светодиода будет выдан уровень, инверсный по отношению к кнопке. Там 1 - на светодиоде 0. Светодиод погашен.

Как только кнопка будет нажата, с пина кнопки считается 0. Программа уйдет по метке 3leds, где будет включен светодиод. Произойдет это очень быстро, мы снова вернемся в основной цикл где и будет записан в пин порта светодиода уровень, обратный кнопочному. Мы кнопку нажали? Нажали. Уровень на пине 0? Ноль. Значит инверсный (NOT) равен 1. Светодиод светится. И светиться он будет до тех пор, пока нажата кнопка. Мы никуда из основного цикла не уйдем, потому что та же Debounce ждет отпускания кнопки. А вот таймер включеные основные светодиоды сбросит запросто. Что требовалось - то и получили.

А вот если Вы не включили подтяжку кнопки, замыкаете ее на плюс, или дополнительный светодиод у Вас подключен иначе, или еще что-то подобное, то я здесь совершенно не при чем. Приведите свой полный код, и я скажу Вам в чем дело.

[осторожно! леоныч!!!]

Кнопку я подключил через резистор на минус питания. При нажатии на вход контроллера подается плюс (+). А вот злиться тоже не надо, всего не усмотришь. По другому я не мог подключить. Это основное условие для нормальной работы моей схемы....

[amv2000]

Кнопку я подключил через резистор на минус питания. При нажатии на вход контроллера подается плюс (+)

Не понял это как, должно быть наоборот при нажатии на вход подается минус ибо вы резистором к минусу притянули(плюс там по умолчанию), или все же к плюсу?

[edm2007]

осторожно! леоныч!!!, а Вы опасный человек. Сначала значит:

Применил строчки из кода который вы в последний раз дали. Получилось все наоборот

А потом:

Кнопку я подключил через резистор на минус питания. При нажатии на вход контроллера подается плюс (+).

И Вас правда удивило, что все заработало наоборот? На самом деле-то нужно было убрать программную подтяжку (очень логично), изменить 0 на 1 в опросе кнопки (совсем логично) и убрать инверсию при включении дополнительного светодиода (тоже далеко не гениальная идея).

всего не усмотришь

Вы это серьезно? Вот правда пишете прошивки и так думаете? Мол, ну а чо там, всякое ведь бывает. И тут тоже как-нибудь оно выйдет.

А вот злиться тоже не надо

Это да, хороший совет. А так как иначе я не могу (ну буквально на десятом вопросе "вокруг да около" начинаю нервничать и болеть душой), то перейду я, пожалуй, в разряд наблюдателей. Давно собирался...

Не понял это как, должно быть наоборот при нажатии на вход подается минус ибо вы резистором к минусу притянули(плюс там по умолчанию), или все же к плюсу?

Если я правильно понял, то подтяжка внешняя к шине земли. А подается именно плюс. Имеющий право на жизнь вариант.

[осторожно! леоныч!!!]

Большое спасибо edm2007. Не надо никуда уходить , ни в какие наблюдатели. Лучше я свалю со своими тупыми вопросами.

А за помощь я вам очень благодарен! На этом примере я многому научился. Понял главное.

[Igor_67]

Сегодня еще немножко поколдовал со своей проблемой. Судя по ДШ, ADMUX = &B11101001 - это то же самое, что Getadc(0,233) - 233 здесь опционально и равно тому же двоичному числу (11101001), только в десятеричном коде. Получается масло-масленое! То есть, 01001 - это содержание первых пяти битов регистра ADMUX, которые указывают, что преобразование производится со входов ADC1(положительный вход) и ADC0(отрицательный вход) с коэффициентом усиления х10. Следовательно, для получения результата,надо воспользоваться формулой из ДШ для дифференциального включения входов ( стр.210 ДШ). Следовательно код изменился вот так:

Код: Выделить всё

$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.1
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
Config Lcd = 16 * 2
Config Adc = Free , Prescaler = Auto , Reference = Avcc

Dim W As Word
Dim S As String * 16
Dim M As Single

Admux = &B11101001
Start Adc

Do
   W = Getadc(0 , 233)
   M = W * 5
   M = M / 5120                                       ' 5120 - это 512*10 (по формуле)
   S = Fusing(m , "#.##")
   Cls
   Lcd S
   Waitms 300
Loop

Только опять лажа выходит. На вход ADC0 подан ноль питания (для упрощения), на вход ADC1 подано 3,6 В, а результирующая получилась 3,2 В!!! Нихрена не понимаю!!!

[edm2007]

осторожно! леоныч!!!, подобные вопросы не могут быть тупыми, в принципе. Если человек переспрашивает одно и то же, то либо он и не хочет сам учиться (тут дело понятное), либо так объясняют. Гораздо опаснее другое. Это дезинформация. Или недосказанность. Я ведь не просто так пытался выяснить, в чем разница Вашего варианта. И что получил?

Считаем что ваш пример без изменений, надо просто индицировать нажатие кнопки. Кнопка нажата - отдельный светодиод горит, отпущена - не горит. При это функция счета 3 светодиодов должна оставаться.

Ну что просили - то и получили. На будущее: говорите все как есть. И подобных недоразумений не будет.

[осторожно! леоныч!!!]

Стыдно.....

[TIP]

Доброго дня всем!
Спецы, подскажите как в проге задать длительность паузы между импульсами в сотню наносекунд?

[Секретный кот]

Доброго дня всем!
Спецы, подскажите как в проге задать длительность паузы между импульсами в сотню наносекунд?

При использовании кварца на 20 МГц достаточно двух NOP.

[осторожно! леоныч!!!]

Доброго дня всем!
Спецы, подскажите как в проге задать длительность паузы между импульсами в сотню наносекунд?

Мне вот интересно зачем? И вообще сможет ли так быстро работать регистр контроллера

[Serhio]

Решил написать программку в Bascom для AVR разумеется. Бейсик хорошо знал в школе и универе. Подскажите какую русскоязычную литературу лучше почитать, что бы вспомнить операторы, команды и тд бейсика? К сожалению нету времени прочитать все 150 страниц форума))))))

[Секретный кот]

Подскажите какую русскоязычную литературу лучше почитать, что бы вспомнить операторы, команды и тд бейсика? К сожалению нету времени прочитать все 150 страниц форума))))))

http://progbook.ru/basic/
Только есть ли в этом смысл? Бейсиков много, а BASCOM такой один. То, что справедливо для другого бейсика, может не подойти к баскому, и наоборот.

[Serhio]

Спасибо!))) Читал здесь
http://decada.org.ru/project/lessons/bascom_avr/, но тут больше о самой среде Баском. А где можно посмотреть непосредственно о самом языке Баском: что справедливо для него, какой у него синтаксис, какие он использует операторы, список операторов?

[Igor_67]

Спасибо!))) Читал здесь
http://decada.org.ru/project/lessons/bascom_avr/, но тут больше о самой среде Баском. А где можно посмотреть непосредственно о самом языке Баском: что справедливо для него, какой у него синтаксис, какие он использует операторы, список операторов?

А чем встроенный "хелп" не устраивает? Там как раз все это есть, правда на аглицком, но понять не трудно, тем более, по вашим словам, вы бейсик давно изучаете, так что проблем с аглицкими словами быть не должно!