PIC單片機紅外遙控編碼與解碼的問題

       一般常用的紅外遙控器編碼規(guī)則都差不多，基本上都同6221原理一樣（可在網上找到）

       PIC單片機接收時：


        如果用54，57這類片子做的話有一定的難度（假如要做成實時控制的；比如說你還要驅動顯示，驅動步進電機，在加上幾個按鍵）原因就是這類片子沒有中斷

       例程如下（用來解6221；分頻比為256）

RF:
BTFSC PORTB,2；；B2口用做接收口
GOTO RF1
BTFSS DOWNBIT；；檢測下降沿標制
CLRF RTCCOUNT
BSF DOWNBIT；制下降沿標制
BTFSS UPBIT；；檢測上升沿標制
RETLW 0
BTFSC IDBIT；；檢測碼頭標制
GOTO RF3
MOVLW 2AH
SUBWF RTCCOUNT,0
BTFSS STATUS,0
GOTO RF2
MOVLW 36H
SUBWF RTCCOUNT,0
BTFSC STATUS,0
GOTO RF2
BTFSC IDBIT
GOTO RF3
MOVLW .8
MOVWF LOOP
MOVLW .3
MOVWF LOOPCOUNT
CLRF DATACOUNT
BSF IDBIT
BSF DOWNBIT
BCF UPBIT
CLRF RTCCOUNT
RETLW 0
RF1:
BTFSS DOWNBIT
RETLW 0
BSF UPBIT
RETLW 0

RF2:
BCF DOWNBIT
BCF UPBIT
BCF IDBIT
CLRF RTCCOUNT
RETLW 0 ;遙控接收
RF3:
MOVLW 02H
SUBWF RTCCOUNT,0
BTFSS STATUS,0
GOTO RF4
MOVLW 0CH
SUBWF RTCCOUNT,0
BTFSS STATUS,0
GOTO RF4
GOTO RF2
RF4:
MOVLW 08H
SUBWF RTCCOUNT,0
BTFSC STATUS,0
BSF 3H,0
MOVLW 07H
SUBWF RTCCOUNT,0
BTFSS STATUS,0
BCF 3H,0
RLF DATACOUNT,1
BSF DOWNBIT
BCF UPBIT
CLRF RTCCOUNT
DECFSZ LOOP,1
RETLW 0
MOVLW .8
MOVWF LOOP
DECFSZ LOOPCOUNT
RETLW 0
BSF RFBIT；；制接收完標制
BCF DOWNBIT
BCF UPBIT
BCF IDBIT
CLRF RTCCOUNT
RETLW 0

//////////////////////////////////////////////////////////

TIME:
BTFSC TIMEPD1
GOTO TIME1
MOVF RTCC,0;;(
MOVWF TIMEONE
BSF TIMEPD1
RETLW 0 ;定時查尋
TIME1:
MOVF RTCC,0
SUBWF TIMEONE,0
BTFSC STATUS,2
RETLW 0

BCF TIMEPD1


INCF RTCCOUNT,1

RETLW 0

////////////////////////////////////////////////

        在這里我是用查詢的方式來定時的（RTCCOUNT）只是在解碼時不需要去追求時間精度；我是去查RTCC有沒有發(fā)生跳變如有則表示時間過了 256US---RTCCOUNT加一；這樣做有一個好處---你不必去管RTCC具體的值是多少，（RTCC去做精確的時鐘定時；在這個查詢的子程序中你可以去判斷鍵掃，顯示刷新，驅動步進電機等等）

       相應的C代碼如下：

unsigned char rfcount,
loop,
rftime,//查詢定時器
k;
bit rfbit, //接收完標制
lowbit1,
lowbit2,
downbit,
rfgobit;
unsigned char dispcount[5];//結果
#define rfin RC6
////////////////////////////////////////////////////////////////////////////////
rf( )//遙控接收
{
if(rfbit==0)
{
if((lowbit1==0)&&(rfin==0))
{
downbit=1;
rftime=0;
lowbit1=1;
return;
}
if((lowbit1==1)&&(rfin==1))
{
lowbit2=1;
return;
}
if((lowbit1==1)&&(lowbit2==1)&&(RC6==0))
{
lowbit1=0;
lowbit2=0;
if((rftime>=40)&&(downbit==1))//遙控接收；
{
rfgobit=1;
loop=0;
rfcount=0;
k=1;
rftime=0;
return;
}
rfcount=rfcount+1;
loop=loop+1;
if(rfcount>=31)
{
rfgobit=0;
downbit=0;
rfcount=0;
rfbit=1;
loop=0;
return;
}
if((rftime>=7)&&(rfgobit==1))
{
dispcount[k]=dispcount[k]|0x80;
rftime=0;
if(loop==8)
{
k=k+1;
loop=0;
return;
}
dispcount[k]=dispcount[k]>>1;
return;
}
if((rftime<5)&&(rfgobit==1))
{
dispcount[k]=dispcount[k]&0x7f;
rftime=0;
if(loop==8)
{
k=k+1;
loop=0;
return;
}
dispcount[k]=dispcount[k]>>1;
return;
}
}
}
}

      （查詢子程序同匯編）
假如用中斷的話也可用時間查詢的方法，只是接收口改用帶中斷的口線；RB4--RB7，CCP1，CCP2，都可以。建議不要用RB0（他當按鍵輸入最好用）；

       還有就是解碼時的容陷和誤碼處理（有一種寫法是在解碼移位時利用進位標制C同時移位；我個人認為不太好，因為只要差一位沒接收到，整個接收到的都是誤碼且浪費時間）

{{分頁}} 

      2 再談PIC單片機發(fā)送

       原理是接收的逆過程

例程如下（用來發(fā)6221；分頻比為256）

;///////////////////////////////////////////////////////////////////////////////////////////////
READDIGT:
MOVF SENDLOOP,0
ADDWF PC,1
GOTO SENDC4
GOTO SENDC3
GOTO SENDC2
GOTO SENDC1
GOTO SENDC0
;///////////////////////////////////
SENDC0:
MOVF C4COUNT,0；；讀要發(fā)的數據（假設要發(fā)5個字）
RETURN
SENDC1:
MOVF C3COUNT,0
RETURN
SENDC2:
MOVF C2COUNT,0
RETURN
SENDC3:
MOVF C1COUNT,0
RETURN
SENDC4:
MOVF C0COUNT,0
RETURN
;///////////////////////////////////
SENDBIT:
CLRF TIME
BCF PORTB,1
SENDBIT1:
CLRWDT
MOVLW .35
SUBWF TIME,0
BTFSS STATUS,2
GOTO SENDBIT1
CLRF TIME
BSF PORTB,1
SENDBIT2:
CLRWDT
MOVLW .18
SUBWF TIME,0
BTFSS STATUS,2
GOTO SENDBIT2
CLRF SENDLOOP ;碼頭數據發(fā)送

//////////////////////////////////////////////
SENDBIT3:
CLRWDT
BCF INTCON,7
CALL READDIGT
MOVWF SENDCOUNT
BSF INTCON,7
CALL SENDDIGT
INCF SENDLOOP,1
MOVLW .5
SUBWF SENDLOOP,0
BTFSS STATUS,2
GOTO SENDBIT3
CLRF TIME
BCF PORTB,1
SENDDIGT5:
CLRWDT
MOVLW .2；；加發(fā)一個結束位
SUBWF TIME,0
BTFSS STATUS,2
GOTO SENDDIGT5
BSF PORTB,1
BSF STARTBIT
RETURN
;/////////////////////////////////////////////////////////////////////////////////////////
SENDDIGT:；；實現0和1的發(fā)送
MOVLW .8
MOVWF LOOPSENDCOUNT
SENDDIGTGO:
BTFSS SENDCOUNT,7
GOTO ZERSEND
CLRF TIME
SENDDIGT1:
CLRWDT
BCF PORTB,1
MOVLW .2
SUBWF TIME,0
BTFSS STATUS,2
GOTO SENDDIGT1
CLRF TIME
SENDDIGT2:
CLRWDT
BSF PORTB,1
MOVLW .6
SUBWF TIME,0
BTFSS STATUS,2
GOTO SENDDIGT2
GOTO SENDOVER
ZERSEND:
CLRF TIME
SENDDIGT3:
CLRWDT
BCF PORTB,1
MOVLW .2
SUBWF TIME,0
BTFSS STATUS,2
GOTO SENDDIGT3
CLRF TIME
SENDDIGT4:
CLRWDT
BSF PORTB,1
MOVLW .2
SUBWF TIME,0
BTFSS STATUS,2
GOTO SENDDIGT4
SENDOVER:
RLF SENDCOUNT,1
DECFSZ LOOPSENDCOUNT
GOTO SENDDIGTGO
RETURN

相應的C代碼如下：（C5口是發(fā)送口）

#include
#include
#include
unsigned char dispcount[5];//要發(fā)送的碼值
unsigned char i,k,data,rfbit,zbit,rfgobit;
#pragma interrupt_level 1
interrupt adint(void)
{
if(TMR1IF==1)
{
TMR1IF=0;
TMR1H=0b11111100;
TMR1L=0b00010111;
rfbit=rfbit+1;//發(fā)送指針加一
send( );
}
}
//////////////////////////////////////////
send( )
{
if(rfgobit==0)
{
switch(rfbit)
{
case 1 :
RC5=0;
break;
case 6 :
RC5=1;
break;
case 7 :
RC5=0;
rfgobit=1;//制發(fā)送完標制
rfbit=0;
break;
default :
break;
}
}
if(rfgobit==1)
{
zbit=dispcount[i]&0b00000001;
switch(rfbit)
{
case 1:
RC5=1;
break;
case 2 :
if(zbit==0)
{
RC5=0;
rfbit=0;
rf( );
}
break;
case 3 :
if(zbit==1)
{
RC5=0;
rfbit=0;
rf( );
}
break;
default :
break;
}
}
}
//////////////////////////////////////////////
rf( )
{
k=k+1;
if(k==8)
{
i=i+1;
k=0;
if(i==6)
{
i=1;
rfgobit=0;
TMR1H=0;
TMR1L=0;
RC5=1;
dispcount[1]=0xaa;
dispcount[2]=0xbb;
dispcount[3]=0xcc;
dispcount[4]=0xdd;
dispcount[5]=0xee;
}
return;
}
dispcount[i]=dispcount[i]>>1;
}
//////////////////////////////////////
main( )
{
di( );
TRISC=0b11011111;
TRISA=0b111111;
TRISB=0b11111111;
i=1;
k=0;
TMR1H=0b11111100;
TMR1L=0b00010111;
T1CON=1;
TMR1IE=1;
RC5=1;
PEIE=1;
ei( );
dispcount[1]=0xaa;
dispcount[2]=0xbb;
dispcount[3]=0xcc;
dispcount[4]=0xdd;
dispcount[5]=0xee;
while( 1 )
{
;
}
}
這兩個程序只是一個演示例程

       在實際運用中可變通的把這種發(fā)送與接受用于兩機之間的通訊（好處是移植性好，抗干擾好且一發(fā)一收只要兩根線或一根線）另外如要產生載波（38KHZ）的話可用其輸出口去調制38KHZ發(fā)生源（比如555電路，PWM）來得到，或干脆用軟件來實現（不過難度較大；不如用帶38KHZ的單片機來做）