51单片机实现双机通信(自己整理的)

51单片机实现双机通信(自己整理的)

ID:47323724

大小:70.00 KB

页数:5页

时间:2020-01-10

51单片机实现双机通信(自己整理的)_第页
预览图正在加载中,预计需要20秒,请耐心等待
资源描述:

《51单片机实现双机通信(自己整理的)》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、左边1号机,右边2号机,,功能实现1号机程序#include#defineuintunsignedint#defineucharunsignedcharsbitp10=P1^0;uchara,b,kk;//ucharcoded_c[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff};voiddelay_ms(uchary){uchari;while(y--)for(i=0;i<120;i++);}voidput(ucharx)//发

2、送函数{SBUF=x;//SBUF:串行口数据缓冲器while(TI==0);//等待发送结束TI=0;}voidmain(){ucharj;SCON=0x40;//串行口工作方式1,8位通用异步发送器TMOD=0x20;//定时器1工作方式2PCON=0x00;//波特率不倍增TH1=0xf4;TL1=0xf4;//波特率2400TR1=1;//定时器1开始计时P2=0xc0;while(1){if(p10==0&&j==0){delay_ms(15);while(p10==0);kk=1;P2=0xf9;j=1

3、;}if(p10==0&&j==1){delay_ms(15);while(p10==0);kk=2;P2=0xa4;j=2;}if(p10==0&&j==2){delay_ms(15);while(p10==0);kk=3;P2=0xb0;j=0;}if(kk==1)put('A');if(kk==2)put('B');if(kk==3)put('C');delay_ms(10);}}/****************************************************************

4、*******if(p10==0&&j==0){delay_ms(15);while(p10==0);kk=0;P2=~0xf9;j=1;}if(p10==0&&j==1){delay_ms(15);while(p10==0);kk=1;P2=~0xa4;j=2;}if(p10==0&&j==2){delay_ms(15);while(p10==0);kk=2;P2=~0xc0;j=0;}if(kk==0)put('A');if(kk==1)put('B');if(kk==2)put('C');delay_ms(1

5、00);***********************************************************if(p10==0){delay_ms(15);while(p10==0);number=(number+1)%4;}switch(oper){case0:break;case1:put('A');P2=~0xf9;break;case2:put('B');P2=~0xa4;break;case3:put('C');P2=~0xc0;break;}delay_ms(10);*********

6、***********************************************************if(p10==0){delay_ms(15);while(p10==0);j=(j+1)%3;}switch(j){case0:put('A');P2=~0xf9;break;case1:put('B');P2=~0xa4;break;case2:put('C');P2=~0xc0;break;}delay_ms(10);*/2号机程序。#include#defineuintun

7、signedint#defineucharunsignedcharsbitL1=P2^0;sbitL2=P2^1;//ucharcoded_c[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff};voiddelay_ms(intx){uchari;while(x--)for(i=0;i<120;i++);}voidmain(){SCON=0x50;//串行口工作方式1,8位通用异步发送器TMOD=0x20;//定时器1工作方式2PCON=0x00;/

8、/波特率不倍增TH1=0xf4;TL1=0xf4;TR1=1;P1=0xc0;L1=L2=0;while(1){if(RI){RI=0;switch(SBUF){case'A':L1=~L1;L2=0;P1=0xf9;break;case'B':L1=~L1;L2=~L2;P1=0xa4;break;case'C':L1=0;L2=0;P1=0xb0;bre

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。