欢迎来到天天文库
浏览记录
ID:9014874
大小:17.00 KB
页数:3页
时间:2018-04-15
《基于at89s52医院输液监控系统程序主机》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、#include#defineucharunsignedchar//voidsetmessage(uchar,uchar);ucharData[10],num=0,Keyone=0;ucharADD_Speed[3];ucharcodetable[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x00};voiddisplay(uchar);voiddelay(uchar);voiddelay(ucharz){ucha
2、ry;for(;z>0;z--)for(y=100;y>0;y--);}voiddisplay(ucharADD_Speed[3]){uchari,a,b;a=0x00;for(i=0;i<3;i++){P1=a;P2=0x00;b=ADD_Speed[i];P2=table[b];delay(2);a++;}}voidmain(){uchari;TMOD=0x20;TL1=0xfd;TH1=0xfd;PCON=0x80;TR1=1;SCON=0xd0;ES=1;EA=1;while(1){//
3、setmessage(0x04,0x02);for(i=0;i<10;){ADD_Speed[0]=Data[i]/100;ADD_Speed[1]=(Data[i]%100)/10;ADD_Speed[2]=Data[i]%10;if(Keyone==1)i++;elsebreak;}display(ADD_Speed);}}/*voidsetmessage(ucharaddress,ucharcommand){ucharaa;while(1){TB8=1;SBUF=address;//P2=
4、SBUF;while(TI!=1);TI=0;while(RI!=1);RI=0;if(address==SBUF){TB8=0;SBUF=command;while(TI!=1);TI=0;while(RI!=1);RI=0;aa=SBUF;if(aa==0x02){do{SBUF=0xfe;while(TI!=0);TI=0;SBUF=0xfe;while(TI==0);TI=0;while(RI==0);RI=0;}while(SBUF!=0);TB8=1;}}}}*/voidRe_Da(
5、)interrupt4{RI=0;ES=0;if(num>10)gotoret;while(1){Data[num]=SBUF;while(RI==0);RI=0;if(SBUF==Data[num]){SBUF=0x00;while(TI==0);TI=0;break;}else{SBUF=0xff;while(TI==0);TI=0;}}num++;ES=1;ret:;}
此文档下载收益归作者所有