找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 4447|回复: 2
收起左侧

(海尔)东软单片机 HR7P153 SOP-16数码管显示程序

[复制链接]
ID:349617 发表于 2018-9-12 23:51 | 显示全部楼层 |阅读模式
HR7P153 SOP-16三个数码管显示,共阴极。

单片机源程序如下:
  1. #include <hic.h>
  2. #include <math.h>
  3. #define u8 unsigned char
  4. #define u16 unsigned int
  5. u16 i,a=0;
  6. u8 const SEG7[10]={0x77,0x06,0xb3,0x97,0xc6,0xd5,0xf5,0x07,0xf7,0xd7};
  7. u8 const ACT[3]={0xfb,0xf7,0xef,};
  8. /****************/
  9. void Ram_Clr(void) //ram全清
  10. {
  11.         __asm
  12.   {
  13.         CLR   IAAL;
  14.         CLR   IAAH;
  15.         CLR   IAD;
  16.         INC   IAAL,1;
  17.         JBS   IAAL,6;
  18.         GOTO  $-3;
  19.   }
  20. }
  21. /*****************/
  22. void delay (u16 k)
  23. {
  24.         u16 i,j;
  25. for(i=0;i<k;i++)
  26.     {
  27.     for(j=0;j<100;j++)
  28.         {;}
  29.     }
  30. }
  31. /***************/
  32. void display(void)
  33. {
  34.             PA=SEG7[a%10];
  35.             PB=ACT[0];
  36.             delay(2);
  37.             PA=SEG7[(a%100)/10];
  38.             PB=ACT[1];
  39.             delay(2);
  40.                         PA=SEG7[(a/100)%10];
  41.             PB=ACT[2];
  42.             delay(2);
  43. }
  44. /**************************/
  45. void main()
  46. {

  47.             Ram_Clr();          //RAM初始化
  48.             OSCP = 0x55;                //时钟控制写保护解锁
  49.         OSCC = 0xf0;        //8MHZ
  50.                 while(!SW_HS);      //等待高速时钟切换完成
  51.                 ANS =0xE7;         //设置成数字输出
  52.         PBT=0x00;          //PBT设置成输入状态
  53.                 PAT=0x08;          ////PAT设置成输入状态
  54.                 N_PAU=0x00;         //上弱拉           
  55.             N_PBD=0x00;          //下弱拉
  56.                 while(1)
  57.                 {
  58.            a++;
  59.        for(i=250;i>0;i--)       
  60.                {
  61.                    display();
  62.                }
  63.         if(a==100)
  64.                {
  65.                    a=0;
  66.                    }
  67.                
  68.                 }
  69. }
复制代码

所有资料51hei提供下载:
数码管显示.rar (760 Bytes, 下载次数: 33)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励!

查看全部评分

回复

使用道具 举报

ID:1 发表于 2018-9-13 00:13 | 显示全部楼层
楼主您好 能分享原理图吗?
回复

使用道具 举报

ID:960995 发表于 2021-8-17 18:38 | 显示全部楼层
牛X,祝你好运!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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