Do you have a sample? (IR receiver about RC5, RC5x RC6)

[ogul]

Hi all
Do you know What is IR-RC5 code(and RC5X, RC6).
(It is in Melabs Picbasicpro)
Thanks

[LazBoy]

http://www.ustr.net/infrared/index.shtml

http://www.picbasic.nl/indexes_uk.htm

[ogul]

Lazboy,   
So Thanks

[kalpakchiev]

This works very good with SONY REMOTE Control

'CONSTANTS
PacketLenght    con 11  'Ã�ðîé áèòîâå +1 íà IR ïàêåòà
LowHeader       con 200 'Ìèíèìàëíà äúëæèíà íà IR Header
HighHeader      con 270 'Ìàêñèìàëíà äóëæèíà íà IR Header (Ã�îðì. 240)
ZeroLevel       con 90  'Ã�àä`àçè ñòîéíîñò áèò 1 (Ã�îðì.120)

BUT_MUTE        CON 21
BUT_POWER       CON 22
BUT_DISPLAY     CON 59
BUT_1           CON 1
BUT_2           CON 2
BUT_3           CON 3
BUT_4           CON 4
BUT_5           CON 5
BUT_6           CON 6
BUT_7           CON 7
BUT_8           CON 8
BUT_9           CON 9
BUT_0           CON 10
BUT_1MINUS      CON 13
BUT_2MINUS      CON 14
BUT_SLEEP       CON 55
BUT_SELECT      CON 125
BUT_PLUS        CON 117
BUT_PICMODE     CON 23
BUT_MINUS       CON 118
BUT_VOLPLUS     CON 19
BUT_PROGPLUS    CON 17
BUT_TV_VIDEO    CON 38
BUT_VOLMINUS    CON 20
BUT_PROGMINUS   CON 18
BUT_AB          CON 24
BUT_TIME        CON 44
BUT_TEXTMIX     CON 64

'INPUTS
IR_Sony var PORTA.4

Satrt:
gosub irin
Do something
......
goto start

IRIN: IR_Button=255
  PulsIn IR_Sony,0,IR_Header           ' Measure the header length.
  If IR_Header < LowHeader Then Return   ' Verify a good header         
  If IR_Header > HighHeader Then Return ' If not valid then exit
  For IR_Lp=0 To PacketLenght      ' Do 12-bits
   PulsIn IR_Sony,0,IR_P_Val      ' Receive the IR bit pulse
   If IR_P_Val >= ZeroLevel Then   ' If it's >= 90 then we've received a 1
   IR_Packet.0[IR_Lp]=1         ' So set the appropriate bit of PACKET
   Else                        ' Else
   IR_Packet.0[IR_Lp]=0         ' Clear the appropriate bit of PACKET
   EndIf
  Next IR_Lp                      ' Close the loop
  IR_Button=(IR_Packet & %01111111)+1   ' Mask the 7 BUTTON bits
  If IR_Button=10 Then IR_Button=0
  S_Piezo=Piezo
  Piezo=1:Pause 200:Piezo=S_Piezo':Pause 250
  Return

[Ikaros]

Take a look at this for sample codes

http://www.rentron.com/Infrared_Communication.htm

http://www.rentron.com/Fire-Stick-II.htm