找回密码
 注册
关于网站域名变更的通知
查看: 169|回复: 3
打印 上一主题 下一主题

TM1640 含51单片机主程序带电路图 驱动共阳5位7断数码管

  [复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2022-7-6 10:06 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
学习51通过TM1640驱动共阳数码管 含51主程序和电路图 烧录不用更改即可显示 模块化编程 方便移值
' ]5 D% R3 W3 `
- b4 K  P  S' L6 z5 U* |2 V单片机源程序如下:; B8 }: F' D. B0 o+ D
  • #include "TM1640.h"
  • /*void delay_ms(int ms)                //@11.0592MHz
  • {
  •         unsigned char i, j;
  •         do{
  •         _nop_();
  •         i = 2;
  •         j = 199;
  •         do
  •         {
  •                 while (--j);
  •         } while (--i);
  •         }while(--ms);
  • } */
  • void TM1640_Start(void)
  • {
  •         TM1640_SCK_HIGH;
  •         TM1640_DOUT_HIGH;
  •         //delay_us(10);
  •         TM1640_DOUT_LOW;
  •         //delay_us(10);
  •         TM1640_SCK_LOW;
  •         //delay_us(10);
  • }
  • void TM1640_Stop(void)
  • {
  •         TM1640_DOUT_LOW;
  •         TM1640_SCK_HIGH;
  •         //delay_us(10);
  •         TM1640_DOUT_HIGH;
  •         //delay_us(10);
  • }
  • void TM1640_Write_Byte(unsigned char date)
  • {
  •         unsigned char i;
  •         unsigned char Temp;
  •         Temp=date;
  •         TM1640_SCK_LOW;
  •         TM1640_DOUT_LOW;
  •         for(i=0;i<8;i++)
  •         {
  •                 TM1640_SCK_LOW;
  •                 //delay_us(2);
  •                 if(Temp&0x01)
  •                 {
  •                         TM1640_DOUT_HIGH;
  •                         //delay_us(10);
  •                 }
  •                 else
  •                 {
  •                         TM1640_DOUT_LOW;
  •                         //delay_us(10);
  •                 }
  •                 TM1640_SCK_HIGH;
  •                 //delay_us(1);
  •                 Temp = Temp >> 1;
  •         }
  •         TM1640_SCK_LOW;
  •   TM1640_DOUT_LOW;
  • }
  • void Write_Com(unsigned char date)//发送命令字
  • {
  •         TM1640_Start();
  •         TM1640_Write_Byte(date);
  •         TM1640_Stop();
  • }
  • /*void Write_DATA(unsigned char add,unsigned char DATA)                //指定地址写入数据
  • {
  •         Write_Com(0x44); //44固定地址 40连续地址
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc0|add);
  •         TM1640_Write_Byte(DATA);
  •         TM1640_Stop();
  • }*/
  • void Write_DATA(unsigned char DATA0 ,unsigned char DATA1,unsigned char DATA2,unsigned char DATA3,unsigned char DATA4,unsigned char DATA5,unsigned char DATA6)                //指定地址写入数据
  • {
  •         Write_Com(0x44); //44固定地址 40连续地址
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc0);
  •         TM1640_Write_Byte(DATA0);
  •         TM1640_Stop();
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc1);
  •         TM1640_Write_Byte(DATA1);
  •         TM1640_Stop();
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc2);
  •         TM1640_Write_Byte(DATA2);
  •         TM1640_Stop();
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc3);
  •         TM1640_Write_Byte(DATA3);
  •         TM1640_Stop();
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc4);
  •         TM1640_Write_Byte(DATA4);
  •         TM1640_Stop();
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc5);
  •         TM1640_Write_Byte(DATA5);
  •         TM1640_Stop();
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc6);
  •         TM1640_Write_Byte(DATA6);
  •         TM1640_Stop();
  • }
  • void cls_TM1640(void)//清屏函数
  • {
  •         unsigned char i;
  •         Write_Com(0x44);//连续地址模式
  •         TM1640_Start();
  •         TM1640_Write_Byte(0xc0);
  •         for(i=0;i<16;i++)
  •                 TM1640_Write_Byte(0x00);
  •         TM1640_Stop();
  • }
  • void init_TM1640(void)
  • {
  •         cls_TM1640();
  •         //Write_Com(0x8c);//亮度0x88~0x8F 已放主程序里面调节
  • }, }5 \0 K0 U& O8 k/ E

5 m8 r  b+ F0 }' J6 ~+ S$ s

该用户从未签到

2#
发表于 2022-7-6 11:10 | 只看该作者
学习学习,(*^▽^*)

该用户从未签到

3#
发表于 2022-7-6 11:25 | 只看该作者
想用stc15w408as驱动tm1640控制2个4位一体共阴数码管怎么写?0 y) \3 I4 x* Z" V9 l7 L, a
想做一个定时时钟!

该用户从未签到

4#
发表于 2022-7-6 13:29 | 只看该作者
见识,学习学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-6-20 12:04 , Processed in 0.078125 second(s), 23 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

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