【導(dǎo)讀】通過具有熱電轉(zhuǎn)換特性的導(dǎo)體組成的回路時具有制冷功能，這就是所謂的熱電制冷。國際上被普遍采用，為此人們又把熱電制冷稱為半導(dǎo)體制冷[1]。它主要是帕爾帖效應(yīng)。在制冷技術(shù)方面的應(yīng)用。工作電流的方向；制冷量可在MW級-KW級變化，制冷溫差可達(dá)2O℃～150℃范圍。用于制熱時效率很高，但用于制冷時效率較低，損耗大。比如在工業(yè)中，熱電制冷零點基準(zhǔn)儀的應(yīng)用就是對傳統(tǒng)的使用以冰塊作為零

　　

【正文】 empSamp[TempChannel+1]227) //任何一通道溫度低則除霜 OutDisTemp|=CS_SIGN。 //除霜 2C else if(TempSamp[TempChannel]=46*8amp。amp。TempSamp[TempChannel+1]=46*8) //兩通道都恢復(fù)正常則停止除霜 OutDisTempamp。=~CS_SIGN。 //除霜恢復(fù) = //箱內(nèi)溫度在 070 度時進(jìn)行 PWM 調(diào)整 if(TempSamp[Channel]TEMPF_LOW||TempSamp[Channel]TEMPF_HIGH) OutDisTemp|=TEMPOVER_SIGN。 本 科 畢 業(yè) 設(shè) 計 第 31 頁 共 41 頁 //關(guān)閉電源禁止輸出 if(!PowerOnSign) OutDisTemp|=POWEROFF_SIGN。 OutDisSign[Channel]=OutDisTemp。 if(OutDisTemp) //除霜或溫度超過顯示范圍或電源關(guān)閉 TCCR1A amp。= TccMask。 //禁止對應(yīng)通道 PWM 輸出 } //計算并輸出脈寬 void CalcPwmOut(uint8 Channel,uint8 TccMask) //ok { if(PwmTimer[Channel]) return。 PwmTimer[Channel]=PWMTIME。 if(!OutDisSign[Channel]){ Et[Channel]=TempSamp[Channel]+TZWD_ADDTempSet8F。 if(FirstAdj[Channel]) { Et2[Channel]=Et[Channel]。 Et1[Channel]=Et[Channel]。 FirstAdj[Channel]=FALSE。 } //calc PID pwmset=pwmset+(KP*(etet1)+KI*et+KD*(et2*et1+et2))/8。 PwmSet[Channel]=PwmSet[Channel]+ ((KP+KI+KD)*Et[Channel](KP+2*KD)*Et1[Channel]+KD*Et2[Channel])/4。 if(PwmSet[Channel]119) PwmSet[Channel]=119。 else if(PwmSet[Channel]3) PwmSet[Channel]=3。 Et2[Channel]=Et1[Channel]。 Et1[Channel]=Et[Channel]。//calc PID end if(!Channel) //PWM2 OCR1B=PwmSet[0]。 else //PWM1 OCR1A=PwmSet[1]。 TCCR1A|=~TccMask。 } } void FirstAdjInit(void) { FirstAdj[0]=FirstAdj[1]=TRUE。 PwmTimer[0]=PwmTimer[1]=129。 } 本 科 畢 業(yè) 設(shè) 計 第 32 頁 共 41 頁 ifdef GLOBALS_DISP define DISP_EXT else define DISP_EXT extern endif DISP_EXT void CloseDisp(void)。 DISP_EXT void Display(void)。 DISP_EXT void SingleDigOut(uint8 Dig)。 DISP_EXT void SerOut(uint8 Data)。 DISP_EXT uint8 DispBuff[3]。 define GLOBALS_DISP include //顯示數(shù)據(jù) /*ROM */ const uint8 DispCode[]={ // 0 1 2 3 4 5 6 7 8 9 C F hide P I 0xdb,0x48,0x73,0x79,0xe8,0xb9,0xbb,0x58,0xfb,0xf9,0x93,0xb2,0x20,0x00,0xf2,0x02}。 define POINTCODE (12) void Display(void) { static uint8 DispPosi。 uint8 DispTemp,BuffTemp。 CLOSE_ALLDIG。 BuffTemp=DispBuff[DispPosi]。 DispTemp=DispCode[(BuffTempamp。~DISP_POINT)%sizeof(DispCode)]。 if(BuffTempamp。DISP_POINT) DispTemp|=POINTCODE。 SerOut(DispTemp)。 SingleDigOut(DispPosi)。 if(++DispPosi2) DispPosi=0。 } //位信號輸出 Dig(02) ROM DigBit[]={BIT(DIG1),BIT(DIG2),BIT(DIG3)}。 void SingleDigOut(uint8 Dig) { CLOSE_ALLDIG。 if(Dig2) return。 PORTDamp。=~DigBit[Dig]。//將引腳輸出低電平 DDRD|=DigBit[Dig]。 //將引腳置為輸出 本 科 畢 業(yè) 設(shè) 計 第 33 頁 共 41 頁 } //串行輸出 void SerOut(uint8 Data) { uint8 Mask。 for(Mask=0x80。Mask0。Mask=1) { SERCLK_OUT1。//等待輸出數(shù)據(jù)穩(wěn)定 if(Dataamp。Mask) SERDAT_OUT1。 else SERDAT_OUT0。 SERCLK_OUT0。 } SERCLK_OUT1。 } ifdef GLOBALS_KEY define KEY_EXT else define KEY_EXT extern endif KEY_EXT void ModeInit(uint8 mode)。 KEY_EXT void KeyManage(uint8 Key)。 KEY_EXT void GetKey(void)。 KEY_EXT void KeyDelay(void)。 KEY_EXT bool DispTemp(int16 Samp,uint8 *Disp)。 KEY_EXT uint8 TempKey,HasKey,HasKeyTemp。 define GLOBALS_KEY include /********************************* * 當(dāng)前模式初始化子程序 * **********************************/ void ModeInit(uint8 mode)//Test Over { if(mode==MODE_SET){ FlashDisp=FALSE。 ModeTimer=SETMODEMAXTIME。 } else if(mode==MODE_TEST){ TestStep=0。 ModeTimer=TESTMODEMAXTIME。 本 科 畢 業(yè) 設(shè) 計 第 34 頁 共 41 頁 } ifdef SPITEST_EN else if(mode==MODE_SPITEST) ModeTimer=SPITESTMAXTIME。 endif else mode=MODE_DISP。 Mode=mode。 DispUpdateTimer=0。//下次循環(huán)更新顯示 } /*************************** * 按鍵處理子程序 * ****************************/ void KeyManage(uint8 Key)//Test Over { if(Key==KEY_LAMP){ LAMPCHANGE。 return。 } else if(Key==KEY_TEST){ if(Mode==MODE_TEST) ModeInit(MODE_DISP)。 else if(Mode==MODE_DISP) ModeInit(MODE_TEST)。 return。 } else if(Key==KEY_POWER){ PowerChangeSave()。 if(!PowerOnSign) BeepInit(2)。 DispUpdateTimer=0。//下次循環(huán)更新顯示 return。 } if(Mode==MODE_TEST){//測試模式按鍵處理 switch(Key){ case TestStep=7。 CFChangeSave()。 DispUpdateTimer=0。//下次循環(huán)更新顯示 ModeTimer=TESTMODEMAXTIME。 break。 case 1 TestStep=(TestStep+1)%MAXTESTSTEP。 DispUpdateTimer=0。//下次循環(huán)更新顯示 本 科 畢 業(yè) 設(shè) 計 第 35 頁 共 41 頁 ModeTimer=TESTMODEMAXTIME。 break。 case 1 TestStep=(TestStep+(MAXTESTSTEP1))%MAXTESTSTEP。 DispUpdateTimer=0。//下次循環(huán)更新顯示 ModeTimer=TESTMODEMAXTIME。 break。 case KEY_REP: DispBuff[0]=TestStep。 if(TestStep==0){//顯示版本號 ,脈寬輸出 1 DispBuff[1]=(VER/10)|DISP_POINT。 DispBuff[2]=VER%10。 OCR1A=OCR1B=10。 TCCR1A = 0xf2。 } else if(TestStep=6)//顯示采樣溫度 DispTemp(TempSamp[TestStep1],amp。DispBuff[1])。 else if(TestStep==7){//顯示溫標(biāo)，脈寬輸出 2 DispBuff[1]=DISP_HIDE。 if(SelectF) DispBuff[2]=DISP_F。 else DispBuff[2]=DISP_C。 OCR1A=OCR1B=119。 TCCR1A = 0xf2。 } if(0==ModeTimer) ModeInit(MODE_DISP)。 break。 } } else if(Mode==MODE_SET){//設(shè)定模式按鍵處理 switch(Key){ case KEY_SET: ModeInit(MODE_DISP)。 break。 case KEY_SETA: if(TempSetMaxTempSet){ TempSet++。 SaveTempSet()。 FirstAdjInit()。 } ModeTimer=SETMODEMAXTIME。 DispUpdateTimer=0。//下次循環(huán)更新顯示 FlashDisp=FALSE。 break。 本 科 畢 業(yè) 設(shè) 計 第 36 頁 共 41 頁 case KEY_SETD: if(TempSetMinTempSet){ TempSet。 SaveTempSet()。 FirstAdjInit()。 } ModeTimer=SETMODEMAXTIME。 DispUpdateTimer=0。//下次循環(huán)更新顯示 FlashDisp=FALSE。 break。 case KEY_REP: if(FlashDisp) DispBuff[0]=DispBuff[1]=DISP_HIDE。 else { if(TempSet=