#include <reg51.H>
#include <intrins.h>
#define uchar unsigned char
#define uint unsigned int
 
#define _Nop() _nop_();_nop_();_nop_();_nop_();_nop_();_nop_();_nop_()
#define BIAS 0x52 //0b1000 0101 0010 1/3duty 4com
 
#define SYSDIS 0X00 //0b1000 0000 0000 關振系統蕩器和LCD偏壓發生器
#define SYSEN 0X02 //0b1000 0000 0010 開啟系統振盪器
 
#define LCDOFF 0X04 //0b1000 0000 0100 關LCD偏壓
#define LCDON 0X06 //0b1000 0000 0110 開啟LCD偏壓
#define XTAL 0x28 //0b1000 0010 1000 外部接時鐘
#define RC256 0X30 //0b1000 0011 0000 內部時鐘
#define TONEON 0X12 //0b1000 0001 0010 開啟聲音輸出
#define TONEOFF 0X10 //0b1000 0001 0000 關閉聲音輸出
#define WDTDIS 0X0A //0b1000 0000 1010 禁止看門狗
 
//HT1621控制位（液晶模組介面定義，根據自已的需要更改）
sbit HT1621_DAT=P3^4; //HT1621資料引腳
sbit HT1621_CS=P3^2; //HT1621使能引腳
sbit HT1621_WR=P3^3; //HT1621時鐘引腳
sbit P1_5=P1^5;
uchar code
Ht1621Tab[]={0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};
 
//delay us
void Delay(uchar us) //5,7,9
{
 while(--us);
}
 
 
//delay ms
void DelayMS(uint iMs)
{
 uint i,j;
 for(i=0;i<iMs;i++)
 for(j=0;j<65;j++) Delay(1);
}
 
/******************************************************
寫資料函式,cnt為傳送資料位數,資料傳送為低位在前
*******************************************************/
void Ht1621Wr_Data(uchar Data,uchar cnt)
{
 uchar i;
 for (i=0;i<cnt;i++)
      {
       HT1621_WR=0;
       _Nop();
       HT1621_DAT=Data&0x80;
       _Nop();
       HT1621_WR=1;
       _Nop();
      Data<<=1;
     }
 
}
 
/********************************************************
函式名稱：void Ht1621WrCmd(uchar Cmd)
功能描述: HT1621命令寫入函式
全域性變數：無
引數說明：Cmd為寫入命令資料
返回說明：無
 
說 明：寫入命令標識位100
********************************************************/
void Ht1621WrCmd(uchar Cmd)
{
 HT1621_CS=0;
 _Nop();
 Ht1621Wr_Data(0x80,4); //寫入命令標誌100
 Ht1621Wr_Data(Cmd,8); //寫入命令資料
 HT1621_CS=1;
 _Nop();
}
/********************************************************
函式名稱：void Ht1621WrOneData(uchar Addr,uchar Data)
功能描述: HT1621在指定地址寫入資料函式
全域性變數：無
引數說明：Addr為寫入初始地址，Data為寫入資料
返回說明：無
說 明：因為HT1621的資料位4位，所以實際寫入資料為引數的後4位
********************************************************/
void Ht1621WrOneData(uchar Addr,uchar Data)
{
 HT1621_CS=0;
 Ht1621Wr_Data(0xa0,3); //寫入資料標誌101
 Ht1621Wr_Data(Addr<<2,6); //寫入地址資料
 Ht1621Wr_Data(Data<<4,4); //寫入資料
 HT1621_CS=1;
 _Nop();
}
/********************************************************
HT1621測試程式，2008-2-13, 22:41:43
函式名稱：void Ht1621WrAllData(uchar Addr,uchar *p,uchar cnt)
功能描述: HT1621連續寫入方式函式
全域性變數：無
引數說明：Addr為寫入初始地址，*p為連續寫入資料指標，
                  cnt為寫入資料總數
返回說明：無
說 明：HT1621的資料位4位，此處每次資料為8位，寫入資料
           總數按8位計算
********************************************************/
void Ht1621WrAllData(uchar Addr,uchar *p,uchar cnt)
{
 uchar i;
 HT1621_CS=0;
 Ht1621Wr_Data(0xa0,3); //寫入資料標誌101
 Ht1621Wr_Data(Addr<<2,6); //寫入地址資料
 for (i=0;i<cnt;i++)
      {
        Ht1621Wr_Data(*p,8); //寫入資料
        p++;
       }
 HT1621_CS=1;
 _Nop();
}
/********************************************************
函式名稱：void Ht1621_Init(void)
功能描述: HT1621初始化
全域性變數：無
引數說明：無
返回說明：無
版 本：1.0
說 明：初始化後，液晶屏所有欄位均顯示
********************************************************/
void Ht1621_Init(void)
{
 HT1621_CS=1;
 HT1621_WR=1;
 HT1621_DAT=1;
 DelayMS(2000); //延時使LCD工作電壓穩定
 Ht1621WrCmd(BIAS);
 Ht1621WrCmd(RC256); //使用內部振盪器
 Ht1621WrCmd(SYSDIS);
 Ht1621WrCmd(WDTDIS);
 Ht1621WrCmd(SYSEN);
 Ht1621WrCmd(LCDON);
}
 
/**********************************/
void main()
{
 uchar i,j,t;
 Ht1621_Init(); //上電初始化LCD
 DelayMS(1000); //延時一段時間
 while(1){
               Ht1621WrAllData(0,Ht1621Tab,16); //清除1621暫存器資料，暨清屏
               for (i=0;i<32;i++)
                    {
                     t=0x01;
                     for (j=0;j<4;j++)
                          {
                           Ht1621WrOneData(i,t);
                           t<<=1;
                           t++;
                           P1_5=~P1_5;
                           DelayMS(5000);
                          }
                     }
               }
  }