快熱式家用電熱水器-文庫吧資料
2025-05-22 04:03本頁面
【正文】 for (i=0。 //等待鍵釋放 return (2)。 dispram[1]=heatpower。 //關閉蜂鳴器 if (heatpower0) heatpower。i++) display()。 //打開蜂鳴器（發(fā)出按鍵音） for (i=0。 //等待鍵釋放 return (1)。 dispram[1]=heatpower。 //關閉蜂鳴器 if (heatpower9) heatpower++。i++) display()。 //打開蜂鳴器（發(fā)出按鍵音） for (i=0。 //消影 }}/* 按鍵掃描處理函數(shù) unsigned char keyscan(void) 無參數(shù)，返回值：無符號字符型，無鍵按下為0，有鍵按下為其它 影響全局變量：heatpower*/unsigned char keyscan(void){unsigned char i,ch。 //延時2ms a=_crol_(a,1)。=a。 //清除位選 P0=table[dispram[i]]。 i2。a=0xfe。 //此句編譯時以“DJNZ”實現(xiàn)，250*2=500機器周期}/* 顯示函數(shù) void display(void) 無參數(shù)，無返回值 兩位共陽數(shù)碼管掃描顯示*/void display(void){unsigned char code table[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90, 0x88,0x83,0xc6,0xa1,0x86,0x8e,0xbf,0xff}。 bt。 dt。 //送顯示（帶滅零） }//end while (1)} /* 延時函數(shù) void delay(unsigned int dt) 參數(shù)：dt，無返回值 延時時間=dt*500機器周期*/void delay(unsigned int dt){register unsigned char bt。 //取個位數(shù)送顯示 j/=10。 //通過改變循環(huán)次數(shù)i的大小決定是否刷新顯示 j=abs(ctemp)。b++) temptest()。 //調(diào)用加熱控制函數(shù) }//end for (b=0。 //如果有鍵按下，顯示當前檔位3s display()。j100。 //打開總中斷while (1) { i=1。 //設置外中斷0和1為下降沿觸發(fā)IP=0x01。 //默認開關鍵被按下，進入待機狀態(tài)TMOD=0x11。 //初始化加熱檔位為5當tempov=0。ctemp=15。 //加熱檔位寄存器、外中斷0計數(shù)器bit tempov,t0tst,testok。 //當前測得水溫寄存器unsigned char data dispram[2]={0x10,0x10}。 //加熱檔位指示燈2sbit led3=P2^7。 //繼電器控制信號輸出端sbit led1=P2^5。 //蜂鳴器輸出端sbit triac=P1^6。 //加熱檔位“+”鍵sbit downkey=P1^2。 //測溫函數(shù)sbit swkey=P1^0。 //按鍵掃描處理函數(shù)void heatctrl(void)。 //延時函數(shù)void display(void)。 圖14溫度／頻率曲線圖6 控制源程序清單以下是快熱式電熱水器控制源程序清單，采用C51編寫，在Keil C51環(huán)境下調(diào)試通過，并下載到AT89C51測試運行成功。圖14. 14所示為用實際電路在實驗室測得的溫度／頻率曲線圖。 可控硅導通角延時參數(shù)主要由市電的頻率和過零檢測電路的脈沖寬度決定，可以先根據(jù)市電頻率，按等功率的要求計算理論值，再根據(jù)過零檢測電路的脈沖寬度加以調(diào)整。 該電路中測溫部分的振蕩電路對電容Cl的容量比較敏感，若此電路要批量化生產(chǎn)，可在熱敏電阻R24上再串一個可變電阻，以補償C1的容量變化。 圖13所示為頻率測試程序流程圖。程序中使用靜態(tài)變量pxOcount進行外中斷的計數(shù)，在測量開始時，給pxOcount賦值2是為了讓頻率測量有準確的起點。 圖12溫度檢測程序流程圖 單片機使用外中斷INTO和計時器TO檢測輸入頻率的大小。 溫度檢測程序完成溫度計算后，便刷新系統(tǒng)當前溫度寄存器，并判斷有無超溫、置位或清除相應的標志位。 ④若TOrigTab[temp]，說明實際溫度應該在Tmin與Temp之間（因為遞減函數(shù)特性），則修改查找范圍，令Tmax= Temp；同理，若TOrigTab[temp]，說明實際溫度應該在Temp與Tmax之間，則令Tmin= Temp； ⑤檢查查找范圍，若Tmax一Tmin≤1，則判斷TOrig更接近最大值對應的頻率Tab[Tmax]還是最小
公司管理相關推薦
鄂ICP備17016276號-1