edm2007 писал(а):max50, пока кнопка нажата, светодиод будет моргать туда-сюда. Это не совсем вписывается в поставленую задачу. Тогда хоть ожидание отпускания кнопки надо добавить.
vladik-bob писал(а):чтоб нажал на кнопочку светодиодик светится второй раз нажал светодиодик не светится?
edm2007 писал(а):max50, я про что говорю, пока нажата кнопка, состояние светодиода будет меняться на противоположное каждые 100 мс. Работать-то оно будет, но это же ерунда полнейшая. Чуть задержался, и он снова сменил состояние... Не серьезно...
max50 писал(а):Для начала в самый раз!
В железе попробовал сейчас, 100 мс очень мало, ловить нужное состояние жутко неудобно. По мне, если уж без всяких debounce и попроще, то так:Код: Выделить всё
Do
While Button = 1 ' пока кнопка не нажата, сидим тут
Wend
Waitms 50 ' иначе, антидребезг
Toggle Led ' изменение состояния на противоположное
While Button = 0 ' ожидание отпускания
Wend
Waitms 50 ' еще раз
Loop ' пошагали по кругу
End 'end program
edm2007 писал(а):Как вариант - так:
Код: Выделить всё
While Button = 0 ' цикл ожидания отпускания кнопки
Wendedm2007 писал(а):По мне, если уж без всяких debounce и попроще, то так:
Код: Выделить всё
Waitms 50 ' иначе, антидребезгКод: Выделить всё
While Button = 1 ' пока кнопка не нажата, сидим тут
Wendkip96 писал(а):edm2007 писал(а):Как вариант - так:
при использовании
Debounce Button , 0 , Smena , Sub
кодКод: Выделить всё
While Button = 0 ' цикл ожидания отпускания кнопки
Wend
лишний
kip96 писал(а):edm2007 писал(а):По мне, если уж без всяких debounce и попроще, то так:
чтобы работал антидребезг, нужно либо:
послеКод: Выделить всё
Waitms 50 ' иначе, антидребезг
проверить нажата ли кнопка или нет,
либо оператор Waitms 50 вставить в циклКод: Выделить всё
While Button = 1 ' пока кнопка не нажата, сидим тут
Wend
Последнее не есть гуд
И вообще весь этот изврат не имеет смысла. В баскоме замечательная работа с кнопками по debounce. Кстати, про кнопки, я вот что хотел спросить, а как реализовать проверку на то, что кнопка нажата и удерживается определенное время? Ну к примеру, кратковременное нажатие выполняет одну задачу, а нажатие и удержание в течение 5 секунд уводит программу совсем в другое место. Код: Выделить всё
If Kn = 0 Then ' '
Waitms 600
Debounce Kn , 0 , Aa
End Ifkip96 писал(а):Я особено не придумал ни чего, какКод: Выделить всё
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
Вопрос: ктонибудь сталкивался с такой проблемой если да, как с этим бороться?
Всем спасибо.
Подробнее-то хоть напишите, какой МК, в железе это или в протеусе, свой исходник... В протеусе есть такое, там датчик немного настроить надо. А в железе все замечательно читается...
Я уже с такой фигней давно смирился. В реальном железе все равно все работает, а если не работает, то USB-AVR910-Prottoss вам в помощь. Да собственно, от Протеуса и не требуется точного отображения всей вашей программы. Достаточно просто оценить работоспособность, а уж отладка будет в реальном железе... 
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