Printable View
Hi All,
I need some help in decoding RC-5 IR remote, can somebody help me in getting started with some simple example code as I am still novice. I plan to use pic16f72. I searched forum but did not find sufficient info to start.
Any help would be much appreciated especially with sample code to start.
Thanks in advance
vu2iia
www.vu2iia.blogspot.com
Take a look at:
http://www.picbasic.co.uk/forum/showthread.php?t=1328
http://www.picbasic.co.uk/support/Article.pdf
http://www.picbasic.co.uk/forum/showthread.php?t=6492
to name a few. More if you do a search on the forum...
Ioannis
Thank you Ioannis for you help.
Below is the modified code from Proton to PBP. I made very minor changes and it works very well. Novice may do the modification to suit their needs. Its not my original work.
Original code is available at http://www.picbasic.nl/indexes_uk.htm
modified code is given below.It may contain some unwanted lines ignored.
Code below shows DEC key values on 2x16 LCD. Modify code to suit
PIC of your choice.
************************************************** ***********
'Device pic16f72, Its very cheap
define osc 4
DEFINE LCD_DREG PORTB 'LCD data port
DEFINE LCD_DBIT 4 'LCD data starting bit 0 or 4
DEFINE LCD_RSREG PORTB 'LCD register select port
DEFINE LCD_RSBIT 3 'LCD register select bit
DEFINE LCD_EREG PORTB 'LCD enable port
DEFINE LCD_EBIT 2 'LCD enable bit
DEFINE LCD_RWREG PORTB 'READ/WRITE SELECT PORT
DEFINE LCD_RWBIT 1 'READ/WRITE SELECT BIT
DEFINE LCD_BITS 4 'LCD bus size 4 or 8
DEFINE LCD_LINES 2 'Number lines on LCD
PAUSE 500
lcdout $fe,1,"LCD OK"
pause 500
ALL_DIGITAL
ADCON1 = 7 'disable A/d work digital
;Normal aliases (constants)
Glitch con 52 ;Max 255: Reduction glitches
SYMBOL LED_Time = 500 ;mSec: Error LED's burning time
Ok con 50 ;Max 255: Controltime of the RC5 code is received ok
;Port aliases
IR_Receiver var PORTA.4 ;TSOP1736
ByName var PORTB.0 ;When low the IR-code is given else (unconnected) the System-name and Command-name
; 76543210
TRISA = %11110000
;BYTE
Command VAR BYTE
CommandOld VAR BYTE
Systeem VAR BYTE
SysteemOld VAR BYTE
BD1 VAR BYTE ;Byte Dummy
;BIT
ByNameOld VAR BIT ;When switching between code- and text-mode and sending the same RC5 code then should the LCD not been updated
ToggBit VAR BIT
Value VAR BIT
' ID1 VAR BIT ;bIt Dummy
CLEAR
GOTO Start
;Subroutines
BitOphalen:
Value = IR_Receiver ;Make value 0 or 1 dependent from received IR-code
BD1 = 0
WHILE IR_Receiver = Value AND BD1 < Ok;Level must change within time 'Ok'
BD1 =bd1+1
WEND
IF Ok = BD1 THEN ErrorReceive ;No level-change whitin the 'Ok' time
pauseUS 1100 ;950 - 1600
RETURN
;Mainprogram
Start:
ByNameOld = ByName
BD1 = 0
WHILE IR_Receiver = 1
WEND ;Wait until a IR-signal is received
WHILE IR_Receiver = 0
if BD1 < Glitch then BD1 =bd1+1 'Glitch val 52
WEND
IF BD1 < Glitch THEN GOTO ErrorGlitch
CommandOld = Command ;Save old values for repair in case of a error
SysteemOld = Systeem
pauseUS 500 ;200 - 825; Avoid RC5 header
GOSUB BitOphalen
Command.6 = Value ^ 1 ;Extended bit
GOSUB BitOphalen
ToggBit = Value
GOSUB BitOphalen
Systeem.4 = Value
GOSUB BitOphalen
Systeem.3 = Value
GOSUB BitOphalen
Systeem.2 = Value
GOSUB BitOphalen
Systeem.1 = Value
GOSUB BitOphalen
Systeem.0 = Value
GOSUB BitOphalen
Command.5 = Value
GOSUB BitOphalen
Command.4 = Value
GOSUB BitOphalen
Command.3 = Value
GOSUB BitOphalen
Command.2 = Value
GOSUB BitOphalen
Command.1 = Value
GOSUB BitOphalen
Command.0 = Value
lcdout $fe,1
lcdout $fe,$80,"Sys:", DEC Systeem
lcdout $fe,$c0,"Com:", DEC Command
pause 100
goto start
ErrorGlitch:
'original ckt has LED to indicate error, but I have not used.
'Receive error (No RC5 code or glitch) ' not used
'pause LED_Time ' not used
GOTO Start
ErrorReceive:
Command = CommandOld ;Repair Command and Systeem
Systeem = SysteemOld
GOTO Start
************************************************** **************
Thanks
vu2iia