實用熱水器監(jiān)視器源程序

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計數(shù)
{
?? i++;
?? if(i>99)break;
}?????
??? i=99-i;???????????? //負溫度系數(shù)溫度傳感器轉(zhuǎn)換
??? Ten=i/10%10;??????? //將計數(shù)值轉(zhuǎn)化為水溫值的十位顯示編碼表（數(shù)組Code[]）的下標值。
??? One=i%10;?????????? //將計數(shù)值轉(zhuǎn)化為水溫值的個位顯示編碼表（數(shù)組Code[]）的下標值。
??
??? Send(Code[One],Code[Ten],Code[12]);???? //根據(jù)下標值從常數(shù)表中提取編碼，發(fā)送給移位寄存器(Code[12]=0xbf,LED亮 SPEAKER不響)
??? Delay(15);????????????????????????????? //延時3秒