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

[free_chemist]

А как насчет такого способа, по debounce переходим на ветвь, и там например так:

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

rout:
waitms 300                           'перед первым автоматическим повышением
While Kn = 1
Incr I                                   'счетчик числа прибавлений

If I<10 then                         'первые 10 увеличений переменной будут идти с шагом единица
Incr R
else
R=R+10                               'дальнейшее увеличение пойдет с шагом в 10
end if

Waitms 250
Wend

Так можно выставить любой шаг увеличения переменной и сделать любое число градаций шагов повышения

[edm2007]

Угу. С автоповтором я уже давно разобрался. Здесь сначала про увеличение скорости спрашивал (если кнопка удерживается долго)... Ну да там так же можно, только величину задержки менять. А сейчас про выход в основной режим идет речь, если кнопки долго не нажимались... Ну да это так... В копилку.

[kip96]

Если честно, то пока не совсем.

Так вроде-же я пример выложил.
На словах-
По прерыванию таймера, переменная В, уменьшается каждую секунду. В цикле програмсмы проверяется условие В<5 и если оно верно выходим из цикла и переходим на метку АА.
Получается что при входе в цикл В=10 и через 5 сек. мы из цикла выйдем. Но если мы нажмём кнопку, то в подпрограмме на котрую перейдём сделаем В=10 и при возврате опять будет отсчёт пяти сек.

[kip96]

А насчёт увеличения скорости наверное проще так:

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

If Kn = 0 Then
If I < 10 Then Waitms 100
If I < 20 Then Waitms 100
Waitms 100
Incr I
 - - - - - - - - -
 - - - - - - - - -
else I=0

[edm2007]

На словах...

Вот теперь разобрался, спасибо.

А насчёт увеличения скорости наверное проще так...

И за это благодарю, даже не подумал про такой вариант.

[Gordon Shumway]

конечно не выйдет, Вы же таймерне выключили и не высвободили этот вывод ...

То есть нужно так :

For Zze = 1 To I
Dtmfout Dig(zze) , 150
Waitms 150
Next Zze

Disable timer1

Portb.3 = 0

?

Он у меня в начале программы не назначен Config portb.3 = output...

Спасибо, сработало, но почему-то не всегда. Иногда остается в 1 и не могу понять почему...

[user2007]

Читайте внимательнее инструкции - уже 7 лет так делаю.

Всмысле, 7 лет делаете ошибки в коде?
Читать нужно из PinX, а не из PortX!

Почитайте, как radan познакомился с Марком

При чем тут радан?

1)Все сказали?Скомпилируйте
A=portb или A=portb.0
Получилось что-нибудь? .BASCOM-AVR убирает ТАКИЕ ошибки, поэтому наизусть все помнить не нужно, господин Зубрилкин!
2)RADAN и Alexander zh - друзья. RADAN долго пиратствовал в плане BASCOM-AVR, но затем стал примерным отличником, исправив ошибки(см.форум RADAN'а об этом).Я тоже ЗДЕСЬ признал и исправил ошибку,на которую мне всегда и прежде всего указывает BASCOM(см.выше). А на следущее - запомните ЭТО:"У кого нет греха, пусть первый бросит {в меня} камень"(Ев. от Иоанна)
Но, сдается мне, вам и Alexander zh роднее "Око за око, зуб за зуб"(отгадайте, откуда ЭТО).

[Gordon Shumway]

Доброго времени суток, уважаемые Bascom-профи !

Я опять с очередным глупым вопросом.

Задача была такая - после подачи питания контроллер уходит в Powerdown до наступления события на int0. После наступления события пробуждаемся, делаем что нужно и опять спать.

Config Int0 = Low Level

On Int0 Pusk

Enable Interrupts
Enable Int0

Powerdown

Pusk:

Что-то очень важное

return

А получается зацикленная программа - после первого просыпания она по кругу делает "что-то очень важное". Видимо после Return она идет выполнять то, что после Powerdown.

Как ее заставить работать по заданному сценарию ?

[ВНН]

Config Int0 = Low Level
On Int0 Pusk

111:
Enable Interrupts
Enable Int0
Powerdown
Goto 111

Pusk:
Disable Interrupts
Disable Int0

Что-то очень важное

return

[Мурик]

В твоей проге, после Powerdown программа попадает прямиком в подпрограмму прерываний и хз, куда потом возвращается по return.
Нужно не допустить этого!

Попробуй так:

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

Config Int0 = Low Level

On Int0 Pusk

Enable Interrupts
Enable Int0

Do
   Powerdown
Loop
End

Pusk:

'Что-то очень важное

return

[Gordon Shumway]

Config Int0 = Low Level
On Int0 Pusk

111:
Enable Interrupts
Enable Int0
Powerdown
Goto 111

Pusk:
Disable Interrupts
Disable Int0

Что-то очень важное

return

Блин, ну почему я сам не допер ?! Спасибо, сейчас попробую !

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

В твоей проге, после Powerdown программа попадает прямиком в подпрограмму прерываний

А почему она собственно вообще куда-то попадает после Powerdown? Не должна ли она при выполнении этой команды "заснуть"?

[Мурик]

А почему она собственно вообще куда-то попадает после Powerdown? Не должна ли она при выполнении этой команды "заснуть"?

А что выполняется после пробуждения по внешнему прерыванию? Правильно, следующая команда.
А что там находится? Обработчик прерывания!
И куда программа вернется по return?

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

А почему она собственно вообще куда-то попадает после Powerdown? Не должна ли она при выполнении этой команды "заснуть"?

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

А, после пробуждения, дошло. Т.е. powerdown отрабатывается корректно.
Я-то почему-то понял так, что программа циклится вместо засыпания.

А что там находится? Обработчик прерывания!
И куда программа вернется по return?

Ну с этим и ежу всё ясно.

[Gordon Shumway]

Доброго времени суток, уважаемые Bascom-коты !

Спасибо за помощь ! C Powerdown разобрался, с остальными премудростями вроде тоже !
Все заработало ! Пора писАть статейку Радиокоту, ибо девайс получился хороший, хоть и узко специализированный !

PS сейчас начал понимать, сколько всякой фигни можно запрограммить ! И оно ж еще и работать будет !

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

Пора писАть статейку Радиокоту, ибо девайс получился хороший, хоть и узко специализированный !

Пишите, полюбопытствую с удовольствием
Я тут на днях на ваши грабли наступил с занятием линии после DTMFOUT, вот уж не думал, что есть такой врождённый косяк у баскома. Получается, если юзаем DTMFOUT, то Portd.5 теряем, если не принять специальных мер.
Сейчас пытаюсь сделать анализ вызова на тел. линии, упёрся в аппаратную часть. Хочется, чтобы работало в широком диапазоне звонковых напряжений и не глючило. Видимо, придётся оптрон лепить.

[Gordon Shumway]

Пора писАть статейку Радиокоту, ибо девайс получился хороший, хоть и узко специализированный !

Пишите, полюбопытствую с удовольствием
Я тут на днях на ваши грабли наступил с занятием линии после DTMFOUT, вот уж не думал, что есть такой врождённый косяк у баскома. Получается, если юзаем DTMFOUT, то Portd.5 теряем, если не принять специальных мер.
Сейчас пытаюсь сделать анализ вызова на тел. линии, упёрся в аппаратную часть. Хочется, чтобы работало в широком диапазоне звонковых напряжений и не глючило. Видимо, придётся оптрон лепить.

Я решил проблему по другому - поставил отдельную микруху-dtmf кодер IL91531. Работает !

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

Я решил проблему по другому - поставил отдельную микруху-dtmf кодер IL91531. Работает !

ИМХО это зря, т.к. надо пользоваться прелестью Баскома – наличием команды DTMFOUT (которую кстати можно ещё много чему "научить" при желании, например посылку АОН слать в линию ). Да и ног контроллера придётся много занять для ВЖ19, даже если шину данных объединять с ВЖ18.

[Gordon Shumway]

Я тут на днях на ваши грабли наступил с занятием линии после DTMFOUT, вот уж не думал, что есть такой врождённый косяк у баскома. Получается, если юзаем DTMFOUT, то Portd.5 теряем, если не принять специальных мер.
Сейчас пытаюсь сделать анализ вызова на тел. линии, упёрся в аппаратную часть. Хочется, чтобы работало в широком диапазоне звонковых напряжений и не глючило. Видимо, придётся оптрон лепить.

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

Линий на Tiny2313 мне как раз хватило на обе ВЖ. Но глупо не использовать встроенный DTMF, тут я с вами согласен. У меня получился полностью рабочий девайс, но до момента появления 1 на порту, которая появляется по непонятной логике.

[aleksandr-zh]

... команды DTMFOUT (которую кстати можно ещё много чему "научить" при желании, например посылку АОН слать в линию ...

??
это как? как вы изменили генерируемые шишом частоты?
вочень-вочень интересно