【正文】 sx, posy, (*str))) return 0。 31中國計量學(xué)院本科畢業(yè)設(shè)計（論文） str++。 posx++。 if( posx == 16 ) { posx = 0。 posy++。 } } return 1。 }/**/ void delay_us(unsigned int time) { do { time。 } while (time1)。 } ⑷鍵盤程序： int getkey(void) { if(!((12)amp。PIND)) { delay_us(10)。 if(!((12)amp。PIND)) { return 2。 } } else if(!((13)amp。PIND)) { delay_us(10)。 if(!((13)amp。PIND)) { return 3。 32中國計量學(xué)院本科畢業(yè)設(shè)計（論文） } } else if(!((12)amp。PINB)) { delay_us(10)。 if(!((12)amp。PINB)) { return 4。 } } else if(!((16)amp。PIND)) { delay_us(10)。 if(!((16)amp。PIND)) { return 5。 } } else { return 0。 } } ⑸串口通信程序： unsigned char uart_buf[15]={0}。 unsigned char a=39。b39。 unsigned int data_count=0,has_data=0。 void UART_init(void) { UCSRB =BIT(RXEN) |BIT(TXEN)。 //允許串口發(fā)送和接收，并響應(yīng)接收完成中斷 UBRR = 51。 //時鐘 8Mhz，波特率 UCSRC = BIT(URSEL)|BIT(UCSZ1)|BIT(UCSZ0)。 //8位數(shù)據(jù)＋1位 stop位 33中國計量學(xué)院本科畢業(yè)設(shè)計（論文）} void putchar(unsigned char c) //字符輸出函數(shù) { while ( !( UCSRA amp。 (1UDRE)) )。 //判斷上次發(fā)送有沒有完成 UDR = c。 } void puts(unsigned char *s) //字符串發(fā)送函數(shù) { while (*s) { putchar(*s)。 s++。 } } //pragma interrupt_handler USART_Receive:12 void USART_Receive( void ) { if(UCSRAamp。(1RXC)amp。amp。(data_count15)) { while ( !(UCSRA amp。 (1RXC)) )。 uart_buf[data_count]=UDR。 data_count++。 } if(uart_buf[data_count1]==39。.39。) { data_count=0。 has_data=1。 } else { has_data=0。 } } ⑹主程序： include 34 中國計量學(xué)院本科畢業(yè)設(shè)計（論文）include include include include include include include include define T_MIN 55 //溫度最小值 define T_MAX 125 //溫度最大值 int T_min=10,T_max=50,T_pre,key_value。//溫度設(shè)置最小，最大值；當(dāng)前值，鍵值 unsigned char String[16]。 //顯示緩沖區(qū) void show_delay(unsigned int dly) { unsigned int i=0。 for(。idly。i++) { delay_us(10000)。 } } void main() { float Temp=0。 unsigned int i=0,j=0。 init_devices()。 while(1) { key_value=getkey()。 Temp=Read_Temperature()。 T_pre=Temp。 sprintf(String,%d,%d,%d,.,T_pre,T_min,T_max)。 puts(String)。 //DisplayString(0,0,String)。 if(key_value==0) { 35 中國計量學(xué)院本科畢業(yè)設(shè)計（論文） for(i=0。i20000。i++) { for(j=0。j4。j++) { USART_Receive()。 if(has_data) { for(i=0。i10。i++) { if(uart_buf[i]==39。,39。)break。 } T_min=atoi(uart_buf)。 T_max=atoi(uart_buf+i+1)。 has_data=0。 } } } if(T_max=T_min) { LCDInit()。 sprintf(String,Min=%d Max=%d,T_min,T_max)。 DisplayString(0,1,String)。 DisplayString(0,0,Err!T_Max=T_Min)。 } else { if(T_preT_max) { LCDInit()。 sprintf(String,Min=%d Max=%d,T_min,T_max)。 DisplayString(0,1,String)。 sprintf(String,Pre=%d Too High!,T_pre)。 DisplayString(0,0,String)。 } else if(T_preT_min) 36中國計量學(xué)院本科畢業(yè)設(shè)計（論文） { LCDInit()。 sprintf(String,Min=%d Max=%d,T_min,T_max)。 DisplayString(0,1,String)。 sprintf(String,Pre=%d Too Low!,T_pre)。 DisplayString(0,0,String)。 } else { LCDInit()。 sprintf(String,Pre=%d,T_pre)。 DisplayString(0,0,String)。 sprintf(String,Min=%d Max=%d,T_min,T_max)。 DisplayString(0,1,String)。 } } } else if(key_value==4) { if(T_minT_MAX) { T_min++。 } else { T_min=T_MIN。 } LCDInit()。 sprintf(String,Pre=%d,T_pre)。 DisplayString(0,0,String)。 sprintf(String,Min=%d Max=%d,T_min,T_max)。 DisplayString(0,1,String)。 show_delay(15)。 } else if(key_value==5) 37中國計量學(xué)院本科畢業(yè)設(shè)計（論文） { if(T_minT_MIN) { T_min。 } else { T_min=T_MAX。 } LCDInit()。 sprintf(String,Pre=%d,T_pre)。 DisplayString(0,0,String)。 sprintf(String,Min=%d Max=%d,T_min,T_max)。 DisplayString(0,1,String)。 show_delay(15)。 } else if(key_value==2) { if(T_maxT_MAX) { T_max++。 } else { T_max=T_MIN。 } LCDInit()。 sprintf(String,Pre=%d,T_pre)。 DisplayString(0,0,String)。 sprintf(String,Min=%d Max=%d,T_min,T_max)。 DisplayString(0,1,String)。 show_delay(15)。 } else if(key_value==3) { 38中國計量學(xué)院本科畢業(yè)設(shè)計（論文） if(T_maxT_MIN) { T_max。 } else { T_max=T_MAX。 } LCDInit()。 sprintf(String,Pre=%d,T_pre)。 DisplayString(0,0,String)。 sprintf(String,Min=%d Max=%d,T_min,T_max)。 DisplayString(0,1,String)。 show_delay(15)。 } } } 39中國計量學(xué)院本科畢業(yè)設(shè)計（論文）附錄B 上位機(jī)程序 (1)Form1窗體程序 Dim str1 As String Dim low, high As Integer Dim count_time As Long Dim tempe, oldtempe As Integer Dim flag As Integer Public dat As Integer Dim retime As String Dim retime_count As Integer Dim redate As String Private Sub Command1_Click() If = Or = Then MsgBox 請輸入完整數(shù)據(jù)后下載 ElseIf Val() 55 Or Val() 125 Then MsgBox 輸入溫度值超限(限制在55125攝氏度) ElseIf Val() = 0 And 0 Or Val() = 0 And 0 Then MsgBox 出錯請輸入整數(shù) ElseIf Len() Len(CStr(Val())) Or Len() Len(CStr(Val())) Then MsgBox 出錯請輸入整數(shù) ElseIf Val() = Val() Then MsgBox 出錯下限值大于上限值了 ElseIf Fix() Or Fix() Then MsgBox 出錯請輸入整數(shù) Else = 0 = amp。 , amp。 amp。 . End If End Sub Private Sub Command2_Click() = False 40中國計量學(xué)院本科畢業(yè)設(shè)計（論文）Dim x, y As Integer Dim i, j As Integer For j = 2540 To 9560 Step 540 Line (1000, j)(13960, j), vbRed Next For i = 1540 To 13960 Step 540 Line (i, 2540)(i, 10110), vbRed Next End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() = False Open For Output As 1 flag = 1 If = True Then dat = 1 End If End Sub Private Sub Form_Load() If Dir(c:\WINDOWS\system32\) = Then FileCopy , c:\WINDOWS\system32\ End If delay (300) = 1 = 9600,n,8,1 = True End Sub Private Sub MSComm1_OnComm() Select Case Case EvReceive str1 = str1 amp。 If Right(str1, 1) = . Then s = Split(str1, ,) 41 中國計量學(xué)院本科畢業(yè)設(shè)計（論文） = s(0) = s(1) = s(2) If Val() s(1) Then = 太低 low = 1 ElseIf Val() s(2) Then = 太高 high = 1 Else = 正常 low = 0 high = 0 End If str1 = End If = 0 If low = 1 Or high = 1 Then = RGB(amp。HFF, amp。H0, amp。H0) Else = RGB(amp。H0, amp。H0, amp。HFF) End If End Select End Sub Private Sub Timer1_Timer() If flag = 1 And dat = 1 Then If retime_count = 0 Then redate = Date retime = Time() Print 1, redate, retime retime_count = 1 End If tempe = Val() Print 1, tempe If count_time = 0 Then 42中國計量學(xué)院本科畢業(yè)設(shè)計（論文）Label33 = 溫度曲線描繪開始日期是： amp。 redate amp。 時間是： amp。 retime ElseIf count_time = 1 Then Line ((count_time 1) * 9 + 1000, 7940 oldtempe * 108)(count_time * 9 + 1000, 7940 tempe * 108), vbBlue Else Line ((count_time 1) * 9 + 1000, 7940 oldtempe * 108)(count_time * 9 + 1000, 7940 tempe * 108), vbBlue End If count_time = count_time + 1 oldtempe = tempe End If End Sub Private Sub Timer2_Timer() If