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

[Gordon Shumway]

Если Вы про код Gordon Shumway, то так и должно быть. Пин кнопки опрашивается в замкнутом цикле, и пока кнопка нажата, состояние светодиода будет меняться каждые 100 мс.

Да, наверное задержка мала. Можно увеличить waitms, а можно добавить проверку на отпускание кнопки: перед end if добавить

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

waitms 200
while pinb.3 = 0
wend

end if

тогда исполнится только одно нажатие, и до отпускания будем в while-wend болтаться.

edm2007, буду вам благодарен, если про debounсe подскажете - есть непонятки...

[BoRtO]

Спасибо. В протеусе работает!

[edm2007]

edm2007, буду вам благодарен, если про debounсe подскажете - есть непонятки...

Запросто. Что интересует?

[BoRtO]

Спойлер

$regfile = "attiny13.dat"
$crystal = 400000
$hwstack = 32
$swstack = 8
$framesize = 16
Config Pinb.3 = Input
Config Portb.1 = Output
Config Portb.2 = Output
Portb.2 = 1
Do
If Pinb.3 = 0 Then
Toggle Portb.1
Toggle Portb.2
Waitms 200
while pinb.3 = 0
Wend
End If
Loop
End

Работает! edm2007, Gordon Shumway Спасибо за помощь!

[Gordon Shumway]

edm2007, буду вам благодарен, если про debounсe подскажете - есть непонятки...

Запросто. Что интересует?

Я как обычно поторопился паниковать Нашел ваше объясненние пару страниц назад. Так что я напишу, что понял, а вы поправите.

DEBOUNCE Pinb.3 , 0 , keylabel [ , SUB]

Сканируем pinb.3 на предмет 0 или 1 (второй параметр), если 0 - идем в keylabel. Не понял про sub, и про то, как задается задержка для debounce.

И, если у нас кнопка по прерыванию, то эту команду мы пишем в подпрограмме прерывания ?

[edm2007]

Все просто, SUB - это переход к подпрограмме. То бишь если Вы не указываете SUB, то переходите просто по метке (GOTO), и дальше можете шагагать куда вздумается. Если же указываете SUB, то при нажатии вызываете подпрограмму (GOSUB). И обязаны завершить вызов командой Return (после чего вернетесь на следующую строку, после опроса кнопки).

Задержка антидребезга задается командой Config Debounce = 100 (в мс). Если не указывать, то выставлена задержка по умолчанию - 25 мс.

В смысле кнопка по прерыванию? Если она на внешнем прерывании, то и команда эта не нужна. Там уже другие заботы (сброс флага прерывания, неизбежного при дребезге и проч.).

[Gordon Shumway]

Все просто, SUB - это переход к подпрограмме. То бишь если Вы не указываете SUB, то переходите просто по метке (GOTO), и дальше можете шагагать куда вздумается. Если же указываете SUB, то при нажатии вызываете подпрограмму (GOSUB). И обязаны завершить вызов командой Return (после чего вернетесь на следующую строку, после опроса кнопки).

Задержка антидребезга задается командой Config Debounce = 100 (в мс). Если не указывать, то выставлена задержка по умолчанию - 25 мс.

Вот теперь ясно, спасибо ! А то с SUB не въехал сначала...

[Radan]

Конкурс-2013? http://bascomavr.3bb.ru/viewtopic.php?id=779#p7970

[vanyap1]

Подскажите пожалуйста, как подключить и сконфигурировать порты мк для дисплея wh4004 с двумя пинами - Е1 и Е2?

[осторожно! леоныч!!!]

Я вот снова с глупым вопросом. Уже голову сломал. Как заставить считать регистр контроллера? На выходе по нажатию кнопок + и - должно увеличиваться или уменьшаться значение в 16-ричном коде. Ну как например у микросхемы 561ие11 или 561ие16. Я набросал чуток но так и не вьехал как правильно сделать. Вроде простая операция

Вот кусочек


Declare Sub Plus1
Declare Sub Minus1

Plus Alias Pinb.6 : Minus Alias Pinb.7

Locate 1 , 1
Lcd "Rx band 1"
Do

If Plus = 0 Then Call Plus1
If Minus = 0 Then Call Minus1
Loop

Plus1:
If Plus = 0 Then N = N + 5
Return


Minus1:
If Minus = 0 Then Portd = 0
Return

Ну не получается.. Ошибок явно куча

[edm2007]

Мда... Судя по коду, Вы явно в дурную компанию попали за последнее время...

[осторожно! леоныч!!!]

Да нет. Я знаю что всё не правильно. Это я пробовал просто. Я до 3-45 утра просидел. Я знаю что плохо учусь. Я уже многое узнал. Но опыта очень мало. Я стараюсь но толку. Хотя многое получается и в протеусе работает и в железе. Мне просто поздно наверное учиться. Возраст то говорит о себе. Мне конечно стыдно но я стараюсь как могу. Желание научиться огромное.

[vanyap1]

Я вот снова с глупым вопросом. Уже голову сломал. Как заставить считать регистр контроллера? На выходе по нажатию кнопок + и - должно увеличиваться или уменьшаться значение в 16-ричном коде. Ну как например у микросхемы 561ие11 или 561ие16...

Так - я полагаю. А по моему вопросу, кто то подскажет?

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

$regfile = "m8515.dat"
$Crystal=4000000
$hwstack=40
$swstack=16
$framesize = 32

Config Porta = Output
Config Portc = Output
Config Pinb.0 = Input
Config Pinb.1 = Input
Plus Alias Pinb.0
Minus Alias Pinb.1
Dim W As Word , W_h As Byte , W_l As Byte


Do
If Plus = 1 Then : Waitms 150 : Incr W : End If
If Minus = 1 Then : Waitms 150 : Decr W : End If
W_h = High(w)
W_l = Low(w)
Porta = W_h
Portc = W_l
Loop
end

В порт А уйдут старшие 8 бит и в порт С - младшие.

[осторожно! леоныч!!!]

Подскажите пожалуйста, как подключить и сконфигурировать порты мк для дисплея wh4004 с двумя пинами - Е1 и Е2?

А можно даташит? Я с дисплеями подружился не плохо вроде.

[vanyap1]

http://www.google.ru/url?sa=t&rct=j&q=& ... oyuiFyzidw

[осторожно! леоныч!!!]

Вот информация. Думаю что не бесполезная http://noc-isu.tti.sfedu.ru/attachments ... %D1%8B.pdf

Вот на "С" но тоже можно будет помозговать http://www.microchip.su/showthread.php?t=13063

А вообще по этому дисплею ничего нет. Не популярен он среди радиолюбителей как я понял.

[осторожно! леоныч!!!]

О! Нашел в протеусе почти этот дисплей! Это уже начало. MDLS40466 да он двухстрочный но можно хотя бы с этими загадочными входами разобраться

[amv2000]

как подключить и сконфигурировать порты мк для дисплея wh4004 с двумя пинами - Е1 и Е2?

Помнится edm2007 как то отвечал, сейчас видно стесняется

Вообще для этого есть библиотека $lib "Lcd4e2.lib". Что в первом что во втором случае 2 линии E и два контроллера HD44780

[осторожно! леоныч!!!]

Ой я вообще виноват. Сейчас именно этот 4 строчный дисплей подключил в протеусе и вывел пару слов. Сейчас всё выложу сюда.

[осторожно! леоныч!!!]

В общем вот набросок проекта

индикатор.rar

Да код смешной но работает. Я так понял что у этого дисплея 2 контроллера, каждый на 2 строки дисплея. В ходе работы это не трудно понять. Думаю разобраться не трудно будет.

В архиве проект для протеуса и прошивка.

(пришлось править. Исходник забыл положить)