RC5 пульт

Готовая электроника для самодельного робота. Уровень от начинающих до опытных конструкторов.

RC5 пульт

Сообщение MiBBiM » 28 ноя 2009, 12:54

Коды кнопок RC5-пульта, имена констант соотвествуют подписям на пульте или красным надписям на рисунке.
pult copy.jpg

Код: Выделить всё
'(
' RC5-коды пульта, расположены построчно
')

Const Ir_adress = 0                                         ' адрес команд

Const Btn_mute = 13
Const Btn_power = 12

' цифровая секция
Const Btn_1 = 1
Const Btn_2 = 2
Const Btn_3 = 3
Const Btn_4 = 4

Const Btn_5 = 5
Const Btn_6 = 6
Const Btn_7 = 7
Const Btn_8 = 8

Const Btn_9 = 9
Const Btn_0 = 0
Const Btn_digits = 10
Const Btn_pp = 14

' секция курсора
Const Btn_menu = 48
Const Btn_up = 32
Const Btn_p_ar_p = 34

Const Btn_left = 17
Const Btn_ok = 59
Const Btn_right = 16

Const Btn_arr_left = 21
Const Btn_down = 33
Const Btn_arr_right = 22

' дополнительная секция
Const Btn_tv = 63
Const Btn_av = 56
Const Btn_sleep = 38
Const Btn_time = 42

Const Btn_rings = 36
Const Btn_first = 35
Const Btn_forw = 30
Const Brn_bw = 46

Const Btn_s = 55
Const Btn_p = 54
Const Btn_f = 50
Const Btn_i = 52

Const Btn_question = 44
Const Btn_stretch = 43
Const Btn_squeeze = 41
Const Btn_normal = 60
Tomorrow will be. Better
Аватара пользователя
MiBBiM
 
Сообщения: 1866
Зарегистрирован: 29 окт 2007, 18:11
Откуда: Пермь
прог. языки: Brainfuck/Basic/Delphi/C++/Lisp/x86asm/JavaScript

Re: RC5 пульт

Сообщение pashteet » 02 дек 2009, 01:30

с недельку назад тоже расшифровывал пульт от телека слева номер команды, справа - изображение на пульте. Для эксперимента взял два пульта, первый - универсальный, второй от телека LG
P1010134.JPG
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: RC5 пульт

Сообщение Skyline » 02 июл 2010, 15:12

Тоже прикупил себе пульт только RC-500. По словам продавца пульты RC-5, RC-6, RC-7 и RC-500 работают по одному протоколу. Хотелось бы знать правда ли это?
Аватара пользователя
Skyline
 
Сообщения: 278
Зарегистрирован: 12 май 2010, 13:30
Откуда: Уральск-Самара
Skype: sky-jap
прог. языки: Bascom AVR Basic
ФИО: Полулях Сергей Валерьевич

Re: RC5 пульт

Сообщение SkyStorm » 02 июл 2010, 15:55

Про RC-500 никогда не слышал, по RC протоколам хорошая страничка.
Никто кроме нас!!!
4Robots.ru - Все для роботов!
Аватара пользователя
SkyStorm
 
Сообщения: 2687
Зарегистрирован: 05 фев 2008, 15:33
Откуда: St. Petersburg - Moscow
Skype: SkyStorm77
ФИО: Костюк Константин Вячеславович

Re: RC5 пульт

Сообщение pashteet » 02 июл 2010, 15:55

Skyline писал(а): Хотелось бы знать правда ли это?

нет, RC-6 отличается от RC-5, об остальном думаю тоже различия есть.
Аватара пользователя
pashteet
 
Сообщения: 930
Зарегистрирован: 28 авг 2009, 12:50
Откуда: Волжский
Skype: pashok0988
ФИО: Павел Петрович

Re: RC5 пульт

Сообщение galex1981 » 02 июл 2010, 16:11

Нет такого протокола RC-500. Возможно это RC-5...
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4363
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: RC5 пульт

Сообщение Skyline » 02 июл 2010, 16:17

SkyStorm писал(а):Про RC-500 никогда не слышал, по RC протоколам хорошая страничка.

А в паре с гугл-переводчиком вообще круто! :good:
pashteet писал(а):
Skyline писал(а): Хотелось бы знать правда ли это?

нет, RC-6 отличается от RC-5, об остальном думаю тоже различия есть.

Это плохо, хотел воспользоваться готовой библой для RC-5.
Это через UART нужно узнать у какой команды какой номер и если совпадет то попробовать подогнать под RC-5?

Добавлено спустя 1 минуту 27 секунд:
galex1981 писал(а):Нет такого протокола RC-500. Возможно это RC-5...

Я про то, что пульт RC-500, работает на протоколе RC-5 или нет!
Аватара пользователя
Skyline
 
Сообщения: 278
Зарегистрирован: 12 май 2010, 13:30
Откуда: Уральск-Самара
Skype: sky-jap
прог. языки: Bascom AVR Basic
ФИО: Полулях Сергей Валерьевич

Re: RC5 пульт

Сообщение Skyline » 08 июл 2010, 14:08

И все-таки пульт RC-500 может работать по протоколу RC-5, по крайней мере команды 1-9. Но вопрос в другом, команды МК принимает, обрабатывает,но только ту которую примет первой,т.е. нажал "Вперед" он поехал и другие команды игнорирует, выключил-включил, нажал "Назад" поехал назад и всё, все последующие команды пофиг. В чем может быть проблема?

Добавлено спустя 1 час 19 минут 7 секунд:
Все вопрос отпал, нужно по особому нажимать, легкое и быстрое нажатие и все заработало как надо!
Аватара пользователя
Skyline
 
Сообщения: 278
Зарегистрирован: 12 май 2010, 13:30
Откуда: Уральск-Самара
Skype: sky-jap
прог. языки: Bascom AVR Basic
ФИО: Полулях Сергей Валерьевич

Re: RC5 пульт

Сообщение Skyline » 08 июл 2010, 22:08

И снова появилась проблема, когда робот находится на весу команды принимаются и выполняются отлично, но стоит опустить его как снова та же проблема, первую команду воспримет и все, на все остальные не реагирует, стоит его поднять любая команда воспринимается на ура. Из-за чего может быть такая вещь?
Аватара пользователя
Skyline
 
Сообщения: 278
Зарегистрирован: 12 май 2010, 13:30
Откуда: Уральск-Самара
Skype: sky-jap
прог. языки: Bascom AVR Basic
ФИО: Полулях Сергей Валерьевич

Re: RC5 пульт

Сообщение galex1981 » 08 июл 2010, 22:15

Мне сдается что либо контакт где то плохой, либо угол направления на ТСОП слишком велик
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4363
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: RC5 пульт

Сообщение Skyline » 08 июл 2010, 22:19

На счет контакта нужно будет все проверить, а насчет угла пульт подносил к самому ТСОПу.
Я вот думаю нагрузка на движки то возрастает, может что-нибудь с этим связанно?
Аватара пользователя
Skyline
 
Сообщения: 278
Зарегистрирован: 12 май 2010, 13:30
Откуда: Уральск-Самара
Skype: sky-jap
прог. языки: Bascom AVR Basic
ФИО: Полулях Сергей Валерьевич

Re: RC5 пульт

Сообщение galex1981 » 08 июл 2010, 22:29

Тогда проще проверь напряжение питания на ТСОПЕ при максимальной нагрузке
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4363
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: Kotlin, Java, C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Re: RC5 пульт

Сообщение Skyline » 09 июл 2010, 09:09

galex1981 писал(а):Тогда проще проверь напряжение питания на ТСОПЕ при максимальной нагрузке

2,5В и этого я так понимаю мало!
Аватара пользователя
Skyline
 
Сообщения: 278
Зарегистрирован: 12 май 2010, 13:30
Откуда: Уральск-Самара
Skype: sky-jap
прог. языки: Bascom AVR Basic
ФИО: Полулях Сергей Валерьевич

Re: RC5 пульт

Сообщение avr123.nm.ru » 09 июл 2010, 09:18

Skyline писал(а): В чем может быть проблема?

В алгоритме наверняка. Там где в коде идет прием кода сделайте включение светодиода на 0,5 сек например - и будете видеть заходит ли прога в это место после приема первой команды.

Светодиод с резистором НАВЕРНО можно и на вход проца от ТСОП подключить, возможно он будет светится обр. пропорц скважности сигнала и можно визуально видеть что от него данные идут на процессор.

Отладка в полный рост. :ROFL:
Читайте !
Аватара пользователя
avr123.nm.ru
отсылающий читать курс
 
Сообщения: 14195
Зарегистрирован: 06 ноя 2005, 04:18
Откуда: Москва

Re: RC5 пульт

Сообщение Skyline » 09 июл 2010, 09:42

Походу проблема реально в программе, не понятно она то работает, то не работает. То принимает все команды на ура, по крайней мере в подвешенном состоянии, то опять врубится по первой и все!
Кстати вот прога, может кто, что сможет подсказать!

Код: Выделить всё
$regfile = "m16def.dat"
$crystal = 16000000
$lib "mcsbyte.lbx"
Config Rc5 = Pind.2
Enable Timer0

Config Pina.0 = Output : Fr Alias Porta.0
Config Pina.1 = Output : Br Alias Porta.1
Config Pina.2 = Output : Bl Alias Porta.2
Config Pina.3 = Output : Fl Alias Porta.3
Config Pinb.0 = Output : Led1 Alias Portb.0
Config Pinb.1 = Output : Led2 Alias Portb.1
Config Pinb.2 = Output : Led3 Alias Portb.2

Dim Address As Byte , Command As Byte

Enable Interrupts

Do

Getrc5(address , Command)
      If Address <> 255 And Command <> 255 Then
       Command = Command And &B01111111
      End If
      If Command = 32 Then : Set Led1
       Gosub Вперёд
       Waitms 100
      Elseif Command = 17 Then : Set Led2
       Gosub Влево
       Waitms 100
      Elseif Command = 16 Then : Set Led3
       Gosub Вправо
       Waitms 100
      Elseif Command = 33 Then : Reset Led1
       Gosub Назад
       Waitms 100
      Elseif Command = 1 Then : Reset Led2
       Gosub Стоп
       Waitms 100
      End If

Loop
Аватара пользователя
Skyline
 
Сообщения: 278
Зарегистрирован: 12 май 2010, 13:30
Откуда: Уральск-Самара
Skype: sky-jap
прог. языки: Bascom AVR Basic
ФИО: Полулях Сергей Валерьевич

След.

Вернуться в МиниБот — национальный класс роботов

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5