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

[Igor_67]

Ну щас попробую наваять

[edm2007]

aleksandr-zh, спасибо.

[Igor_67]

У Wild Cat-а был на сайте? там все подробно описано!

[edm2007]

Ну щас попробую наваять

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

[Igor_67]

При нажатии кнопки - запуск таймера (например TIMER0), потом отслеживание интервала этого таймера. потом сравнение и т.д.

[edm2007]

У Wild Cat-а был на сайте? там все подробно описано!

На www.wildcat.org.ru ? Первый раз туда зашел. Посмотрю. Мне даже не сам код особо нужен, на словах достаточно. Спасибо.

[edm2007]

При нажатии кнопки - запуск таймера, потом отслеживание интервала - все просто!

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

[Igor_67]

Нет, я немного иначе хочу. А если не секрет, как "ИНАЧЕ"?

[edm2007]

А если не секрет, как "ИНАЧЕ"?

С автоповтором иначе, просто как проверка удержания кнопки. Если она до сих пор нажата, то никуда не уходим а увеличиваем переменную. А с увеличением скорости еще надо поковыряться.

[kip96]

Я делал так:
Через debounce переходим на метку, далее через waitms 250 проверяем нажата ли кнопка, если да, то увеличиваем "s" , увеличиваем "a". Далее врзвращаемся на проверку нажатия кнопки и ходим по циклу пока кнопка нажата. Там-же в цикле проверяем "S" и если она превысит 10, то начинаем увеличивать "а" на 10.
Думаю ясно об*яснил.

[edm2007]

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

[Gordon Shumway]

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

Пожалуйста, помогите решить проблему !

Имеется часть кода:

Enable Interrupts
Enable Timer1
Dim Dig(4) As Integer
Dim I As Byte
Dim Zze As Byte

...............
-- что-то делается --
...............

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

которая выдает несколько цифр в DTMF на Portb.3.

Проблема такая: изначально на PB3 лог.0. После выдачи всех цифр там устанавливается лог. 1.
("0" - цифра - цифра - цифра - цифра - "1").
Эта лог. 1 мне мешает - держит открытым транзистор, через который цифры DTMF улетают.

Как можно сбросить PB3 в ноль после выдачи цифр ?

Спасибо заранее за ответы !

[aleksandr-zh]

самое простое
portX.X=0

[Gordon Shumway]

самое простое
portX.X=0

Уже пробовал.

Не вышло !

[aleksandr-zh]

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

[Gordon Shumway]

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

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

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

Disable timer1

Portb.3 = 0

?

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

[kip96]

сначала увеличиваются единицы, а при дальнейшем удержании - десятки?

Получается так. Но это Вам решать, десятки , а можно вдвое.
Просто как вариант.
Можно при S =10 можно уменьшить waitms, скажем до 100.
Это как Ваша фантазия позволит. Просто у меня таймеры были заняты. Кстати, один таймер как раз работал на то, чтобы выходить в основной режим если кнопку долго не нажимали.

[edm2007]

сначала увеличиваются единицы, а при дальнейшем удержании - десятки?

Получается так. Но это Вам решать, десятки , а можно вдвое.
Просто как вариант.
Можно при S =10 можно уменьшить waitms, скажем до 100.
Это как Ваша фантазия позволит. Просто у меня таймеры были заняты. Кстати, один таймер как раз работал на то, чтобы выходить в основной режим если кнопку долго не нажимали.

Спасибо, это хороший вариант, именно такая идея мне в голову и пришла. А таймеры я и не хочу использовать, для другого пригодятся. Можно посмотреть кусок кода выхода в основной режим? Очень интересно.

[kip96]

Хотел было кусок кода выложить, но посмотрел, программа сильно ветвится, поэтому по куску не понять, надо всю программу выкладовать.
Оно и так всё понятно

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

Seting:
Waitms 500                           -проверка о намерении перейти на скрытое меню
If Kn = 0 Then                       - если через полминуты кнопка удерживается то
B = 10                                  - по прерыванию таймера "В" уменьшается
Do
******
Debounce Kn , 0 , Settime_ind,sub - переходим на подпрограмму в которой "В" устанавливаем в 10
*******
Loop Until B < 5               - если кнопка не нажималась более 5 сек. выходим из цикла и переходим на мет. АА
End If                       если кнопка неудерживалась возвр. в метку АА основного цикла.
Goto Aa

[edm2007]

Оно и так всё понятно

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