打印
[51单片机]

求这个程序中(红外对管的测试程序)怎么改可以使有遮挡物时使小灯亮 谢谢啦

[复制链接]
1238|1
手机看帖
扫描二维码
随时随地手机跟帖
跳转到指定楼层
楼主
境羽|  楼主 | 2017-6-23 19:24 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
/******************************************
传感器触发测试
单片机:STC89C52
波特率:9600
*****************************************/
#include <reg52.h>
unsigned char date;
#define uchar unsigned char
#define uint unsigned int
sbit key1=P0^1;

/* 函数申明 -----------------------------------------------*/
void delay(uint z);
void Initial_com(void);

//***********************************************************

/*
********************************************************************************
** 函数名称 : delay(uint z)
** 函数功能 : 延时函数
********************************************************************************
*/
void delay(uint z)
{                                                                                                                                                                                          
    uint i,j;
    for(i=z;i>0;i--)
        for(j=110;j>0;j--);
}


//******************************

//*****串口初始化函数***********

//******************************
void Initial_com(void)
{
EA=1;        //开总中断
ES=1;        //允许串口中断
ET1=1;        //允许定时器T1的中断
TMOD=0x20;   //定时器T1,在方式2中断产生波特率
PCON=0x00;   //SMOD=0
SCON=0x50;   // 方式1 由定时器控制
TH1=0xfd;    //波特率设置为9600
TL1=0xfd;
TR1=1;       //开定时器T1运行控制位

}




//*************************
//**********主函数*********
//*************************
main()
{
         Initial_com();
         while(1)
         {
       
                  if(key1==0)
                {
                        delay();          //消抖动
                        if(key1==0)          //确认触发
                        {       
                                 SBUF=0X01;
                                 delay(200);
                                                        }
          
                }                 
                  if(RI)
                  {
                        date=SBUF;    //单片机接受
                        SBUF=date;    //单片机发送
                        RI=0;
                  }
               
               
          }
}

相关帖子

沙发
a511569143| | 2017-9-13 19:50 | 只看该作者
电路图

使用特权

评论回复
发新帖 我要提问
您需要登录后才可以回帖 登录 | 注册

本版积分规则

1

主题

1

帖子

0

粉丝