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

[dimon-790]

Еще зависит от версии Баскома. Вы какой используете? Последние версии не очень стабильны, к сожалению...

1.11.9.5 пробовал 1.11.9.0 тож самое а вы какую ?

[kip96]

Привет котам!
Подскажите пожалуйста, конфигурация прерывания lowlevel -программа будет стоять, пока на INT будет "0" ?

[dimon-790]

вот например:

Config Int0 = lowlevel
On Int0 Perepad'подпрограмма обслуживания прирываний '
Enable Interrupts '
Enable Int0

[kip96]

Если так:

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

Config Int0 = lowlevel 
 On Int0 Perepad'подпрограмма обслуживания прирываний ' 
 Enable Interrupts ' 
 Enable Int0
  perepad:
  set Led       ' Моргаем светодиодом
  wait 1         '
  reset Led    '
  wait 1         '
  return         '

При низком уровне на Int0 будет постоянно моргать светодиод?
В протеусе чёт он один раз моргнул и пошла программа дальше

[Igor_67]

Чтобы программа не "тупила" и четко определяла уровень сигнала на ноге, надо делать ногу (int0) с "подтяжкой" на + питания. Тогда при наличии лог. 1 на ноге, подпрограмма обслуживания прерывания не обрабатывается, а сразу идет дальше, так как установлен lowlevel, а при наличии лог. 0 - будет обрабатываться и переходить по адресу, указанному в команде On Int0 ... Или в обработчике прерывания пропишите условие проверки порта, конструкция If - Else - End If. И зачем в прерывании такие огромные задержки??? Так делать нельзя.

[kip96]

И зачем в прерывании такие огромные задержки??? Так делать нельзя

да нет, это просто пример
Реально хочу сделать, чтобы при нажатии кнопки загорелся светодиод, и горел пока не отпустишь, а при отпускании горел ещё пару минут и погас.
Интересно, что в протеусе с аттини 2313 lowlevel и falling работают одинаково, как последняя, а ставлю ат90с2313 - всё ок!
Про If - Else - End If всё понял, спасибо, попробую!

[dimon-790]

Люди, подкиньте исходник плз. для приёма шарповского ик пульта. Пультик маленький 7 кнопочек , в виде брелока кажись от телека .

[Igor_67]

что в протеусе с аттини 2313 lowlevel и falling работают одинаково, как последняя, а ставлю ат90с2313 - всё ок!

Ну все правильно! В тини2313 надо еще выключить делитель (CKDIV8 fuse) и все встанет на свои места...

[kip96]

Не помогло

[Секретный кот]

Первый раз слышу, чтобы CKDIV8 имел какое-то отношение к обработке прерываний

[VladI+]

BASCOM AVR 1.11.9.8
http://www.onlinedisk.ru/file/318619/

[Igor_67]

Первый раз слышу, чтобы CKDIV8 имел какое-то отношение к обработке прерываний

Да, согласен, это я лоханулся с ответом . В протеусе, скорее всего это не будет влиять, в железе - возможно, хотя тож навряд-ли...

[Секретный кот]

BASCOM AVR 1.11.9.8

О! Благодарю! С таблеточкой?

[kip96]

что в протеусе с аттини 2313 lowlevel и falling работают одинаково, как последняя, а ставлю ат90с2313 - всё ок!

Вообщем проверил в железе - всё ОК! Работает как положенно!
Видимо Протеус глючит (или может я чёт не то нажал, хотя чё-там можно не то нажать?) Всем спасибо!

[VladI+]

BASCOM AVR 1.11.9.8

О! Благодарю! С таблеточкой?

Да.

[max50]

Люди, подкиньте исходник плз. для приёма шарповского ик пульта. Пультик маленький 7 кнопочек , в виде брелока кажись от телека .

Пульт может быт RC5. Это можно легко проверить:

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

$regfile = "m8def.dat"
$crystal = 8000000 
Config Rc5 = Pind.2
Enable Interrupts                                           'Разрешаем прерывания
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2
Dim Address As Byte                                         'байт адреса
Dim Command As Byte                                         'байт команды
Cursor Off                                                  'Выключить курсор
Cls

Do                                                          'Основной цикл
Getrc5(address , Command)
If Address = 0 Then                                   'Адрес телевизора
Command = Command And &B01111111
Locate 1 , 1
Lcd "Adr.: " ; Address ; " Cmd: " ; Command        'принятые адрес и команда
End If
Loop
End                                                         'Конец основного цикла

А вот здесь есть как самому замутить пульт RC-5 из брелока:
http://g-a-v.pisem.net/remote.htm

[Секретный кот]

Люди, подкиньте исходник плз. для приёма шарповского ик пульта.

Пульт может быт RC5.

Едва ли.

[ibiza11]

вот здесь куча протоколов ИК пультов http://www.sbprojects.com/knowledge/ir/sharp.htm

[Igor_67]

VladI+ , а можно Баском с онлайндиск залить на другой обменник, а то у меня он не хочет с него качаться...?

[max50]

Пульт может быт RC5.

Едва ли.

У меня есть пульт-брелок LG и он RC5. Фото приллагается.