《基于单片机报警器程序.doc》由会员分享，可在线阅读，更多相关《基于单片机报警器程序.doc（5页珍藏版）》请在金锄头文库上搜索。
1、#includeunsigned char t,m,s,x,ior,cn; /电子表的各个位信号 x显示字位置控制unsigned int foat,i; / 6位有效数字eg：4.56845 unsigned char ior;unsigned char a5=0,0,0,0,0; /注意5个数数组内是5而不是4sbit start=P34; /启动ADsbit OE=P37; /启动输出数据sbit EOC=P33; /转换结束sbit CLK=P36; /AD始终模拟bit Recdat; code unsigned char ledcod=0x7e,0x12,0xbc,0xb6,0xd
2、2,0xE6,0xee,0x32,0xfe,0xf6;code unsigned char ledcod1=0x7f,0x13,0xbd,0xb7,0xd3,0xE7,0xef,0x33,0xff,0xf7;/带小数点的字形码/*- 定时器初始化子程序-*/void Init_Timer0(void) TMOD |=0x02; TH0=0xd1; TL0=0xd1; /定时0.05ms EA=1; ET0=1; TR0=1; /*- 串口初始化子程序-*/ void InitCom(void) /初始化串口 SCON|=0x50; /0101 0000B，工作方式1,8位UART，波特率可变，
3、允许接收 TMOD|=0x20; /T1工作于方式2自动重装 TCON|=0x40; /定时器1开始计数TR1=1 TH1=250; /T1计数初值 波特率为4800 TL1=250; RI=0;TI=0; /清发送接收标志 ES=1; / 开串口 /*- 显示子程序-*/void display(unsigned char num) switch(num) case 0: ior=foat/10000; /3 a0=ior; P1=ledcod1ior; P0=0x7e; x+; break; case 1: ior=(foat-10000*a0)/1000; P1=ledcodior; a
4、1=ior; /5 P0=0xfd; x+; break; case 2: ior=(foat-10000*a0-1000*a1)/100; P1=ledcodior; a2=ior; /3 P0=0xfb; x+; break; case 3: ior=(foat-10000*a0-1000*a1-100*a2)/10; P1=ledcodior; a3=ior; /1 P0=0xf7; x+; break; case 4: ior=foat-10000*a0-1000*a1-100*a2-10*a3; /6 P1=ledcodior; a4=ior; P0=0xef; x+; break;
5、 case 5: ior=foat-10000*a0-1000*a1-100*a2-10*a3; /6 P1=ledcodior; P0=0xdf; x+; break; default: break; /*- 串口发送- */ void ComOut(void) /向串口发送数据 unsigned char i; for(i=0;i5;i+) SBUF=ai; /发送数据t while(!TI); /等待发送完成 TI=0; SBUF=0x0; while(!TI); /等待发送完成 TI=0; SBUF=0x0; while(!TI); /等待发送完成 TI=0; SBUF=0x0; wh
6、ile(!TI); /等待发送完成 TI=0; /*- 延时函数 -*/void delay(unsigned int i) while(i-); /*主函数*/main()Recdat=0;x=0;P2=0xff; /P2口工作于读，所以先写1，阻断内部的cmosEOC=1; /Init_Timer0();InitCom();while(1) if(i=79) /开始的时候这里没加采样时间（79*0.05=3.94ms），导致始终无法采样到信号 delay(8000); /为了使数码管的数字让人眼能够分辨。增加了这个延时 start=0; start=1; /AD在上升沿复位，在下降沿开始转
7、换（ST端给出一个至少有100ns宽的正脉冲信号 ） start=0; delay(8); /转换时间为20us if(EOC=1) /查询高电平的到来。转换完毕AD0809的EOC会输出一个高电平 OE=1; /打开-将数据发出到单片机的P2口 delay(2); foat=P2*196; OE=0; /输出数据线呈高阻状态 if(Recdat) Recdat=0; ComOut(); /*/*- 定时器中断子程序-*/void Timer0_isr(void) interrupt 1 using 2 i+; CLK=CLK; /为AD转换提供时钟周期 0.05ms 20khz if(i=80) /每0.05ms*50=2.5ms 调用一次显示 i=0; if(x=6) x=0; display(x); /*- 串口中断接收 -*/ void ComINT() interrupt 4 using 2 /中断接收程序 if(RI) /判断是否接收完，接收完成后，由硬件置RI位 cn=SBUF; /读入缓冲区 RI=0; /清标志 Recdat=1; /有数据，建立标志 村民建房委员会应建立村级农房建设质量安全监督制度和巡查制度，选聘有责任心和具有一定施工技术常识的村民作为义务巡查监督员，开展经常性的巡查和督查。5
