标题: 51单片机+8*8点阵做的粗糙“流星雨”程序与Proteus仿真图 [打印本页]
作者: 最好看的小胖子    时间: 2021-12-16 19:43
标题: 51单片机+8*8点阵做的粗糙“流星雨”程序与Proteus仿真图
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）

粗糙的流星雨代码，每隔0.3下落一条

单片机源程序如下:
  1. #include<reg52.h>
  2. #include<stdlib.h>
  3. #include<intrins.h>
  4. #define uchar unsigned char
  5. #define uint unsigned int
  6. #define DATA P0

  8. uchar Col_w[]={0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80};
  9. uchar RowLed[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};
  10. uchar DelayTab[]={25,21,16,12,8,5,2,1};
  11. sbit SH595 =P1^2;
  12. sbit ST595 =P1^1;
  13. sbit DA595 =P1^0;

  15. void delayms(uint x)
  16. {
  17.   uint j;
  18.   for(;x>0;x--)
  19.     for(j=0;j<113;j++);
  20. }

  22. void SIPO(uchar dat){
  23.         uchar i;
  24.         SH595 = 0;
  25.         for(i=0;i<8;i++){
  26.                 if(dat&0x80)        DA595 = 1;
  27.                 else                DA595 = 0;
  28.                 dat = dat<<1;
  29.                 SH595=0;_nop_();_nop_();SH595=1;
  30.         }
  31.         ST595=0;_nop_();_nop_();ST595=1;
  32. }

  34. void Shower(uchar Col_wVal){
  35.         uchar i;
  36.         for(i=0;i<8;i++){
  37.                 SIPO(RowLed);
  38.                 P0 = Col_wVal;
  39.                 delayms(DelayTab);
  40.         }
  41.         SIPO(0xff);
  42.         delayms(300);
  43. }

  45. void main(){
  46.         uchar uRandNum;
  47.         while(1){
  48.                 uRandNum=rand()%8;
  49.                 Shower(Col_w[uRandNum]);
  50.         }
  51. }
复制代码

Keil代码与Proteus仿真下载:
仿真代码.7z (37.21 KB, 下载次数: 37)
作者: qzyhlf    时间: 2022-12-17 14:43
oooooooooooooooooooooooo



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1