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

dimon-790

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

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 - всё ок! :cry:

Про If - Else - End If :idea:

всё понял, спасибо, попробую!

dimon-790

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

Igor_67

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

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

kip96

Не помогло :cry:

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

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

VladI+

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

Igor_67

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

Да, согласен, это я лоханулся с ответом :oops:

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

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

VladI+ писал(а):BASCOM AVR 1.11.9.8

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

kip96

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

Вообщем проверил в железе - всё ОК! Работает как положенно! :music:

Видимо Протеус глючит

(или может я чёт не то нажал, хотя чё-там можно не то нажать?) Всем спасибо! :beer:

VladI+

Секретный кот писал(а):
VladI+ писал(а):BASCOM AVR 1.11.9.8

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

Да.

max50

dimon-790 писал(а):Люди, подкиньте исходник плз. для приёма шарповского ик пульта. Пультик маленький 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

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

max50 писал(а):
dimon-790 писал(а):Люди, подкиньте исходник плз. для приёма шарповского ик пульта.

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

Едва ли.

ibiza11

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

Igor_67

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

max50

Секретный кот писал(а):
max50 писал(а):
dimon-790 писал(а):Люди, подкиньте исходник плз. для приёма шарповского ик пульта.

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

Едва ли.

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