roboforum.ru

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

tiny13 низкая скорость и вопросы по ИК и прот. RC5

Программирование микроконтроллеров AVR, PIC, ARM.
Разработка и изготовление печатных плат для модулей.

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение Krik99 » 14 дек 2008, 15:53

Поделитесь плиз исходником декодера на Тини2313 для RC-5. Желательно под Code Vision. Делал на Мега8515 и всё Ок, а под Тини2313 переделать немогу. :)
За ранние спасибо!
Аватара пользователя
Krik99
 
Сообщения: 17
Зарегистрирован: 02 янв 2008, 22:03
Откуда: Одесса
прог. языки: Си

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение RoboTok » 14 дек 2008, 20:15

Увы я не сделал декодер RC-5
Аватара пользователя
RoboTok
 
Сообщения: 1060
Зарегистрирован: 04 фев 2008, 13:18
Откуда: Москва
прог. языки: PHP

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение blindman » 14 дек 2008, 20:36

Krik99 писал(а):. Делал на Мега8515 и всё Ок, а под Тини2313 переделать немогу. :)
За ранние спасибо!

Так выложи свой код, мож кто поможет перенести на тини
Проект [[Open Robotics]] - универсальные модули для построения роботов
Модули Open Robotics можно приобрести в магазине shop.roboforum.ru

Day OFF? You must be pulling my leg! Stop making humor before someone sees you, fool!

Аватара пользователя
blindman
 
Сообщения: 4130
Зарегистрирован: 29 апр 2008, 21:15
Откуда: Хабаровск
прог. языки: C,C++,Assembler,PHP,Javascript,Ruby, SPIN,Java(?)
ФИО: Андрей Юрьевич

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение Krik99 » 14 дек 2008, 21:07

blindman писал(а):Так выложи свой код, мож кто поможет перенести на тини

Тот код который я писал для Мега8515 это не совсем мой, с форума РадиоКота взят. Он довольно не поворотливый и громоздкий, может кто писал для Тини2313 попрошу поделиться. :wink:
Аватара пользователя
Krik99
 
Сообщения: 17
Зарегистрирован: 02 янв 2008, 22:03
Откуда: Одесса
прог. языки: Си

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение EdGull » 14 дек 2008, 21:16

а всё ваша религия дурацкая... :D
на васике какая красота-то... :P

Код: Выделить всёРазвернуть
$regfile = "2313def.dat"                                   ' specify the used micro
$crystal = 4000000                                         ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

'   +5V <---[A Led K]---[220 Ohm]---> Pb.3 for 2313.
' RC5SEND is using TIMER1, no interrupts are used
' The resistor must be connected to the OC1(A) pin , in this case PB.3

Dim Togbit As Byte , Command As Byte , Address As Byte
Command = 12                                               ' power on off
Togbit = 0                                                 ' make it 0 or 32 to set the toggle bit
Address = 0

Do
  Waitms 500
  Rc5send Togbit , Address , Command
  'or use the extended RC5 send code. You can not use both
  'make sure that the MS bit is set to 1, so you need to send
  '&B10000000 this is the minimal requirement
  '&B11000000 this is the normal RC5 mode
  '&B10100000 here the toggle bit is set
  ' Rc5sendext &B11000000 , Address , Command
Loop


Код: Выделить всёРазвернуть
$regfile = "2313def.dat"                                   ' specify the used micro
$crystal = 4000000                                         ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

'use byte library for smaller code

$lib "mcsbyte.lbx"
'This example shows how to decode RC5 remote control signals
'with a SFH506-35 IR receiver.
'Connect to input to PIND.2 for this example
'The GETRC5 function uses TIMER0 and the TIMER0 interrupt.
'The TIMER0 settings are restored however so only the interrupt can not
'be used anymore for other tasks
'tell the compiler which pin we want to use for the receiver input

Config Rc5 = Pind.2

'the interrupt routine is inserted automatic but we need to make it occur
'so enable the interrupts

Enable Interrupts
'reserve space for variables

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

Do
'now check if a key on the remote is pressed
'Note that at startup all pins are set for INPUT
'so we dont set the direction here

'If the pins is used for other input just unremark the next line

'Config Pind.2 = Input
Getrc5(address , Command)
'we check for the TV address and that is 0
If Address = 0 Then
    'clear the toggle bit
    'the toggle bit toggles on each new received command
    'toggle bit is bit 7. Extended RC5 bit is in bit 6
    Command = Command And &B01111111
    Print Address ; "  " ; Command
End If
Loop
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение Krik99 » 14 дек 2008, 21:31

EdGull писал(а):а всё ваша религия дурацкая... :D
на васике какая красота-то... :P

На васике то хорошо, но мне надо на Си.
Аватара пользователя
Krik99
 
Сообщения: 17
Зарегистрирован: 02 янв 2008, 22:03
Откуда: Одесса
прог. языки: Си

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение EdGull » 14 дек 2008, 21:37

ну я ж и говорю, ваша дурацкая религия... :)

Добавлено спустя 2 минуты 16 секунд:
погодь, али ты студент-халявщик? :wink:
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение Krik99 » 14 дек 2008, 21:43

EdGull писал(а):ну я ж и говорю, ваша дурацкая религия... :)

Добавлено спустя 2 минуты 16 секунд:
погодь, али ты студент-халявщик? :wink:

Не боись не студент :). При удачном освоение RC 5 возможна разработка простейшего Умного Дома, под свои нужды.
Аватара пользователя
Krik99
 
Сообщения: 17
Зарегистрирован: 02 янв 2008, 22:03
Откуда: Одесса
прог. языки: Си

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение Krik99 » 01 апр 2009, 16:52

Всё получилось, всем спасибо. Нашол исходник немного подправел и всё ок.
EdGull писал(а):а всё ваша религия дурацкая... :D
на васике какая красота-то... :P

"красота" на васике даже в Тини13 не лезит :)...
Аватара пользователя
Krik99
 
Сообщения: 17
Зарегистрирован: 02 янв 2008, 22:03
Откуда: Одесса
прог. языки: Си

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение galex1981 » 01 апр 2009, 16:54

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

Re: tiny13 низкая скорость и вопросы по ИК и прот. RC5

Сообщение esisl » 25 окт 2012, 12:06

Затолкал Сишный код из примера в VMLAB. Ничего не менял. Почему-то напрочь не работают прерывания :( Где у меня ошибка в ДНК?
esisl
 
Сообщения: 1456
Зарегистрирован: 23 июл 2012, 15:24

Пред.

Вернуться в Микроконтроллеры

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

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

cron