51单片机流星灯c语言源程序_第1页
51单片机流星灯c语言源程序_第2页
51单片机流星灯c语言源程序_第3页
51单片机流星灯c语言源程序_第4页
51单片机流星灯c语言源程序_第5页
已阅读5页,还剩8页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、51单片机流星灯c语言源程序大家自己根据程序中的io定义部分接上灯即可实 现流星灯的效果! !/内控自走程序/CPU: STC12C2052/主频:18. 432MHZ (外部晶振144),内部晶振5MHZ/日期:2008/11/30/ttinclude ;ttinclude ;ttinclude ;ttinclude ;include;/产生随机数 SAND ();ttdefine uchar unsigned charttdefine uint unsigned int#define TO_DAH 160;#define TO_DAL 160;#define Speed_Data 0x2;

2、voiddelay(uint);voidOut_Put (void);void Read_Prol(void);void Read_Pro2(void); voidPwm_Out (void); voidRead_Pro_R(uchar QW_Datai); / /IO 口定义/ / sbitExPortl=P10;sbit ExPort8=Pll;/2 sbitExPort7=Pr2;/8 sbitExPort6=P13;/7 sbit ExPort5=Pr4;/6 sbitExPort4=Pl"5;/5 sbit ExPort 3 二P6; /4 sbitExPort2=Pl 7

3、;/3 sbitExport9=P30;/ sbitExportlO=P31;/ /定义RAM sfr PlM0=0x91;sfrPIMl二0x92;sfr P3M0=0xBl;sfrWDT_CONTR=Oxel;sfr ISP_TRIG=0xe6;sfr SPSTAT=0x84;sfrPCA_PWM0=0xf2;sfrunml=0xf3;sfr unm2=0xf4;sfrunm3=0xf5;sfr unm4=0xf6;sfrunm5=0xf7;sfrunm6=0xf8:bit TimeO_Flag;uchar Speed, TimeO_Dec, Latch, Add_speed;uchar

4、delay_X, Run_S, Run_S1;uint delay_z;ucharDisplay_Data10;/共十六等级/voidtimer_0 (void) interrupt 1/共十六等级TimeO_Flag=l;TimeO_Dec;/ /%J< XX/xrx xjx xjx xjx xjx XjS XjS xtx Zrxrx Tx Tx xjx xjx XjXxTx zTvTx Zt Zt Ztx x? xr xT xT% xTx xTx xTx xr*/ 主函数功能 /主要产生花样数据/ /%J</xrx xjx xjx xjx xjx XjS XjS xtx Zrx

5、rx Tx Tx xjx xjx XjXxTx zTvTx Zt Zt Ztx x? xr xT xT% xTx xTx xTx xrvoidmain(void)/IO 口初始化/*读入 ID 号k|>/Jx xjxxTx zjvxT% xTx xTx x7/P3M0二0x00;memset(Display_Data, 0x00, sizeof(Display_Data);P3Ml=0x03;/产生一个随机字符型数据TM0D=0xl2;TR1=1;delay_z = (THl;O;i-)/短辻(i=4)B_W 二 64;辻(i=3)B_W=35;辻(i=2)B_W=10;辻(i=l)B_

6、W=l;Read_Pro_R(B_W);for (i=Run_S;i>0;i-)Read_Pro_R(0);for(j=0;j;0;i-)/2 长if (i=7)B_W=64;辻(i=6)B_W=63;辻(i=5)B_W=62;if (i=4)B_W=60;辻(i=3)B_W=55;辻(i=2)B_W=40;辻(i=l)B_W=15;/* *-(0)旷0%p歸出 (一一!:0:!人一uq 二!)joj:(M_9)旷0%pp汨 4二(二二!)J!:0WF2(Z=!)J!gg=M_9(£=T)JTS9=M_9(=T)JT9=M_9(g=T)JT申乙/(一一!:0:0二)4。3-(0

7、)旷0%p歸出(一!:0:!人一uq 二!)joj:(M_9)旷0%pp汨voidRead_Pro_R(uchar QW_Datai)Display_Data9二Display_Data8;Display_Data8二Display_Data7;Display_Data7二Display_Data6;Display_Data6二Display_Data5;Display_Data5二Display_Data4;Display_Data4二Display_Data3;Display_Data3二Display_Data2;Display_Data2二Display_Datal;Display_D

8、atal二Display_DataO;Display_DataO=QW_Datal;Out_Put ();Out_Put ();Out_Put ();Out_Put ();Out_Put ();Out_Put ();*/花样输岀功能/ 对10MS到进行处理 /K K/xT xTx xjx xjx xjx Xj xTx xT xTxrx xrx xT>Tx7 7 xjvXr Xr xTx x7 x7Tx xTx xTx xTx x7void Out_Put(void)uchar S;bit TimeO_Zear;for(S=0;S;Latch) ExPortl二1; else ExPort

9、l二0;if (Display_Datal>Latch)ExPort2=l; elseExPort2=0;if (Display_Data2>Latch)ExPort3=l; elseExPort3=0;if (Display_Data3>Latch)ExPort4=l; elseExPort4=0;if (Display_Data4>Latch)ExPort5=l; elseExPort5=0;if (Display_Data5>Latch)ExPort6=l; elseExPort6=0;if (Display_Data6>Latch)ExPort7=l; elseExPort7=0;if (Display_D

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论