Здесь можно немножко помяукать :)
https://radiokot.ru/forum/
us5caa писал(а):Подскажите, пожалуйста команду для работы с матричной клавиатурой (Getkbd()), что бы код кнопки выбирался не при нажатии, а при отпускании кнопки.... т.е. надо проверку на отпускание кнопки, как это сделать?
Так Я тоже пробовал.raf65 писал(а):посмотрите как в этой программе реализован переход в сервис, и попробуйте так же.
офф. кстати для прота есть энкодер
Код: Выделить всё
Sub Knoblong()
If Pind.2 = 0 Then
Goto Startknoblong
End If
Goto Endknoblong
Startknoblong:
Nlock1 = 1
Asdf:
If Pind.2 = 0 Then
Nlock1 = Nlock1 + 1
Waitms 100
If Nlock1 = 20 Then
Portd.0 = 0
End If
Goto Asdf
End If
If Pind.0 = 0 Then
Locate 1 , 9
Lcd " PWR OFF"
Waitms 1000
End If
Endknoblong:
End Sub
Проблема решена. Как оказалось, при стирании - черт знает как установились новые фюзы, от и все дела.vanyap1 писал(а):Атмега8515, несколько последних попыток прошивать закончились крахом. Стер микросхему и прошил нормально, после чего заработал. Теперь включил в программе таймер для генерации ШИМ, прошил и мой МК больше не подавал признаков жизни. Конфигурацию фузов не менял, настроен на внешний кварц - 10 МГц.
Оба варианта в Протеусе работают корректно. Когда прошивка залита в контроллер, то при длинном нажатии ничего не происходит вообще. Ни выключает, ни включает.raf65 писал(а):я так понял, второе долгое нажатие должно включить блок, а он не включает? или что то другое
Может не прошла идентификация чипа, а Вы при этом нажали "Program". Вообще я приучился от других програм при программировании сначала ститывать фузы, а затем зашивать программу(был горький опыт поначалу...).vanyap1 писал(а):Проблема решена. Как оказалось, при стирании - черт знает как установились новые фюзы, от и все дела.vanyap1 писал(а):Атмега8515, несколько последних попыток прошивать закончились крахом. Стер микросхему и прошил нормально, после чего заработал. Теперь включил в программе таймер для генерации ШИМ, прошил и мой МК больше не подавал признаков жизни. Конфигурацию фузов не менял, настроен на внешний кварц - 10 МГц.
Микросхема включилась на внешний тактирующий сигнал, а на схеме установлен кварц.
попробуй такvitalkalm писал(а):Оба варианта в Протеусе работают корректно. Когда прошивка залита в контроллер, то при длинном нажатии ничего не происходит вообще. Ни выключает, ни включает.raf65 писал(а):я так понял, второе долгое нажатие должно включить блок, а он не включает? или что то другое
Код: Выделить всё
Sub Knoblong()
If Pind.2 = 0 Then
Nlock1 = Nlock1 + 1
Waitms 100
If Nlock1 <= 10 Then
set Portd.0
Else
reset Portd.0
End If
end IF
If Nlock1 = 20 Then
Nlock1 = 0
end IF
End Sub
А в предыдущем примере вообще ерунда. Нужно по факту нажатия сидеть на жопе и щупать вывод кнопки. И до тех пор пока кнопка удерживается, увеличивать значение счетчика. И уже от значения этого счетчика плясать. А в том примере вообще получится подсчет нажатий и не более того...там кусок кода программы работающей в непрерывном цикле, и пока нажата кнопка увеличивается значение переменной Nlock1edm2007 писал(а):Мда... Что же Вы имели ввиду под "порт отключится" и "порт снова включится"?
Посмотрите в сторону While .. Wend, на этой конструкции можно легко сделать проверку на удержание кнопки.
Лично я вижу не кусок кода а законченую подпрограмму Knoblong, о чем явно говорит Sub. Покажите мне вызов этой подпрограммы. Проверка If .. Then позволяет проверить условие только в один проход. Это же не While .. Wend, которое проверяет "до тех пор пока..."raf65 писал(а):там кусок кода программы работающей в непрерывном цикле
vitalkalm писал(а):Кто может, гляньте, почему в железе не работает код обработки длинного нажатия кнопки, хотя в Протеусе все работает как надо:
If Pind.2 = 0 Then Nlock1 = Nlock1 + 1
Waitms 100
If Nlock1 = 20 Then
If Pind.0 = 1 Then
Portd.0 = 0
Else
Portd.0 = 1
End If
Nlock1 = 0
End If
В архиве полный текст и протеус-проект
Вот я и спрашиваю, как сделать так, чтобы нажатие и удержание кнопки постоянно вызывало подпрограмму Knoblong. Посмотрите на предложеный Вами же код.raf65 писал(а):попробуй так
Код: Выделить всё
Sub Knoblong()
If Pind.2 = 0 Then
Nlock1 = Nlock1 + 1
Waitms 100
If Nlock1 <= 10 Then
set Portd.0
Else
reset Portd.0
End If
end IF
If Nlock1 = 20 Then
Nlock1 = 0
end IF
End Sub
Код: Выделить всё
.....
Do
Call Knoblong
Call U_i_metr
Call Diapason 'вычисление номера реле
Call Akseler
'подпрограмма коэф ускорения енкод
Call Knob
Call U_i_set
Call Isobra ' вывод изображения
Loop
End
....
Код: Выделить всё
$regfile = "attiny2313.dat" ' тип МК
$crystal = 4000000 ' тактовая частота
'------------------------------------------------------
Config Portd.2 = Input ' кнопка
Config Porta.0 = Output ' красный светодиод
Config Porta.1 = Output ' зеленый светодиод
Config Debounce = 50 ' антидребезг
'------------------------------------------------------
Dim Count As Byte ' счетчик удержания кнопки
Reset Porta.0 ' гасим оба светодиода
Reset Porta.1 ' (начальное состояние)
'------------------------------------------------------
Do ' основной цикл
Debounce Pind.2 , 0 , Button , Sub ' опрос кнопки
Loop
'------------------------------------------------------
Button: ' обработка нажатия кнопки
While Pind.2 = 0 ' до тех пор пока кнопка удерживается
Incr Count ' увеличиваем счетчик
Waitms 50 ' задержка
If Count => 20 Then ' если кнопка удерживается 1 секунду
Reset Porta.0 ' гасим красный светодиод
Set Porta.1 ' включаем зеленый
Count = 0 ' обнуляем счетчик
Goto Ext ' уходим
End If ' конец условия
Wend
' если же кнопка удерживалась менее секунды
Reset Porta.1 ' гасим зеленый светодиод
Set Porta.0 ' включаем красный
Count = 0 ' обнуляем счетчик
Ext: ' уходим
Return ' возврат в основной цикл
