320volt / Mikrodenetleyici Projeleri/

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

Mikrodenetleyici Projeleri, 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ı?

  • 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

    • 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