《实验T学号滚动.docx》由会员分享,可在线阅读,更多相关《实验T学号滚动.docx(7页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、1.蜓州藩邑#includereg52. hinc-bIPS。ij -code charsbVOX5U 0x3f。0x6dOx41 Ox5box3f 0x3f。0X66“ 0X060x4f);code charTAB1VOXFB OXFPOXFB) 0XF7) OXEF) OXDF。OXBF)0X7F)EAnl ET71*TR71;THln(655361000256_TLln(655361000M256 while (1)for (Ro - i j - i+)void delay(inc ms) intij;for (ino-ims-i+)for (H0 二1103+)void main(vo
2、id) TMODH0X15?delay(1) “voidr+imel () inr+elrupfTHln (655365。)TL1= (65536-1000)%256;ms+;if (ms=1000)ms=0;if(j=ll)j=l;)2. 数码管显示键盘序号值 #include code chartab = 0x06, 0x5b, 0x4f, Ox66, 0x6d, 0x7d, 0x07, 0x7f, 0 x6f);sbit pio=pro;void main(void)P0二OXFF;TMOD二0X10;EA=1;ET1=1;TH1=(65536-1000)/256;TL1=(65536-
3、1000)%256;while(1)P10=0;if (P3=0X7f)(P2=0XBF;P0=tab0;TR1=1;elseif (P3=0XBF) P2=OXbf ;P0二tabl;TR1=O;elseif (P3=0XDF)(P2=0XbF;P0=tab2 ;TR1;elseif (P3=0XEF) P2二OXbF;PO二tab3;TR1=O;)elseif(P3=0XF7)(P0=tab4;P2=0XbF;TRl=l;elseif(P3=0XFB)(P0=tab5;P2二OXbF;TRl=0;elseif(P3=0XFD)(P0=tab6;P2二0XbF;TRl二1;elseif(P3
4、=0XFE)P0=tab7;P2=0XbF;TRl=0;void time_0() interrupt 3TH1= (65536-1000)/256;TL1= (65536-1000)%256;PIO二、P10;串口发送数据#include unsignedcharTab = 0x3F, 0x06, 0x5B, Ox 4F, 0x66, 0x6D, 0x7D, 0x07, 0 x7F, 0x6F, 0x77, 0x7c, 0x39, 0x5E, 0x79, 0x71);sbit feng=P2 0; void main(void) (char i;SC0N=0x50;TMOD二0X21;TH0
5、=(65536-1000)/256;TLO=(65536-1000)%256;THl=0xE6;TLl=0xE6;TR1=1;while (1)while(RI)i=SBUF;TLO= (65536-1000)%256;Pl=Tabi;feng=feng;voidTimeO(void)interrupt 1RI=0;if (i%2=0)(EA=1;ETO二1;TRO=1;else(EA=O;ETO=O;TRO=O;3. 传感器控制蜂鸣器发响 #include sbit P21 二P0;void main(void)TMOD二0x01;TH0=(65536-100)/256;TL0= (65536-100)%256;EA=1;ETO=1;while (1)if (P2=0xFE)(TR0=0;P21二1;TH0= (65536-1000)/256;else(TimerO(void)interrupt 1TRO=1;(P21=0;THO=(65536-100)/256;)TLO=(65536-100)%256;P0二、P0;void
限制150内