Etepic

['****************************************************************
'*  Prog.Adı: IR_ALICI.BAS                                      *
'*  Yazan   : [*****ETE*********]                               *
'*  Notice  : Copyright (c) 2015                                *
'*          : Program hakları ETE'ye aittir izinsiz kopyalanmaz *
'*  Tarih   : 20.06.2015                                        *
'*  Versiyon: 1.0                                               *
'*  Açıklama:                                                   *
'*          :                                                   *
'****************************************************************
@ DEVICE pic16F628
@ DEVICE PIC16F628, WDT_Off
@ DEVICE PIC16F628, LVP_Off
@ DEVICE PIC16F628, PWRT_ON             'Power on timer açık
@ DEVICE PIC16F628, MCLR_Off
@ DEVICE PIC16F628, PROTECT_OFF         'Kod Protek kapalı
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT
'@ __config _BODEN_ON & _BOREN_ON & _CP_ON & _DATA_CP_ON & _PWRTE_ON & _WDT_ON & _LVP_OFF & _MCLRE_OFF & _INTRC_OSC_NOCLKOUT 
DEFINE OSC 4

CMCON = 7
PortA=0:TRISA=%00000001
PORTB=0:TRISB=%00000000

Paket var word 56
TAMAM VAR WORD 58
Tus   Var Byte 60
Cihaz Var Byte 61
IR_AL var BYTE(32)62

I     var Byte 100
Z     var BYTE
Led   var bit
symbol IR_Goz=Porta.0

PAUSE 300

'---------------------------------------------------------------------------
'Tus Kodları: 


BASLA:

      gosub TUSGIR
      IF TUS=64 THEN  'ses +    01000000       
        PORTB.0=1
        GOTO BEKLE
      endif
      
      if tus=25 THEN     'ses- 00011001
         PORTB.1=1
         GOTO BEKLE
      ENDIF
      
      IF TUS=9 THEN   ' seek+ 000001001
         PORTB.2=1
         GOTO BEKLE
      ENDIF              
            
      IF TUS=7 THEN   'seek-  00000111
         PORTB.3=1
         GOTO BEKLE
      ENDIF
              
      PORTB=0
      
      GOTO BASLA
      
      
      
BEKLE:
      TUS=0:CIHAZ=0
      I=0:TAMAM=0:PAKET=0
       
       while I<30  'EN AZ 30 DEFA HEADER SİNYALİ ARAYACAĞIZ. BULURSAK NE ALA BULAMAZ İSE DÖNGÜDEN ÇIKACAĞIZ
         PULSIN IR_GOZ,0,PAKET
'         IF PAKET >200 AND PAKET <250 THEN BEKLE '2,25ms arada bir değer olacaktır
         IF paket>12000 then
           portb=0
           goto basla
         endIF    
         I=I+1
       WEND 
       PORTB=0
       GOTO BASLA

      
TUSGIR:
       TUS=0:CIHAZ=0
       I=0:TAMAM=0:PAKET=0
       
       while I<30  'EN AZ 30 DEFA HEADER SİNYALİ ARAYACAĞIZ. BULURSAK NE ALA BULAMAZ İSE DÖNGÜDEN ÇIKACAĞIZ
         PULSIN IR_GOZ,0,PAKET
         IF PAKET >400 AND PAKET <500 THEN CIK '4,5ms arada bir değer olacaktır
         I=I+1
       WEND  
 
       IF PAKET<400 THEN RETURN
CIK:       
       PAUSEUS 10     'BURADA HEADER YAKALANMIŞ OLCAK ARDINDAN GELEN 32 BİT ALINACAK
       for I=0 to 31
         pulsin IR_Goz,0,IR_AL(I)   'YALNZCA HIGH BİTLERİNİ ALIP SÜRESİNİ KAYIT EDİYORUZ
       next
       
       CIHAZ=0 'ŞİMDİ ADRES (CİHAZ) KODUNU AYIKLIYORUZ İLK 8 BİT ADRES KODU OLACAK
AYIKLA:
       For I=0 to 7
         if IR_AL(I)>70 then CIHAZ.0[I]=1 '700us den büyük ise bu bit 1 dir (1=1690 us dir 0=560us dir)
       next

       TUS=0
       for I=0 to 7
         IF IR_AL(16+I)>70 then TUS.0[I]=1 '16 bit den itibaren gelen 8 bit ise komut bitleri oluyor
       next                                'benzer şekilde 700us den büyük olanı "1" dir kabul ediyoruz
       RETURN
       
END /code]

 gosub TUSGIR
      IF TUS=1 THEN  'AÇMA - KAPAMA        
        PORTB.0=1
        GOTO BASLA
      endif
      
      if tus=2 THEN           
         WHILE TUS=2
           GOSUB TUSGIR
         WEND
         PORTB.0=0
         PORTB.1=1           
         GOTO BASLA
      ENDIF
      
      IF TUS=3 THEN
         PORTB.2=1
         GOTO BASLA
      ELSE
         PORTB.2=0    
      ENDIF              
            
      IF TUS=4 THEN
         PORTB.3=1
         GOTO BASLA
      ELSE
         PORTB.3=0   
      ENDIF              
   
      GOTO BASLA