display.c

郑州远博公司生产的单片机B型实验板电路原理图及配套源程序代码

/****************************************************************
74HC164和HC138驱动的6位数码管动态显示的KEIL C语言演示程序（函数模块）
作者：郑州远博科技     王兴民
0371-66949037  0371-67256036  13949105551 
****************************************************************/
#include <config.h>
   
/***************************************************************
74HC164用于输出段数据，参见Dsenddata(Uchar *p)模块
74HC138用于输出位数据
*****************************************************************/
//74HC138接口定义
#define A138      P2_3    //A138 B138 C138 分别对应74HC138的译码输入端A B C
#define B138      P2_2
#define C138      P2_1
code Uchar SZDM[]={0x03,0x9f,0x25,0x0d,0x99,0x49,0x41,0x1f,0x01,0x09,0xff,0x00}; //共阳数码管数字0--9和全灭、全亮的对应值


/****************************************************************************************************/
/*动态扫描显示程序*/
/****************************************************************************************************/
void Display(Uchar *p)           {
     Dsenddata(SZDM[*p]);
     C138=1;B138=0;A138=1;
	 Delayms(3);
     C138=1;B138=1;A138=1;

     Dsenddata(SZDM[*++p]);
     C138=1;B138=0;A138=0;
	 Delayms(3);
     C138=1;B138=1;A138=1;

     Dsenddata(SZDM[*++p]);
     C138=0;B138=1;A138=1;
	 Delayms(3);
     C138=1;B138=1;A138=1;

     Dsenddata(SZDM[*++p]);
     C138=0;B138=1;A138=0;
	 Delayms(3);
     C138=1;B138=1;A138=1;

     Dsenddata(SZDM[*++p]);
     C138=0;B138=0;A138=1;
	 Delayms(3);
     C138=1;B138=1;A138=1;

     Dsenddata(SZDM[*++p]);
     C138=0;B138=0;A138=0;
	 Delayms(3);
     C138=1;B138=1;A138=1;
                          }