roboforum.ru

Технический форум по робототехнике.

Прием команд RC-5

Прием команд RC-5

isak » 19 окт 2007, 16:12

Спаял робота из журнала "Радио" 9, 2006 "Робот с управленеим по RC-5"
Но не работает прием команд из пульта, кнопки барьеры - работают. ИК-приемник TSOP1736 (пробовал и TSOP4836). Может пульт не подходит (пробовал от DVD Symbio, телевизора Samsung, платы Sky Star 2) не знаю как проверить, что пульт использует систему RC-5. Подскажите, как в Протеусе смоделировать излучение команды c пульта.
Вложения
Robot.rar
Проект робота в Протеусе
(57.31 КиБ) Скачиваний: 50
Последний раз редактировалось isak 19 окт 2007, 16:22, всего редактировалось 2 раз(а).

Прием команд RC-5

isak » 19 окт 2007, 16:15

нашел схему пульта и программу на бейсике пульта RC-5 http://www.mcselec.com/index.php?option=com_content&task=view&id=69&Itemid=57. Попробую, может пойдет.

Re: Прием команд RC-5

Myp » 19 окт 2007, 16:20

насчот скайстара и двдюка незнаю
но пульт от самсунга запросто может не подходить
у них там другая частота

Re: Прием команд RC-5

isak » 19 окт 2007, 16:23

Я пробовал обычный фотоприемник (не 36 КГц), тогда пульт от ДВД кое-как реагировал но не совсем правильно

Re: Прием команд RC-5

EdGull » 19 окт 2007, 18:53

для начала ткнись осцилографом на выход ТСОПа в момент нажатия кнопки пульта. Тем самым ты узнаешь на ту ли частоту у тебя ТСОП.

Re: Прием команд RC-5

Myp » 19 окт 2007, 19:02

EdGull писал(а):для начала ткнись осцилографом на выход ТСОПа в момент нажатия кнопки пульта. Тем самым ты узнаешь на ту ли частоту у тебя ТСОП.

или просто можно повесить светодиодик =)

Re: Прием команд RC-5

isak » 22 окт 2007, 10:11

Все получилось! Работает этот саморобный пульт с сайта mcselec.com Распознает все команды, только на нем не хватает кнопок. Не знаю как подключить к микроконтроллеру клавиатурную матрицу 4X4, тоесть как именно в BASCOM-AVR прописать. В старой програме клавиатура 3X4, и в программе написано PortB=Kbd.

Re: Прием команд RC-5

EdGull » 22 окт 2007, 10:54

А прочесть хелп к васику религия на позволяет???!!!

Config Kbd = Portb
Dim B As Byte

Do
B = Getkbd()
Loop
End


Rambler\'s Top100 Mail.ru counter