Форум РадиоКот

edm2007 писал(а):max50, пока кнопка нажата, светодиод будет моргать туда-сюда. Это не совсем вписывается в поставленую задачу. Тогда хоть ожидание отпускания кнопки надо добавить.

vladik-bob писал(а):чтоб нажал на кнопочку светодиодик светится второй раз нажал светодиодик не светится?

edm2007 писал(а):max50, я про что говорю, пока нажата кнопка, состояние светодиода будет меняться на противоположное каждые 100 мс. Работать-то оно будет, но это же ерунда полнейшая. Чуть задержался, и он снова сменил состояние... Не серьезно...

max50 писал(а):Для начала в самый раз!

Do

While Button = 1 ' пока кнопка не нажата, сидим тут
Wend

Waitms 50 ' иначе, антидребезг

Toggle Led ' изменение состояния на противоположное

While Button = 0 ' ожидание отпускания
Wend

Waitms 50 ' еще раз

Loop ' пошагали по кругу

End                                                         'end program

edm2007 писал(а):Как вариант - так:

While Button = 0                                          ' цикл ожидания отпускания кнопки 
Wend

edm2007 писал(а):По мне, если уж без всяких debounce и попроще, то так:

 Waitms 50 ' иначе, антидребезг

While Button = 1 ' пока кнопка не нажата, сидим тут
Wend

kip96 писал(а):

edm2007 писал(а):Как вариант - так:

при использовании
Debounce Button , 0 , Smena , Sub
код

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

While Button = 0                                          ' цикл ожидания отпускания кнопки 
Wend

лишний

kip96 писал(а):

edm2007 писал(а):По мне, если уж без всяких debounce и попроще, то так:

чтобы работал антидребезг, нужно либо:
после

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

 Waitms 50 ' иначе, антидребезг

проверить нажата ли кнопка или нет,
либо оператор Waitms 50 вставить в цикл

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

While Button = 1 ' пока кнопка не нажата, сидим тут
Wend

Последнее не есть гуд

kip96 писал(а):Я особено не придумал ни чего, как

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

If Kn = 0 Then                                   '                    '
           Waitms 600
           Debounce Kn , 0 , Aa                                                               
           End If

работает пока нормально
600 мс выбрал экспериментально-
и при кратковремменном нажатии задержку вроде незаметно , и достаточно долго удерживать надо.
для 5 секунд скорее всего ТАЙМЕР нужен (хотя к чему 5 сек)
К примеру нажали кнопку, запустили таймер и каждые (к примеру) 500мс проверяем состояние кнопки- если нажата-проверяем дальше и увеличиваем переменную. Если не нажата- то переходим на метку. Если переменная превысила значение 10( 10 раз проверили условие нажатия кнопки и она была нажата) то переходим на другую метку.
Примерно так я делал, когда надо было проверить "не нажатие" кнопки. Т.Е. если кнопка долго не нажата то переходим в основной цикл.

rotor писал(а):Добрый день или вечер!
Решил попробовать BASCOM AVR, столкнуля с одной проблемой.
при чтении датчика температуры ds18b20 при указанном параметре
$crystal = 4000000
прчитанные 9-ть байт не соответствут реальным, каждый байт больше в два раза, а при параметре $crystal = 1000000 или $crystal = 2000000 или $crystal = 3000000 все нормально.
Хотя команда
Reg_no(1) = 1wsearchfirst()
работает нормально при любых параметрах $crystal.
Испльзую BASCOM v1.11.9.0
Вопрос: ктонибудь сталкивался с такой проблемой если да, как с этим бороться?
Всем спасибо.

leseni писал(а):

rotor писал(а):Добрый день или вечер!
Решил попробовать BASCOM AVR, столкнуля с одной проблемой.
при чтении датчика температуры ds18b20 при указанном параметре
$crystal = 4000000
прчитанные 9-ть байт не соответствут реальным, каждый байт больше в два раза, а при параметре $crystal = 1000000 или $crystal = 2000000 или $crystal = 3000000 все нормально.
Хотя команда
Reg_no(1) = 1wsearchfirst()
работает нормально при любых параметрах $crystal.
Испльзую BASCOM v1.11.9.0
Вопрос: ктонибудь сталкивался с такой проблемой если да, как с этим бороться?
Всем спасибо.

Igor_67 писал(а):Я уже указал тебе на ошибку, но ты все равно упорно ее совершаешь.
Sub Hilighton
T2 = 0
While T2 < 10
Incr T1
If Pind.3 = 0 Then : Return
End If
Waitms 100
Wend
Set Portb.3
End Sub
Опять после THEN идет двоеточие, то есть получается условие без следствия. И чего ты хочешь тогда добиться?
Я тебе немного исходник подрихтовал, он во вложении. Пробуй. Честно признаюсь, у себя не проверял - некогда, извини!
Да, потом заметил еще один момент. В п/п Highlighton сначала T2=0? , а потом цикл, пока Т2<10...
Ну дык оно(Т2) всегда будет меньше 10, при обращении к этой п/п. Короче думай-переделывай...

Master_of_Puppets писал(а):Думаю импульсы считать с помощью прерываний. Т.е. пришел импульс - в обработчике прерываний переменную для количества импульсов увеличиваю на 1

Master_of_Puppets писал(а):Я правильно понял, что время, в течение которого считаются импульсы задается этой строкой?
Config Timer1 = Counter , Edge = Falling , Prescale = 1

Do
  Counter1 = 0
  Start Counter1
  Waitms 25
  Stop Counter1
  Cls
  Lcd "Counter1: " ; Counter1
  Waitms 100
Loop