/*==============================================================*/
/*※※※※※※※※※※※※※系統主文※※※※※※※※※※※※※※*/                   
/*==============================================================*/
#include <at89x51.h>	
/////////////////////////////////
#define LCM_RW P1_1            //定義LCD引腳
#define LCM_RS P1_2
#define LCM_E  P1_0
#define LCM_Data P0
////////////////////////////////
#define Busy 0x80             //用檢測LCM狀態
#define uchar unsigned char
void WriteDataLCM(unsigned char WDLCM);//
void WriteCommandLCM(unsigned char WCLCM,BuysC);//
unsigned char ReadDataLCM(void);//
unsigned char ReadStatusLCM(void);//
void DisplayOneChar(unsigned char X, unsigned char Y, unsigned char DData);//
void DisplayListChar(unsigned char X, unsigned char Y, unsigned char code *DData);//
void display(uchar sec,uchar min,uchar hrs,uchar dte,uchar mon,uchar day,uchar yr);//
void LCMInit(void);//
void Delay5Ms(void);//
void Delay400Ms(void);//
void disp_clk_regs(void);
void Locatexy(char x,char y);//
///////////////////////////////
void displaylistchars_wo(uchar x,uchar y,uchar *zp);

void gundongzm();		//滾動字幕

void ddram_a_z(void);//置DDRAM字符lczhu
void self_definechar(uchar fst_loc,uchar *a);		// 自定義
void display_self(uchar x,uchar y,uchar num);		//自定義
uchar fst_loc[8]={64,72,80,88,96,104,112,120};
uchar self_char[8]={7,5,7};
//////////////////////////////////////////////////
//寫數據//////////////////////////////////////////////////////////////////////////////////
void WriteDataLCM(unsigned char WDLCM)//
{
ReadStatusLCM(); //檢測忙
LCM_Data = WDLCM;
LCM_RS = 1;
LCM_RW = 0;
LCM_E = 0; //若晶振速度太高可以在這后加小的延時
LCM_E = 0; //延時
LCM_E = 1;
}

//寫指令///////////////////////////////////////////////////////////////////////////////////
void WriteCommandLCM(unsigned char WCLCM,BuysC) //BuysC為0時忽略忙檢測//
{
if (BuysC) ReadStatusLCM(); //根據需要檢測忙
LCM_Data = WCLCM;
LCM_RS = 0;
LCM_RW = 0; 
LCM_E = 0;
LCM_E = 0;
LCM_E = 1; 
}

///////////////////////讀數據//////////////////////////////////////////////////////////////
unsigned char ReadDataLCM(void)//
{
LCM_RS = 1; 
LCM_RW = 1;
LCM_E = 0;
LCM_E = 0;
LCM_E = 1;
return(LCM_Data);
}

////////////////////////讀狀態.////////////////////////////////////////////////////////////
unsigned char ReadStatusLCM(void)//
{
LCM_Data = 0xFF; 
LCM_RS = 0;
LCM_RW = 1;
LCM_E = 0;
LCM_E = 0;
LCM_E = 1;
while (LCM_Data & Busy); //檢測忙信號
return(LCM_Data);
}

///////////////////////&&&LCM初始化&&&/////////////////////////////////////////////////////
void LCMInit(void) //
{
LCM_Data = 0;
WriteCommandLCM(0x38,0); //三次顯示模式設置，不檢測忙信號
Delay5Ms(); 
WriteCommandLCM(0x38,0);
Delay5Ms(); 
WriteCommandLCM(0x38,0);
Delay5Ms(); 

WriteCommandLCM(0x38,1); //顯示模式設置,開始要求每次檢測忙信號
WriteCommandLCM(0x08,1); //關閉顯示
WriteCommandLCM(0x01,1); //顯示清屏
WriteCommandLCM(0x06,1); // 顯示光標移動設置
WriteCommandLCM(0x0f,1); // 顯示開及光標設置
}
/////////////////////////確定光標位置//////////////////////////////////////////
void Locatexy(char x,char y)//
{ char temp;
  temp=x&0xf;
  y&=0x1;
  if(y)
    temp|=0x40;
  temp|=0x80;
  WriteCommandLCM(temp,0);
}
////////////////////////按指定位置顯示一個字符//////////////////////////////////
void DisplayOneChar(unsigned char X, unsigned char Y, unsigned char DData)//
{
Y &= 0x1;
X &= 0xF;              //X不能大于15，Y不能大于1
if (Y) X |= 0x40;      //顯示第二行地址碼+0x40;
X |= 0x80;             //算出指令碼
WriteCommandLCM(X, 0); //不檢測忙信號，發送地址碼
WriteDataLCM(DData);
}

///////////////////////按指定位置顯示一串字符////////////////////////////////////
void DisplayListChar(unsigned char X, unsigned char Y, unsigned char code *DData)//
{
unsigned char ListLength;
ListLength = 0;
Y &= 0x1;
X &= 0xF;                      //X不能大于15，Y不能大于1
while (DData[ListLength]>0x20) //若到達字串尾則退出
{
if (X <= 0xF)                  //X小于0xF
{
DisplayOneChar(X, Y, DData[ListLength]); //顯示單個字符
ListLength++;
X++;
}
}
}

//////////////////////5ms延時////////////////////////////////////////////////////
void Delay5Ms(void)//
{
unsigned int TempCyc = 3552;
while(TempCyc--);
}

//////////////////////////400ms延時//////////////////////////////////////////////
void Delay400Ms(void)//
{
unsigned char TempCycA = 5;
unsigned int TempCycB;
while(TempCycA--)
{
TempCycB=5269;
while(TempCycB--);
};
}

/////////////////////////////////自定義字符/////////////////////////////////
void self_definechar(uchar fst_loc,uchar *a)		
{
	uchar i,k;
	for (i=0;i<8;i++,fst_loc++)
	{
		k=a[i];
		WriteCommandLCM(fst_loc,1);		//置CGRAM地址
		WriteDataLCM(k);
	}
}
////////////////顯示自定義字符////////////////////////////
void display_self(uchar x,uchar y,uchar num)
{
	Locatexy(x,y);
	WriteDataLCM(num);
}

//////////////////////////////////////////////////

///////////////////////滾動字幕///////////////////////
void gundongzm()
{
	while(1)
	{
		Delay400Ms();
		Delay400Ms();
		WriteCommandLCM(0x18,1);
		WriteCommandLCM(0x0c, 0); //不顯示光標

	}
}
/////////////////////////////////////////////////

///////////////////顯示字符串 自定義/////////////////
void displaylistchars_wo(uchar x,uchar y,uchar *zp)
{
	unsigned char i,j=0,k;
	if(y)i=x+0x80+64;
	else i=x+0x80;
	for(;zp[j]!=0xff;j++,i++)
	{
		k=zp[j];
		WriteCommandLCM(i, 1); //不檢測忙信號，發送地址碼
		WriteDataLCM(k);
	}
}