[vietanh]

đây là đoan mã ma tui kiếm được trên diễn đàn của ccs của thằng người nhật nichika lasuko ADINOMOTO dùng thử coi, dịnh chế lại làm dk robot bằng tay chắc cũng ok

/******************************************************************/ 
/*               EM LA NGUOI NHAT CHUA VO   HAI CON   MUON YEU 3 CO VIET NAM                                             */ 
/*      Infrared Receiver for SONY 12-bit protocol (SIRC)         */ 
/*                                                                */ 
/*  Compiler:     CCS PCH 3.242                                   */ 
/*  Processor:    PIC18F452 @ 32MHz                               */ 
/*  IR Sensor:    TSOP1738                                        */ 
/*  Circuit:      Standard from TSOP1738 Datasheet, OUT to RB0    */                                          
/*                Requires LCD on port D, LED+resistor on RC2     */ 
/*                LED blinks when a command is recognised.        */ 
/*  Author:       Aurelian Nichita     nicksubzero@yahoo.com      */ 
/*  Based on:     http://www.xs4all.nl/~sbp/knowledge/ir/sirc.htm */ 
/*                                                                */ 
/******************************************************************/ 
 
#define CLKSPEED 32000000 
#include <18F452.h> 
#fuses H4,NOPROTECT,NOOSCSEN,BROWNOUT,BORV45,NOWDT,WDT128,PUT,NOSTVREN,NODEBUG,NOLVP,WRT,NOCPB,WRTB,WRTC,NOCPD,NOWRTD,NOEBTR,NOEBTRB 
#use delay(clock=CLKSPEED) 
#use fast_io(A) 
#use fast_io(B) 
#use fast_io(C) 
#use fast_io(D) 
#use fast_io(E) 
#ignore_warnings none 
 
#zero_ram 
 
/* TIMER0 configuration */ 
#define TIMER0_CONFIG   RTCC_INTERNAL | RTCC_DIV_1 
 
/* Interrupt rate:                     */ 
/* 4/32000000*65536*1 = 8.192 ms       */ 
/*                                     */ 
/*     Start: 3.0 ms (ignored)         */ 
/*     "1":   1.8 ms (14400)           */ 
/*     "0":   1.2 ms  (9600)           */ 
 
#define ONE_MIN  13400 
#define ONE_MAX  15400 
#define ZERO_MIN 8600 
#define ZERO_MAX 10600 
 
#include "lcd.c" 
 
 
/* irframes[0] (start) will be garbage, ignore it...  */ 
int16 irframes[13]; 
int8 ircount = 0; 
int1 irdone = FALSE; 
 
 
#int_ext 
void ext_isr() { 
  if (irdone) return; 
  irframes[ircount++] = get_timer0(); 
  if (ircount >= 13) 
    irdone = TRUE; 
  set_timer0(0); 
  enable_interrupts(INT_TIMER0); 
} 
 
 
#int_timer0 
void timer0_isr() { 
  disable_interrupts(INT_TIMER0); 
} 
 
 
#separate 
int1 decode_ir(int8 &addr, int8 &cmd) { 
  int8 i; 
  int8 mask; 
  int8 bits[13]; 
 
  addr = 0; 
  cmd = 0; 
 
  for (i=1; i<=12; i++) { 
    if ((ONE_MIN <= irframes[i]) && (irframes[i] <= ONE_MAX)) 
      bits[i] = 0x01; 
    else 
      if ((ZERO_MIN <= irframes[i]) && (irframes[i] <= ZERO_MAX)) 
        bits[i] = 0x00; 
      else        // Error 
        return FALSE; 
  } 
 
  mask = 0x01; 
  for (i=1; i<=7; i++) { 
    if (bits[i]) 
      cmd = cmd | mask; 
    mask <<= 1; 
  } 
 
  mask = 0x01; 
  for (i=8; i<=12; i++) { 
    if (bits[i]) 
      addr = addr | mask; 
    mask <<= 1; 
  } 
 
  return TRUE; 
} 
 
 
void start_ir() { 
  memset(irframes, 0x00, sizeof(irframes)); 
  ircount = 0; 
  irdone = FALSE; 
} 
 
 
void main() { 
  int8 addr, cmd; 
  int1 ok; 
 
  delay_ms(100); 
  setup_adc_ports(NO_ANALOGS); 
  setup_adc(ADC_OFF); 
  set_tris_a(0b11111111); 
  set_tris_b(0b11111111); 
  set_tris_c(0b11111011);  // PIN_C2 used for the LED 
  set_tris_d(0b00000000);  // LCD 
  set_tris_e(0b11111111); 
  setup_spi(FALSE);  
  setup_wdt(WDT_OFF); 
 
  lcd_init(); 
  output_bit(PIN_C2, 0); 
  delay_ms(100); 
 
  lcd_putc("\fWaiting..."); 
 
  setup_timer_0(TIMER0_CONFIG); 
  setup_timer_1(T1_DISABLED); 
  setup_timer_2(T2_DISABLED, 255, 1); 
  setup_timer_3(T3_DISABLED | T3_DIV_BY_1); 
  ext_int_edge(0, L_TO_H); 
  enable_interrupts(INT_EXT); 
  enable_interrupts(GLOBAL); 
 
  start_ir(); 
#ignore_warnings 203 
  while(TRUE) { 
#ignore_warnings NONE 
    if (irdone) { 
      ok = decode_ir(addr, cmd); 
      printf(lcd_putc, "\fCmd  %3u\nAddr %3u", cmd, addr); 
      if (!ok) 
        lcd_putc("  ERROR"); 
      else 
        output_bit(PIN_C2, 1); 
      delay_ms(50); 
      output_bit(PIN_C2, 0); 
      start_ir(); 
    } 
  } 
}