设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › 51单片机呈现心型程序-带效果图
返回列表 发新帖
查看: 1511|回复: 0
收起左侧

51单片机呈现心型程序-带效果图

[复制链接]
ID:650785 发表于 2019-11-27 18:16 | 显示全部楼层 |阅读模式
0.jpg

单片机源程序如下:
  1. #include "reg51.h"       
  2. #include "intrins.h"

  4. typedef unsigned int u16;         
  5. typedef unsigned char u8;


  8. sbit SRCLK=P3^6;
  9. sbit RCLK=P3^5;
  10. sbit SER=P3^4;
  11. //0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01              
  12. //0xff,0xc3,0xfb,0xfb,0xf7,0xf7,0xf7,0xf7            

  14. //0x
  15. //0xf7,0xf7,0xf7,0xf7,0xfb,0xfb,0xc3,0xff
  16. //0x01,0x02,0x04,0x08,0x08,0x10,0x20,0x40

  18. ledduan[]={0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80};         
  19. ledwei[]={0xff,0xc9,0xb6,0xbe,0xdd,0xeb,0xf7,0xff};
  20.       

  22. void delay(u16 i)
  23. {
  24.         while(i--);       
  25. }

  27. void LED1(u8 dat1)
  28. {
  29.         P0=dat1;
  30. }

  32. void Hc595SendByte(u8 dat)
  33. {
  34.         u8 a;

  36.         SRCLK = 1;
  37.         RCLK = 1;

  39.         for(a=0;a<8;a++)                 
  40.         {
  41.                 SER = dat >> 7;                 //
  42.                 dat <<= 1;

  44.                 SRCLK = 0;                         //
  45.                 _nop_();
  46.                 _nop_();
  47.                 SRCLK = 1;       
  48.         }
  49.         RCLK = 0;
  50.         _nop_();
  51.         _nop_();
  52.         RCLK = 1;
  53. }

  55. void main()
  56. {       
  57.         u8 i=0;
  58.         while(1)
  59.         {
  60.            for(i=8;i>0;i--)
  61.            {
  62.                            LED1(~ledduan[i]);
  63.                                 Hc595SendByte(~ledwei[i]);
  64.                          delay(100) ;
  65.                                 
  66.        Hc595SendByte (0x00);
  67.                           

  69.            }
  70.                   break;       

  72.            }
  73.            while(1)
  74.              for(i=0;i<8;i++)
  75.            {
  76.                            LED1(~ledduan[i]);
  77.                                 Hc595SendByte(~ledwei[i]);
  78.                          delay(100) ;
  79.                                 
  80.       Hc595SendByte (0x00);
  81.                                                          //        break;       
  82.         }
  83. }
复制代码

所有资料51hei提供下载:
51单片机-心型.rar (2.31 MB, 下载次数: 6)
51单片机程序

相关帖子
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表