实用热水器监视器源程序

main(void)
{ 
  TRISA=0x10;     //PORTA_RA0:RA3口为输出,RA4口为模拟A/D输入,
  TRISB=0xff;     //RB口输入,
  RA3=0;
while(1)
{
   i=0;
   //下面Code模拟A/D
   TRISA=0x00;            //PORTA口为输出
   RA4=0; Delay(10);      //RA4为低并保持
   RA4=1; TRISA=0x10;     //RA4为高,并置为输入
while(RA4!=1)             //从 RA4=0到RA4=1计数
{
   i++;
   if(i>99)break;
}     
    i=99-i;             //负温度系数温度传感器转换
    Ten=i/10%10;        //将计数值转化为水温值的十位显示编码表（数组Code[]）的下标值。
    One=i%10;           //将计数值转化为水温值的个位显示编码表（数组Code[]）的下标值。
  
    Send(Code[One],Code[Ten],Code[12]);     //根据下标值从常数表中提取编码，发送给移位寄存器(Code[12]=0xbf,LED亮 SPEAKER不响)
    Delay(15);                              //延时3秒