// STC 1T @ 12MHz
// P1.0        測量端
// P1.1 接基準源2.5V（TL431）
//
#include <STC15F204EA.H>

sbit IO_4 = P0^0;           //接LCD1602的引腳D4
sbit IO_E = P0^1;           //接LCD1602的引腳E

#define Set_xy(x,y) Send(0,(y<<6)|(x&15)|0x80)

uint8c ASC[]={
                      0x04,0x1F,0x15,0x1F,0x15,0x1F,0x04,0x07,   //0：電       
                      0x0F,0x08,0x0A,0x0A,0x0F,0x0A,0x13,0x0F,   //1：壓
                                  0x0f,0x09,0x09,0x0f,0x09,0x09,0x0f,0x00,   //2：
                                  0x10,0x06,0x09,0x08,0x08,0x09,0x06,0x00,   //3：
                                  0x08,0x0f,0x12,0x0f,0x0a,0x1f,0x02,0x00,   //4：       
                      0x0f,0x09,0x0f,0x09,0x0f,0x09,0x11,0x00,   //5：
                                  0x0f,0x09,0x09,0x0f,0x09,0x09,0x0f,0x00,   //6：
                                  0x10,0x06,0x09,0x08,0x08,0x09,0x06,0x00    //7：
                         };

void YS14520us(void)   
{
    uint8 a,b,c;
    for(c=2;c>0;c--)
        for(b=238;b>0;b--)
            for(a=90;a>0;a--);
}

void YS660us(void)   
{
    uint8 a,b,c;
    for(c=2;c>0;c--)
        for(b=94;b>0;b--)
            for(a=9;a>0;a--);
}

void YS30us(void)  
{
    uint8 a;
     for(a=87;a>0;a--);
}

void YSms(uint8 n)
{
        uint8 a,b;       
        while(n)
        {
            for(b=222;b>0;b--)
        for(a=12;a>0;a--);
            n--;
        }
}
                               
void Send(uint8 RS, uint8 dat)
{
  uint8 i;

  for(i=2;i;i--)
  {
    if(dat & 0x80)IO_4 = 1;   else IO_4 = 0;
    YS14520us();           //14520us （5V，2.2KΩ，2.2uF，4.751065V）

    if(RS)IO_E = 1;

    if(dat & 0x40)IO_4 = 1;   else IO_4 = 0;
    YS660us();             //660us   （5V，2.2KΩ，100nF，4.751065V）

    if(dat & 0x20)IO_4 = 1;   else IO_4 = 0;
    YS30us();              //30us          （5V，2.2KΩ，4.7nF，4.725256V）

    IO_E = 1;
    if(dat & 0x10)IO_4 = 1;   else IO_4 = 0;
    NOP12();               //0.5us < t < 1.36us

    IO_E = 0;

    dat <<= 4;
  }
}

void Send_S(uint8 *p)
{
  while(*p) Send(1,*p++);
}

void Init_1602(void)
{
        uint8 i = 3;

        P0M0 = 0x03;            //P0.0、P0.1推挽輸出         
          IO_4 = 0;
          IO_E = 0;
          YSms(40);
                                    
        Send(0,0x33); YSms(1);                     
        Send(0,0x32); YSms(1);          
          Send(0,0x28); YSms(1);
          Send(0,0x0C); YSms(1);
        Send(0,0x06); YSms(1);
          Send(0,0x01); YSms(1);

          // 裝入CGRAM //
        Send(0,0x06);                      // CGRAM 地址自動加1
        Send(0,0x40);                      // CGRAM 地址設為 00處
    for(i=0;i<64;i++)Send(1,ASC);   // 按數組寫入數據
}

/* ADC操作『ADC_CONTR寄存器』常量定義 */
#define    ADC_POWER       0x80                  //ADC 電源控制位
#define    ADC_FLAG        0x10                  //ADC 完成標志
#define    ADC_START       0x08                  //ADC 啟動控制位
#define    ADC_speed_LL    0x00                  //540 時鐘
#define    ADC_speed_L     0x20                  //360 時鐘
#define    ADC_speed_H     0x40                  //180 時鐘
#define    ADC_speed_HH    0x60                  // 90 時鐘
/*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
函數：A/D轉換初始化
      初次使用和更換 A/D 轉換通道要適當延時（20uS～200uS）, 使輸入電壓穩定。
      以后如果不更換 A/D 轉換通道的話, 不需要加延時。
      如果輸入電壓信號源的內阻在10K以下,可不加延時。
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
void AD_Init()
{
     P1M0 |= 0x03;                           //P1.0、P1.1高阻模式
     P1M1 |= 0x03;            
         ADC_RES = 0;
         P1ASF = 0x03;                           // P1.0、P1.1口作為模擬功能A/D使用
         ADC_CONTR = ADC_POWER | ADC_speed_H ;  //打開A/D電源 ，轉換1次/270時鐘，默認P1.0通道      
     YS14520us();              //開電源后延時
}
/*┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈
函數：A/D轉換程序
輸入：通道號0~7
返回：8位轉換值
說明：更換 A/D 轉換通道要適當延時（20uS～200uS）
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈*/
uint8 ADC(uint8 CHa)
{
         s_uint8 CHb;

         if(CHa != CHb)                                   //檢測是否更換通道號
         {
            ADC_CONTR &= 0xF8;                   //清通道
                ADC_CONTR |= CHa;                   //更換通道
                YS660us();                       //更換 A/D 轉換通道要適當延時（20uS～200uS）
         }
         CHb = CHa;                                           //保存此次通道號

     ADC_CONTR |= ADC_START;       //ADC_START = 1啟動 AD 轉換，轉換結束ADC_START = 0
         NOP12();                                           //經過4個時鐘延時后，才能夠正確讀到ADC_CONTR控制寄存器的值
         while(!(ADC_CONTR & 0x10));
     ADC_CONTR &= ~ADC_FLAG;       //清0 ADC_FLAG 位, 停止A/D轉換
     return ADC_RES;               //返回轉換結果
}                       

void main(void)
{
        uint8  Value,TL431;
    uint16 Voltage;

        Init_1602();
        Send(0,0x01); //清屏
        AD_Init();

        while(1)
        {       
                        Value = ADC(0);
                        TL431 = ADC(1);
                        Voltage = 250*Value/TL431;

                        // 顯示 測量電壓值
                        Set_xy(0,0);
                        Send(1,0);
                        Send(1,1);
                        Send(1,':');
                        Send(1,' ');
                        Send(1,'0'+ Voltage/100);
                        Send(1,'.');
                        Send(1,'0'+ Voltage/10%10);
                        Send(1,'0'+ Voltage%10);
                        Send_S("V");

                        // 顯示 測量轉換值 : 基準源轉換值
                Set_xy(9,1);                  
                        Send(1,'0'+ Value/100);
                        Send(1,'0'+ Value/10%10);
                        Send(1,'0'+ Value%10);
                        Send(1,':');
                        Send(1,'0'+ TL431/100);
                        Send(1,'0'+ TL431/10%10);
                        Send(1,'0'+ TL431%10);
                        YSms(10);       
        }
}