中文字幕 另类精品,亚洲欧美一区二区蜜桃,日本在线精品视频免费,孩交精品乱子片免费

<sup id="3hn2b"></sup>

    1. <sub id="3hn2b"><ol id="3hn2b"></ol></sub><legend id="3hn2b"></legend>

      1. <xmp id="3hn2b"></xmp>

      2. 新聞中心

        EEPW首頁 > 嵌入式系統(tǒng) > 設(shè)計應(yīng)用 > 基于單片機和PC機的實時溫度控制系統(tǒng)設(shè)計

        基于單片機和PC機的實時溫度控制系統(tǒng)設(shè)計

        作者: 時間:2012-05-25 來源:網(wǎng)絡(luò) 收藏

        報警電路采用蜂鳴器作為報警器件,如圖2所示,只需很少的器件,就能實現(xiàn)與蜂鳴器的連接。當與蜂鳴器所連的I/O口輸出低電平時,蜂鳴器則能發(fā)出聲音,系統(tǒng)設(shè)計中,當溫度超過31℃時,蜂鳴器則發(fā)出聲音,實現(xiàn)報警功能。

        3.2 接口設(shè)計

        單片機要和實現(xiàn)串口通信,需要進行電平轉(zhuǎn)換,因為單片機使用的是TTL電平,而串口使用的是RS232電平。運用MAXIM公司生產(chǎn)的MAX232芯片實現(xiàn)TTL電平和RS232電平轉(zhuǎn)換,如圖3所示,通過其第11腳和第12腳分別與單片機的第11腳和第10腳連接,通過第13腳,第14腳分別與PC機串口的第2腳,第3腳進行連接,就能實現(xiàn)單片機和PC機的電平轉(zhuǎn)換、連接、和通信。單片機與PC機接口電路原理圖如圖3所示。

        基于單片機和PC機的實時溫度控制系統(tǒng)設(shè)計
        圖3 單片機與PC機串口通信接口電路

        4 軟件設(shè)計

        系統(tǒng)單片機程序采用C51進行編程,主要完成對DS18B20的調(diào)用中斷管理、測量溫度值的計算以及單片機與PC機的串口通信。上位機軟件采用VBMSComm控件制作,由于C51程序較長,此處只介紹上位機軟件編寫程序,VB程序如下:

        Private Sub Form_Load( ) ' . . . . . . . . 初始化設(shè)置
        MSComm1.CommPort = 1 '……使用Com1口
        MSComm1.Settings = "9600,n,8,1" '. 設(shè)置通訊參數(shù)
        MSComm1.InBufferSize = 4 ' 設(shè)置接收寄存器等待讀取的字符數(shù)為4
        MSComm1.RThre shold = 0 ' 初始化為不產(chǎn)生OnComm事件
        MSComm1.PortOpen = True ' .打開串口
        MSComm1.InputLen = 4 ' 設(shè)置并返回Input屬性從接收緩沖區(qū)讀取的字符數(shù)為4
        MSComm1.InputMode = comInputModeText ' 設(shè)置接收方式為文本方式
        Me.Caption = " 實時" ' 設(shè)置標題為" 實時"
        End Sub
        Private Sub Command1_Click( ) '. .自動讀取按鈕
        Timer1.Enabled = True ' . . . . . . . .開啟定時器
        MSComm 1 . RThreshold = 1 ' . . . . . . . . 開啟OnComm事件觸發(fā)
        End Sub
        Private Sub Command2_Click( ) '. .清空內(nèi)容按鈕
        Timer1.Enabled = False ' . . . . . . . . 關(guān)閉定時器
        MSComm1.RThre shold = 0 ' . . . . . . . .停止產(chǎn)生OnComm事件
        Shape1 . FillColor = RGB(255,255,255)
        ' . . . . . . . . 設(shè)置信號指示燈的顏色為白色
        Text1. Text = " " ' . . . . . . . .清空文本框1的內(nèi)容
        Text2. Text = " " ' . . . . . . . .清空文本框2的內(nèi)容
        Text3. Text = " " ' . . . . . . . .清空文本框3的內(nèi)容
        End Sub
        Private Sub Command3_Click( ) '. .關(guān)閉窗口按鈕
        Unload Me ' . . . . . . . . 卸載窗體
        End Sub
        Private Sub MSComm1_OnComm( ) '. . . . . .事件觸發(fā)
        Dim rec As String
        Select Case MSComm1.CommEvent
        Case comEvReceive
        rec = MSComm1. Input
        Text3.Text = rec
        MyResult = (Text3.Text "31")
        ' . . . . . . . . 判斷當前溫度是否達到31℃
        If MyResult = False Then ' . . . .達到31℃
        Shape1.FillColor = RGB(255,0 ,0 ) ' . . . . . . . . 信號燈為紅色
        Text1 . Text = " 產(chǎn)生報警"' . . . . . . . . 同時信息提示顯示" 產(chǎn)生報警"
        Else ' . . . . . . . . 未達到31℃
        Shape1.FillColor = RGB(0,128,0 ) ' . . . . . . . . 信號燈為綠色
        Text1 . Text = " 溫度正常"' . . . . . . . . 同時信息提示顯示" 溫度正常"
        End If
        Text3.Te xt = " "
        Text3.Text = rec + "℃"
        MSComm1. InBufferCount = 0 ' 清空接收緩沖區(qū)
        End Select
        End Sub
        Private Sub Timer1_Timer()
        Text2 . Text = Now ' . . . . . . . . 設(shè)置定時器產(chǎn)生時鐘,顯示當前時間
        End Sub

        5 系統(tǒng)調(diào)試

        系統(tǒng)實現(xiàn)功能包括,通過下位機(單片機)將DS18B20所測溫度值實時傳輸給上位機(PC機),通過上位機(PC機)監(jiān)控環(huán)境溫度,并具有報警功能。

        1.在上位機軟件中點擊"自動讀取"按鈕實現(xiàn)自動讀取當前時間,溫度值。當正常溫度情況下,信號指示燈為綠色,同時信息提示為"溫度正常"。

        2.當溫度達到所設(shè)溫度極限時(本系統(tǒng)所設(shè)溫度極限為31℃) ,信號燈變?yōu)榧t色,信息提示為"產(chǎn)生報警",同時硬件部分的蜂鳴器會報警,如圖4所示為產(chǎn)生報警時上位機顯示部分。

        基于單片機和PC機的實時溫度控制系統(tǒng)設(shè)計
        圖4 產(chǎn)生報警時上位機顯示部分

        6 結(jié)束語

        運用能直接得到數(shù)字信號的溫度傳感器DS18B20采集溫度,將溫度值通過單片機I/O口傳遞給單片機進行處理,傳輸和控制,當溫度值達到所設(shè)溫度極限時產(chǎn)生報警,通過串口數(shù)據(jù)線實現(xiàn)下位機(單片機)與上位機(PC機)通信,并運用VBMSComm控件制作上位機軟件,達到實時顯示環(huán)境溫度和提示信息。系統(tǒng)設(shè)計連接簡單,實現(xiàn)容易,使用方便。

        蜂鳴器相關(guān)文章:蜂鳴器原理

        上一頁 1 2 下一頁

        評論


        相關(guān)推薦

        技術(shù)專區(qū)

        關(guān)閉