导航: 老古网老古论坛XMOS公共讨论区XMOS开源项目区单片机程序设计嵌入式系统广告区域
→PC遥控源码放送[明浩]

 *第14542篇: PC遥控源码放送

  
楼 主:明浩 2003年7月17日13:42
 PC遥控源码放送
PC遥控源码放送
 
按此在新窗口浏览图片
今天把这个代码放上来,大家讨论一下有什么不足或可取的地方

/*----------------------------------------
CDLE-A410_Main.c

红外遥控PC功能,PC软件可使用Grider3.2
(SAA3010T电视遥控器)

Copyright 2003/5  
All rights reserved.  

 明浩 E-mail: pnzwzw@cdle.net or pnzwzw@163.com
----------------------------------------*/

#include   <AT892051.h>  

static unsigned char data IRCode[3],IRCON,IRCON2;

void main(void)
{
 unsigned int de;
 void InitCom(unsigned char BaudRate);
 void ComOutChar(unsigned char OutData);
 void CSToOut(void);

 InitCom(6); //设置波特率为9600 1-7波特率300-19200
 EA = 1; //允许CPU中断
 IT0 = 1; //INT0下降沿有效
 EX0 = 1; //开INT0中断;
 do
  { 
   for (de=0; de  <30000; de++)
    P3_7=1;
   for (de=0; de  <30000; de++)
    P3_7=0;
  }
 while(1);
}


//串口初始化 晶振为11.0592M 方式1 波特率300-57600
void InitCom(unsigned char BaudRate)
{
 unsigned char THTL;
 switch (BaudRate)
  {
   case 1: THTL = 64; break; //波特率300
   case 2: THTL = 160; break; //600
   case 3: THTL = 208; break; //1200
   case 4: THTL = 232; break; //2400
   case 5: THTL = 244; break; //4800
   case 6: THTL = 250; break; //9600
   case 7: THTL = 253; break; //19200
   case 8: THTL = 255; break; //57600
   default: THTL = 208;
  }
 SCON = 0x50; //串口方式1,允许接收
 TMOD = 0x21; //定时器1定时方式2定时器0方式1 用在别处可以不用定时器0,TMOD=0x20
 TCON = 0x40; //设定时器1开始计数
 TH1 = THTL;
 TL1 = THTL;
 PCON = 0x80; //波特率加倍控制,SMOD位
 RI = 0; //清收发标志
 TI = 0;
 TR1 = 1; //启动定时器
}

//向串口输出一个字符(非中断方式)
void ComOutChar(unsigned char OutData)
{
 SBUF = OutData; //输出字符
 while(!TI); //空语句判断字符是否发完
 TI = 0; //清TI
}

//定时器0中断处理
void timeint(void) interrupt 1 using 2
{
  unsigned char a;
  TH0=0xFD;
  TL0=0x1E; //设定时值为800us

 if (IRCON  <3)
    {
      if (IRCON2  <8) //每中断一次读一次遥控接收头的状态,每二次为遥控编码中的一个位
        {
          IRCON2++;
        IRCode[IRCON]=IRCode[IRCON]  <  <1; //每读一次放入变量中的二进制的一个位,每次左移一位
        IRCode[IRCON]=IRCode[IRCON] | P3_2; //每八次填满一个字节,一个字节存放遥控编码4个位
        }
      else
        {
          IRCON++; //填满一个字节,指向下一个变量
          IRCON2=0; //计数清零
        }
    }
 else
  {
  TR0 = 0; //关闭定时器
  ET0 = 0; //定时器0中断关闭
  if ((IRCode[1]!=0xFF) && (IRCode[2]!=0xFF))
   {
    for (a=1;a  <3;a++)
     {
      ComOutChar(IRCode[a]); //这两句可通过PC串口软件接收的数据
      ComOutChar(IRCode[a]);
      ComOutChar(IRCode[a]); //共发6个字节正好是软件要求的
     }
   }
  EX0 = 1; //打开
 } 
}

//INT0中断
void INT0Fun(void) interrupt 0 using 2
{
 ES = 0; //串口中断关闭
  EX0 = 0; //外部中断0关闭
  ET0 = 1; //定时器0中断打开
  TH0=0xFD;
  TL0=0x1E; //设定时值为800us
  
 for (IRCON=0; IRCON  <3; IRCON++)
  IRCode[IRCON] = 0;
 IRCON = 0;
 IRCON2 = 0; //计数清零

 TR0 = 1;//开始计数
}



磁动力工作室欢迎您!

  
2楼:明浩 2003年7月17日13:44
 这是网友"剑龙"用汇编写的,他向我请教过
这是网友"剑龙"用汇编写的,他向我请教过,我在他的同意下公开他的源码。
ORG 0000H 
MOV SCON,#50H;工作在串口方式1
MOV PCON,#00H
MOV TMOD,#20H;9600波特率 
MOV TH1,#0FDH
MOV TL1,#0FDH
SETB TR1
  
LOOP1:
  MOV P2,#0FFH
  MOV R0,#50H;第一个数据存储器为50H
  MOV R6,#4;NEC码一共有4个字节的数据

  MOV R1,#25
D1:JB P2.0,$
D2:LCALL YS300US
  JB P2.0,LOOP1
  DJNZ R1,D2
  MOV R1,#12
  JNB P2.0,$
D3:LCALL YS300US
  JNB P2.0,LOOP1
  DJNZ R1,D3;以上为起始码检测

  JB P2.0,$
D5:MOV R7,#8
D4:JNB P2.0,$
  ACALL YS540US
  MOV C,P2.0
  JNC D6
  JB P2.0,$
D6:MOV A,@R0
  RLC A
  MOV @R0,A
  DJNZ R7,D4  
  INC R0
  DJNZ R6,D5;以上为4个字节数据的接收
(分别为2个字节用户码和2个字节地址码)


  MOV P1,#0FFH
  MOV A,50H
  CPL A
  XRL A,51H
  JZ DDD1
  AJMP LOOP1;以上为用户码检测
 DDD1:
  MOV A,52H
  CPL A
  XRL A,53H
  JZ DA0
  AJMP LOOP1;以上为地址码检测
DA0:
  MOV R2,#6;如果检测通过,
就向串口发送6次最后一位地址码

DA1:
  MOV A,53H
  MOV SBUF,A
  JNB TI,$
  CLR TI
  DJNZ R2,DA1
 DA8:AJMP LOOP1;返回


YS540US:  ;延时540微秒
  MOV R5,#1
 DD1:MOV R4,#250
  DJNZ R4,$
  DJNZ R5,DD1
  RET
YS300US:  ;延时300微秒
  MOV R3,#139
  DJNZ R3,$
  RET
 
END
 
注:必须向串口发送6次才行,否则当你重启机子时就不能用了。
    本机的红外解码部分参照"电子制作试验室"
                                                    作者:剑龙


>>>>>>对该主题发表你的看法

本主题贴数2,分页: [第1页]


[上一篇主题]:紧急求教:

[下一篇主题]:三个汇编问题,请教乐心高手