Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



RC5

Сообщений 31 страница 57 из 57

31

Александр Д. написал(а):

а купить массово ИК-приёмник на эту частоту уже напряжно

TSOP2236 или tsop31236 - вроде на али и ебай всё есть, от 1 штучки или по 5...

Или чтобы устройство было универсальным, надо как в хелпе баскома, собирать голую схему на ик-фотодиоде и самому заниматься модуляцией...

0

32

Столкнулся с такой проблемой, необходимо сделать пульт и приемник.

за пульт взял ATmega8, потому как в ATtiny13 нет таймера 1
За приемник идет ATtiny13, мне всего две команды надо гонять

В приемнике по RC-5 уходит в прерывание, принимает адрес, команды, выходит из прерывания и дальше уже обработка идет.

Сначала столкнулся с проблемой, что после отправки кода RC-5 вывод оставался в высоком состоянии.

Поборол это через  Tccr1a = 0

Далее заметил, что при приеме Тинька уходит в прерывание и из него не возвращается, как-будто не может принять адрес и команду (дешифровать RC-5).

Перепробовал много примеров и не могу понять или протеус не может обработать IRLINK или я не с той деревни.

Перепробовал кучу примеров, с хэлпа и с интернета. Никак не хочет работать. Архив прилагаю.

Помогите разобраться, пожалуйста!

Архив zip на ЯДиске

0

33

надо сперва определиться с задачей
Вам именно RC5 надо принять и расшифровать или просто определить факт нажатия определенной кнопки?
первое - расшифровать протокол, второе - принять некий массив данных и сравнить по условию
я всё выкладывал в теме про FastAVR, поищите у нас на форуме

0

34

Александр Д. написал(а):

Вам именно RC5 надо принять и расшифровать или просто определить факт нажатия определенной кнопки?

тз для начала такое:
пульт на ATmega8, 2 кнопки, отдает адрес 7, команда 1 или команда 2 (соответственно кнопка 1 и кнопка 2).
на принимающей стороне - если адрес 7 то -> если команда 1 то переключаем один пин, если команда 2 то переключаем второй пин, ну или вариации вкл выкл один пин.

0

35

Попал в руки (полезно иногда ходить в гости) пультик примитивный, от чего уже не помнят...
Однозначно RC5 и 36 кГц (сзади стикер наклеен).
Надумал припупырить для своих нужд, но для этого надо знать коды этого пульта (адреса и команды).
Накопал в местных залежах код (ниже), собрал на макетке...
В результате: в Протеусе в "молчании" показывает Адрес=0, Команда=0, а в железе - Адрес=255, Команда=255...
На пульт не откликается (его исправность проверена).

Собственно, интересует не видимость пульта, а кардинальная разница в данных "молчания"...
Хотелось бы услышать мнение All'а... ;)

Код:
$Regfile="m8adef.dat"
$Crystal=8000000
$hwstack=64
$swstack=64
$framesize=64
$baud = 19200

$lib "mcsbyte.lbx"
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.0 , Rs = Portb.1
Cursor Off

Config PORTB.3 =Input
Config Rc5 = PinB.3 , Timer = 1 , Wait = 2000
'Config Rc5 = PinB.3 , Timer = 1 , Wait = 110

Dim Address As Byte , Command As Byte

Enable Interrupts

Locate 1, 1
Lcd "Wait code..."
Waitms 500

Do
GetRC5(Address , Command)
   Locate 1, 1
   Lcd "Address: " ;  Address
   Locate 2, 1
   Lcd "Command: " ; Command
Waitms 500
   Locate 1, 1
   Lcd "Address:     "
   Locate 2, 1
   Lcd "Command:     "
Loop

End

0

36

Вот точно рабочий код, под себя поправите:

Код:
$regfile = "m328pdef.dat"
$crystal = 16000000
$baud = 57600

Config Rc5 = Pind.3 , Wait = 100
Config Timer1 = Timer , Prescale = 1

Enable Interrupts

Dim Address As Byte , Command As Byte
Print "Waiting for RC5..."
Print

Do
Getrc5(address , Command)

If Address < 32 Then
   Command = Command And &B01111111
  Print "Адрес: " ; Address ; " , " ; "Команда: " ; Command
End If

Loop
End

0

37

max написал(а):

Вот точно рабочий код, под себя поправите

Подправил, проверил...
Результат не изменился...
Исправность приемника сомнений не вызывает, выдернут из живой платы ТВ с разбитым кинескопом.
Репу уже счесал полностью... ;)

0

38

У приемника на выходе сигнал смотрели? У приемников тоже декодер несущей есть..

0

39

Yuriy.pv написал(а):

У приемника на выходе сигнал смотрели? У приемников тоже декодер несущей есть..

Дома смотреть нечем, а на работу только 5-го...

А МК разве не фиолетово, какие несущие выдает приемник ?
Думаю, это критично для пары "передатчик-приемник"...

0

40

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

0

41

Yuriy.pv написал(а):

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

Пара меня интересует пока во вторую очередь...
Я хочу выяснить - правду мне в железе показывает или в Протеусе ? ;)
Что выдает TSOP на выходе при отсутствии сигнала пульта, какие "адрес-команда" в численном виде ?

0

42

Путем частичного скрещивания приведенного мной и кода от max удалось-таки добиться одинаковости показаний в Протеусе и в железе - 255/255.
Пульт мы не видим все равно, но это можно объяснить, что приемник не 36 кГц (он из ТВ Aiwa "лохматых годов").
Новый TSOP на 36 кГц смогу заполучить только завтра, если после сегодняшней пурги расчистят дороги... ;)
Так что интригу оставляю открытой... ;)

0

43

ну хоть у кого то новый год со снегом удался))

0

44

Nord написал(а):

Я хочу выяснить - правду мне в железе показывает или в Протеусе ?

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

0

45

Yuriy.pv написал(а):

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

Протеус 7.10 SP0
Bascom 2.0.7.8

0

46

Yuriy.pv написал(а):

ну хоть у кого то новый год со снегом удался))

Эта "удача" - с октября и до начала июня и так из года в год... ;)

Отредактировано Nord (2018-01-03 16:33:42)

0

47

А вот и наша зима - цветы цветут, только пчел не видно, спят наверное...
Фото сделаны сегодня. По правде говоря, уже хочется нормальной зимы.
http://s5.uploads.ru/t/v60aR.jpg
http://s4.uploads.ru/t/ZzCB1.jpg http://s9.uploads.ru/t/JdXlb.jpg
http://s7.uploads.ru/t/E5NaZ.jpg

0

48

Ну да.. нормально, эт где такая зима?

0

49

Yuriy.pv
Центральная (ближе к Югу) Украина, Таврийские степи...

0

50

чет как то аномально, в Полтаве служил вроде как недалеко, зимы нормальные были...

0

51

продам фотки снега. дорого. не гербалайф.  :glasses:

0

52

IDok написал(а):

продам фотки снега. дорого. не гербалайф.

Модераторы нас за оффтоп сейчас нафотографируют... ;)

0

53

Дороги расчистили раньше, но добраться до продаванов смог только сегодня...
Результат: "нулячий" TSOP дает без сигнала пульта "255".
Пульт увиделся, списал его команды.

Самое интересное, что используемый ранее TSOP - тоже стал работать !
Воткнул его после проверки нового в макетку...
И ведь до этого перетыкал его не раз...

0

54

Где можно найти рабочий пример приема сигнала с любого пульта ?

0

55

Здесь есть для NEC, Samsung and Toshiba
https://www.mcselec.com/index2.php?opti … mp;t=13010
Только там регистрация нужна.

0

56

radan написал(а):

Здесь есть для NEC, Samsung and Toshiba
https://www.mcselec.com/index2.php?opti … mp;t=13010
Только там регистрация нужна.

Спасибо , а на русском есть чего ?

0

57

olegkaras написал(а):

Спасибо , а на русском есть чего ?

Русских протоколов, насколько я знаю, в широко распространённых пультах нет.
А если по поводу кода, то код он на любом языке - код. Переводчик в помощь.

0