Notlar..

320volt / Mikrodenetleyici Projeleri/

PIC16F84A Sony Philips RC5 IR Kumanda Kod Çözücü

Mikrodenetleyici Projeleri, blog arşivinde PIC16F84A SONY PHILIPS RC5 IR KUMANDA KOD ÇÖZÜCÜ konusu "IR* kod cözücü* microchip pic projeleri* philips kumanda* PIC16F84* proton* rc5* sony kumanda* " ile etiketlendi

Sony ve Philips RC5 protokolü ile çalışan uzaktan kumandaların kodlarını öğrenmek için kullanışlı bir devre devre üzerinde porta.3 pini 1 olursa sony 0 olursa RC5 philips kodlarını çözer alınan 16 bitlik datanın 8 biti aygıt kodu diğer 8 biti ise okunan tuş değeridir çeşitli kumandalarla denedim devre gayet güzel çalışıyor. Kodlar proton ile yazılımıştır. Protonun hazır IR okuma komutları kullanılmıştır.

Çalışma Görüntüleri

sony-rc5-kumanda-kod-okuma-2 sony-rc5-kumanda-kod-okuma-3

sony-rc5-kumanda-kod-okuma-4 sony-rc5-kumanda-kod-okuma-5

Projenin .bas .hex Dosyaları sony-philips-rc5-kod-cozucu

Devre Şeması

sony-pic16f84a-proton

Yazılım içeriği


'****************************************************************
'*  Name     : SONY_PHILIPS.BAS                                  *
'*  Designer : Erhan YILMAZ (tekniker_erhan)                     *
'*  Notice   : Designed by Erhan YILMAZ    All rights free       *
'*           :  Tüm hakları serbesttir.                          *
'*  Date     : 04/10/2008                                        *
'*  Version  : 1.0                                               *
'*  Notes    :                                                   *
'*           :                                                   *
'****************************************************************
@CONFIG_REQ
@__CONFIG  CP_OFF & PWRTE_OFF & WDT_OFF & XT_OSC 

Device = 16F84A
XTAL = 4			
TRISB = %00000001
TRISA = %11111011
Declare LCD_DTPIN PORTB.4 
Declare LCD_ENPIN PORTB.3 
Declare LCD_RSPIN PORTB.2 
Declare LCD_INTERFACE 4 
Declare LCD_LINES 2 

Symbol SEL  = PORTA.3
Symbol LED = PORTA.2
SONYIN_PIN PORTB.0
RC5IN_PIN PORTB.0
High LED
Dim IR_Data As Word
Dim SYS_Data As IR_Data.HighByte
Dim COM_Data As  IR_Data.LowByte

Cls
Print At 1,1,"SONY/RC5 DECODER"
DelayMS 2000

SONY:
Print At 1,1,"SONY KOD OKUMA"
Repeat
If SEL = 0 Then Cls:GoTo PHILIPS
IR_Data = SonyIn
Until COM_Data <> 255
LED = 0
Print At 2,1,"AYGIT=",HEX2 SYS_Data," ","KOD=",HEX2 COM_Data
DelayMS 100
LED = 1
GoTo SONY

PHILIPS:
Print At 1,1,"RC5 KOD OKUMA"
Repeat
If SEL = 1 Then Cls:GoTo SONY
IR_Data = RC5In
Until COM_Data <> 255
LED = 0
Print At 2,1,"AYGIT=",HEX2 SYS_Data," ","KOD=",HEX2 COM_Data
DelayMS 100
LED = 1
GoTo PHILIPS
End
  • selcuk74

    Teşekkür ederim güzel bir çalışma ama devre şemasını büyük olarak koyma imkanınız varmı?

  • http://320volt.com gevv

    Hatayı fark edemedim geç cevap veriyorum :( kusuruma bakmayın resim bağlantısı düzenlendi

  • h. ibrahim

    proje güzel fakat sistem kumandayı kolay kolay okumuyor . kumandanın tuşuna basılı tutarak kumanda pili çıkarılıp takılınca hızlı bir şekilde o zaman okuyor ama tekrar aynı işlem yapılınca farklı kod okuyor gözüküyor hata nedir acaba .

  • ulaş serhat

    hocam ben pice hexi yüklemiyorum bas dosyasını açıp hex lemeye çalıştım fakat onuda beceremedim sorun bendemi yardımcı olursan seinirim

    • http://320volt.com gevv

      verilen dosyada hex kodu var tekrar hexe çevirmenize gerek yok yükleyemiyorsanız programlayıcınız da bir sorun olabilir ya da bir şeyleri yanlış yapıyorsunuz

      detay vermediğiniz için anca bu kadar yardımcı olunabilir

  • mert53

    aynı devreyi pbp ile düzenleyip çalıştırmayı denedim pek bir sonuç alamadım. gördüğüm kadarıyla çok basit bir kod içeriyor. test eden arkadaş varmı acaba