标题: （海尔）东软单片机 HR7P153 SOP-16数码管显示程序 [打印本页]
作者: 小李子铁头    时间: 2018-9-12 23:51
标题: （海尔）东软单片机 HR7P153 SOP-16数码管显示程序
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. {

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

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


作者: admin    时间: 2018-9-13 00:13
楼主您好 能分享原理图吗？
作者: PD3IN1    时间: 2021-8-17 18:38
牛X，祝你好运！



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