ad转换实验.c

3000TB51配套实验例程 1八段数码管显示实验 等

/* ;	“验证式”	实验十六  A/D转换实验   */
#include <absacc.h>
#include <reg51.h>
#define LEDLen 6
#define MODE 0x03
#define CS0809 XBYTE[0xa000]
#define CAddr XBYTE[0xe100]/* 控制字地址 */
#define OUTBIT XBYTE[0xe101]/*  位控制口 */
#define CLK164 XBYTE[0xe102]/* 段控制口(接164时钟位) */
#define DAT164 XBYTE[0xe102] /* 段控制口(接164数据位) */
#define IN     XBYTE[0xe103] /* 键盘读入口 */


unsigned char LEDBuf[LEDLen];  /* 显示缓冲 */
code unsigned char LEDMAP[] = {  /* 八段管显示码 */
  0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7d, 0x07,
  0x7f, 0x6f, 0x77, 0x7c, 0x39, 0x5e, 0x79, 0x71
};

void Delay(unsigned char CNT)
{
  unsigned char i;

  while (CNT-- !=0)
    for (i=100; i !=0; i--);
}

void DisplayLED()
{
  unsigned char i, j;
  unsigned char Pos;
  unsigned char LED;
  
  Pos = 0x20;  /* 从左边开始显示 */
  for (i = 0; i < LEDLen; i++) {
    OUTBIT = 0;     /* 关所有八段管 */
    LED = LEDBuf[i];
    for (j = 0; j < 8; j++) {   /* 送164 */
     if (LED & 0x80) DAT164 = 1 ; else DAT164 = 0 ;
      CLK164 = CLK164| 0X02;
      CLK164 = CLK164& 0Xfd;
      LED <<= 1;
    }
    OUTBIT = Pos;  /* 显示一位八段管 */
    Delay(1);
    Pos >>= 1;     /* 显示下一位 */
  }
  OUTBIT = 0;     /* 关所有八段管 */
}
unsigned char Read0809()
{
  unsigned char i;

  CS0809 = 0;                /* 起动 A/D */
  for (i=0; i<0x20; i++) ;   /* 延时 > 100us */
  return(CS0809);            /* 读入结果 */
}

void main()
{
  
   unsigned char j;
    unsigned char b;
   CAddr= MODE;
   while(1) {
     LEDBuf[0] = 0X3F;
     LEDBuf[1] = 0X7F;
     LEDBuf[2] = 0X3F;
     LEDBuf[3] = 0X6F;
     LEDBuf[4] = 0X00;
     LEDBuf[5] = 0X00;
    
     //b = Read0809();

     LEDBuf[5] = LEDMAP[Read0809() & 0x0f] ;
     LEDBuf[4] = LEDMAP[Read0809()>>4 & 0x0f] ;
     for(j=0; j<5; j++)
       DisplayLED();   /* 延时  */
   }
}