Код: Выделить всё
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 писал(а):Если честно, то пока не совсем.
Код: Выделить всё
If Kn = 0 Then
If I < 10 Then Waitms 100
If I < 20 Then Waitms 100
Waitms 100
Incr I
- - - - - - - - -
- - - - - - - - -
else I=0kip96 писал(а):На словах...
kip96 писал(а):А насчёт увеличения скорости наверное проще так...
Gordon Shumway писал(а):aleksandr-zh писал(а):конечно не выйдет, Вы же таймерне выключили и не высвободили этот вывод ...
То есть нужно так :For Zze = 1 To I
Dtmfout Dig(zze) , 150
Waitms 150
Next Zze
Disable timer1
Portb.3 = 0
?
Он у меня в начале программы не назначен Config portb.3 = output...
Мурик писал(а):Всмысле, 7 лет делаете ошибки в коде?user2007 писал(а):Читайте внимательнее инструкции - уже 7 лет так делаю.
Читать нужно из PinX, а не из PortX!При чем тут радан?user2007 писал(а):Почитайте, как radan познакомился с Марком
.BASCOM-AVR убирает ТАКИЕ ошибки, поэтому наизусть все помнить не нужно, господин Зубрилкин! Config Int0 = Low Level
On Int0 Pusk
Enable Interrupts
Enable Int0
Powerdown
Pusk:
Что-то очень важное
return
Код: Выделить всё
Config Int0 = Low Level
On Int0 Pusk
Enable Interrupts
Enable Int0
Do
Powerdown
Loop
End
Pusk:
'Что-то очень важное
returnВНН писал(а):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?
Gordon Shumway писал(а):Пора писАть статейку Радиокоту, ибо девайс получился хороший, хоть и узко специализированный !
Секретный кот писал(а):Gordon Shumway писал(а):Пора писАть статейку Радиокоту, ибо девайс получился хороший, хоть и узко специализированный !
Пишите, полюбопытствую с удовольствием
Я тут на днях на ваши грабли наступил с занятием линии после DTMFOUT, вот уж не думал, что есть такой врождённый косяк у баскома. Получается, если юзаем DTMFOUT, то Portd.5 теряем, если не принять специальных мер.
Сейчас пытаюсь сделать анализ вызова на тел. линии, упёрся в аппаратную часть. Хочется, чтобы работало в широком диапазоне звонковых напряжений и не глючило. Видимо, придётся оптрон лепить.
Gordon Shumway писал(а):Я решил проблему по другому - поставил отдельную микруху-dtmf кодер IL91531. Работает !
). Да и ног контроллера придётся много занять для ВЖ19, даже если шину данных объединять с ВЖ18. Секретный кот писал(а):Я тут на днях на ваши грабли наступил с занятием линии после DTMFOUT, вот уж не думал, что есть такой врождённый косяк у баскома. Получается, если юзаем DTMFOUT, то Portd.5 теряем, если не принять специальных мер.
Сейчас пытаюсь сделать анализ вызова на тел. линии, упёрся в аппаратную часть. Хочется, чтобы работало в широком диапазоне звонковых напряжений и не глючило. Видимо, придётся оптрон лепить.
Секретный кот писал(а):... команды DTMFOUT (которую кстати можно ещё много чему "научить" при желании, например посылку АОН слать в линию ...