#include<reg51.h>
#include <intrins.h>
#define Busy    0x80  //用于檢測LCM狀態字中的Busy標識
#define LCM_Data  P0 
#define uchar unsigned char
#define uint  unsigned int
#define ulong unsigned long


extern void cs_t(void);
extern void delay(uint);



void LCMInit(void);
void DisplayOneChar(uchar X, uchar Y, uchar DData);
void DisplayListChar(uchar X, uchar Y, uchar  *DData);
void Delay5Ms(void);
void Delay100Ms(void);

void WriteDataLCM(uchar WDLCM);
void WriteCommandLCM(uchar WCLCM,BuysC);


data float distant=0.0;
uchar ReadDataLCM(void);
uchar ReadStatusLCM(void);
uchar  cdle_net[] = {"--Daoche_Leida--"};
uchar  email[] = {"Juli:"};
uchar  cls[]={"         "};
uchar DIS[7];
data ulong time;
float distant;
sbit LCM_RS=P1^1;  //定義LCD引腳
sbit LCM_RW=P1^2; 
sbit LCM_E=P1^3; 
sbit P10=P1^0;


data uchar flag;

void zhuanhuan(float juli)
{
unsigned long juli1;
juli1=juli*100;
DIS[6]=juli1%10+0x30;
juli1=juli1/10;
DIS[5]=juli1%10+0x30;
juli1=juli1/10;
DIS[4]='.';
DIS[3]=juli1%10+0x30;
juli1=juli1/10;
DIS[2]=juli1%10+0x30;
juli1=juli1/10;
DIS[1]=juli1%10+0x30;
DIS[0]=juli1/10+0x30;

}

void main(void)
{
    
    Delay100Ms(); //啟動等待，等LCM講入工作狀態
    P10=1;    
    TMOD=0x01;             //計數器0工作在方式1
    TH0=0;
    TL0=0;                  //計數值初始化
    IT1=0;                 //低電平觸發中斷
    EA=1;                //開總中斷
    //IP=0x04;             //設置外部中斷1為高優先級中斷
    flag=0;
    LCMInit(); //LCM初始化
    
    
    while(1)
    {
     cs_t();
     Delay5Ms();        
     ET0=1;         //打開計數器0中斷
     EX1=1;         //打開外部中斷1
     TR0=1;
     while(!flag) 
     {
      DisplayListChar(0, 0, cdle_net);
      DisplayListChar(0, 1, email);
     }
     if(flag==1)
     {
      time=TH0;
      time=(time<<8)|TL0;
      distant=time*1.72/100;
      zhuanhuan(distant);
      if(DIS[0]=='0')      DisplayOneChar(5,1,' ');
      else   DisplayOneChar(5,1,DIS[0]);
      if((DIS[0]=='0')&&(DIS[1]=='0'))      DisplayOneChar(6,1,' ');
      else   DisplayOneChar(6,1,DIS[1]);
      if((DIS[0]=='0')&&(DIS[1]=='0')&&(DIS[2]=='0'))  DisplayOneChar(7,1,' ');
      else   DisplayOneChar(7,1,DIS[2]);
      DisplayOneChar(8,1,DIS[3]);
      DisplayOneChar(9,1,DIS[4]);
      DisplayOneChar(10,1,DIS[5]);
      DisplayOneChar(11,1,DIS[6]);
      DisplayOneChar(12,1,'c');
      DisplayOneChar(13,1,'m');
      flag=0;
      }
     else
     {
      DisplayListChar(5,1,"error!      ");
      flag=0;
     }
     TH0=0;
     TL0=0;
    Delay100Ms();
    }
}



void cs_r(void) interrupt 2
{
TR0=0;
EX1=0;
ET0=0;
flag=1;
}


void overtime(void) interrupt 1
{
EX1=0;
TR0=0;
ET0=0;
flag=2;
}


//寫數據
void WriteDataLCM(uchar WDLCM) 
{
    ReadStatusLCM(); //檢測忙
    LCM_Data=WDLCM;
    LCM_RS=1;
    LCM_RW=0;
    LCM_E=0; //若晶振速度太高可以在這后加小的延時
    LCM_E=0; //延時
    LCM_E=1;
}

//寫指令
void WriteCommandLCM(uchar 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;    
}

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

//讀狀態
uchar 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);
}

void LCMInit(void) //LCM初始化
{
    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 DisplayOneChar(uchar X, uchar Y, uchar DData)
{
    Y &= 0x1;
    X &= 0xF; //限制X不能大于15，Y不能大于1
    if (Y) X |= 0x40; //當要顯示第二行時地址碼+0x40;
    X |= 0x80; //算出指令碼
    WriteCommandLCM(X, 1); //發命令字
    WriteDataLCM(DData); //發數據
}

//按指定位置顯示一串字符
void DisplayListChar(uchar X, uchar Y, uchar  *DData)
{
    uchar 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)
{
    uint TempCyc = 200;
    while(TempCyc--);
}

//400ms延時
void Delay100Ms(void)
{
    uchar TempCycA = 1;
    uint TempCycB;
    while(TempCycA--)
        {
            TempCycB=7269;
            while(TempCycB--);
        ｝
}