標題: 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. }
復(fù)制代碼

Keil代碼與Proteus仿真下載:
仿真代碼.7z (37.21 KB, 下載次數(shù): 37)
作者: qzyhlf    時間: 2022-12-17 14:43
oooooooooooooooooooooooo



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1