基于單片機的數(shù)據(jù)采集系統(tǒng)設計-資料下載頁

【導讀】內容不斷增加，對監(jiān)測手段和方法以及監(jiān)測技術的研發(fā)和應用提出了越來越高的要求；電子技術的發(fā)展，數(shù)據(jù)采集系統(tǒng)也迅速地得到普及應用。采集系統(tǒng)可以對生產現(xiàn)場的工藝參數(shù)進行采集、監(jiān)視和記錄。以單片機為核心的數(shù)據(jù)采。集系統(tǒng)為生產管理、提高產品質量、降低生產成本提供了便捷的方案。以實際工程的需要考慮，提出多點數(shù)據(jù)測量采集的系統(tǒng)設計方案。引起的接頭溫度過高，是造成電纜接頭處絕緣老化，易發(fā)故障的主要原因。延長設備的使用年限，以及避免設備損壞和減低對人身傷害有十分重要的意義。發(fā)電廠，變電站的高壓開關柜在長期運行過程中，開關柜觸點和母線排連接處等部。近年來，在電廠和變電站已發(fā)生多起開關柜過熱事故，造成火災和大面積的停電。事故，解決開關柜過熱問題是杜絕此類事故發(fā)生的關鍵。巡查測溫，因此實現(xiàn)溫度在線監(jiān)測是保證高壓開關柜安全運行的重要手段。采用典型、通用器件，一旦損壞，易于替換。

　　

【正文】 碼和按何種順序執(zhí)行代碼。從第一行代碼執(zhí)行程序并按應用程序中預定的路徑執(zhí)行，必要時 調用過程。 上位機軟件程序也是基于結構化的編程思想編寫的，但有一點不同的是，由于應用軟件要面向用戶的操作，故需要加入以事件驅動的編程思想。 所謂事件驅動 ， 簡單地說就是你點什么按鈕 (即產生什么事件 )， 電腦 就 執(zhí)行什么操作 (即調用什么函數(shù) )。 當然事件不僅限于用戶的操作 。 在事件驅動的應用程序中，代碼不是按照預定的路徑執(zhí)行 ， 而是在響應不同的事件時執(zhí)行不同的代碼片段。事件可以由用戶操作觸發(fā)、也可以由來自操作系統(tǒng)或其它應用程序的消息觸發(fā)、甚至由應用程序本身的消息觸發(fā)。這些事件的順序決定了代碼執(zhí)行的順序，因此應用程序每次運行時所經(jīng)過的代碼的路徑都是不同的。因為事件的順序是無法預測的，所以在代碼中必須對執(zhí)行時的 “各種狀態(tài) ”作一定的假設。當作出某些假設時（例如，假設在運行來處理某一輸入字段的過程之前，該輸入字段必須包含確定的值），應該組織好應用程序的結構，以確保該假設始終有效（例如，在輸入字段中有值之前禁止使用啟動該處理過程的命令按鈕） 。在執(zhí)行中代碼也可以觸發(fā)事件 （ 例如，在程序中改變文本框中的文本將引發(fā)文本框的 Change 事件 ） 。如果 Change 事件中包含有代碼，則將導致該代碼的執(zhí)行。 本數(shù)據(jù)采集系統(tǒng)上位機軟件主要實現(xiàn)功能有： ① 通過檢測區(qū)觀測數(shù)據(jù)波形 ② 數(shù)據(jù)記錄區(qū)實現(xiàn)歷史數(shù)據(jù)的記錄、保存 ③ 數(shù)據(jù)分析區(qū)，實現(xiàn)采集數(shù)據(jù)分析，并顯示最大值及時間 ④ 控制區(qū)可以選擇串口、設定溫度、電壓的報警參數(shù) 程序界面如圖 41： （圖 41） 上位機界面視圖 具體實現(xiàn)程序代碼如下： 39。Option Explicit 全局變量定義 Dim BytReceived() As Byte Dim strData As String Dim lenInput As Integer Dim LblJieshou As String Dim buf1, buf2, buf3, buf4 As Variant Dim num As Integer Dim X As Integer 39。************畫圖代碼 **************** Private Function TempPic_init() 39。溫度 (20, 0)(300, 0), vbRed 39。x 軸 (0, 100)(0, 50), vbRed 39。y 軸 = 1 = 1 o (0, 0), vbGreen 39。原點 For I = 10 To 60 Step 5 = 13: = I + 1: I: (0, I), vbGreen Next I End Function Public Function VoltPic_Init() 39。 電壓 (20, 0)(300, 0) 39。x 軸 (0, 1)(0, 6) 39。y 軸 = = (0, 0), vbGreen 39。原點 For I = 1 To 6 Step 1 = 10: = I + : I: (0, I), vbGreen Next I End Function Private Sub CheckTemp_Click() = True = 30 = vbGreen = 報警開啟 If = False Then = 報警未設定 = False = vbBlack = 報警關閉 End If End Sub Private Sub CheckVolt_Click() = True = = vbGreen = 報警開啟 If = False Then = 報警未設定 = False = vbBlack = 報警關閉 End If End Sub Private Sub ComOpen_cmd_Click() If = 1 Then q = MsgBox(請先選擇串口！ , , 提示 ) ElseIf 1 Then If = 打開串口 Then = + 1 = True = 關閉串口 = 開 amp。 ElseIf = 關閉串口 Then = False = 打開串口 = 關 End If End If End Sub 39。************窗體加載過程代碼 ****************** Private Sub Form_Load() 39。加載過程 = Date 39。加載時間日期 = Time = InputModeBinary 39。采用二進制傳輸 = 9600,N,8,1 = 9 If = True Then = False 39。檢測串口狀態(tài) = 關 buf1 = buf2 = 0 39。定義初值 buf3 = buf4 = 0 num = 1 X = 0 = 0 = 3 = 2 (20, 60)(300, 10) = 0 = 3 = 2 (20, 6)(300, 1) If = False Then 39。檢測報警初始 化狀態(tài) = 報警未設定 = False = vbBlack = 報警關閉 End If If = False Then = 報警未設定 = False = vbBlack = 報警關閉 End If Show End Sub Private Sub Quit_cmd_Click() 39。退出按鈕 q = MsgBox(確定要退出嗎 ?, , 提示 ) End End Sub Private Sub TempPic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) = Format(Y, ) amp。 ℃ End Sub Private Sub Timer_disp_Timer() 39。刷新時間定時器 = Time End Sub Public Sub Com1_OnComm() 39。串口數(shù)據(jù)檢測 On Error Resume Next Dim strBuff As String Select Case Case 2 = 0 strBuff = BytReceived() = strBuff Call Receive_Data strData = End Select End Sub 39。************數(shù)據(jù)格式轉換代碼 ****************** Public Sub Receive_Data() 39。接收處理為 16 進制 Dim I As Integer Dim a As Byte Dim Temp_History As String For I = 0 To UBound(BytReceived) If Len(Hex(BytReceived(I))) = 1 Then strData = strData amp。 0 amp。 Hex(BytReceived(I)) Else strData = strData amp。 Hex(BytReceived(I)) End If Next Temp_ID = Hex2Dec(Mid(strData, 3, 2)) Temp_18B20Rom = Mid(strData, 5, 4) Temp_temperature = Format(((Hex2Dec(Mid(strData, 10, 2)) + Hex2Dec(Mid(strData, 12, 1)) * )), ) 39。溫度轉換 Temp_Volt = Format((Hex2Dec(Mid(strData, 13, 2)) / 51), ) 39。電壓轉換 = Temp_temperature amp。 ℃ 39。當前溫度 = Temp_Volt amp。 V 39。當前電壓 q = Analize(Temp_temperature, Temp_Volt) 39。分析函數(shù) (X, Temp_temperature), vbGreen 39。畫溫度曲線 圖 (X, Temp_Volt), vbYellow 39。畫電壓曲線圖 = (第 amp。 num amp。 條記錄 : amp。 Date amp。 amp。 Time amp。 錄得溫度 : amp。 Temp_temperature amp。 ℃ 報警溫度 : amp。 () amp。 ℃ amp。 狀態(tài) : amp。 ) amp。 vbCrLf amp。 39。溫度歷史記錄窗口 = (第 amp。 num amp。 條記錄 : amp。 Date amp。 amp。 Time amp。 錄得電壓 : amp。 Temp_Volt amp。 V 報警電壓 : amp。 () amp。 V amp。 狀態(tài) : amp。 ) amp。 vbCrLf amp。 39。溫度歷史記錄窗口 = Temp_ID amp。 節(jié)點 amp。 Temp_18B20Rom amp。 傳感器 num = num + 1 X = X + 2 End Sub Private Function Hex2Dec(InputData As String) As Double 39。十六進制轉十進制 ok Dim I As Integer Dim decOut As Double Dim LenHex As Integer Dim HexStep As Double Dim MidData As String decOut = 0 InputData = UCase(InputData) LenHex = Len(InputData) For I = 1 To LenHex MidData = Mid(InputData, I, 1) If Not (IsNumeric(MidData) Or MidData = A Or MidData = B _ Or MidData = C Or MidData = D Or MidData = E Or MidData = F) Then MsgBox 不是合法的十六制進數(shù) !請重新輸入 ., vbExclamation, 數(shù)據(jù)錯誤 Exit Function End If Next HexStep = 0 For I = LenHex To 1 Step 1 HexStep = HexStep * 16 If HexStep = 0 Then HexStep = 1 MidData = Mid(InputData, I, 1) If MidData = 0 Then decOut = decOut + (0 * HexStep) ElseIf MidData = 1 Then decOut = decOut + (1 * HexStep) ElseIf MidData = 2 Then decOut = decOut + (2 * HexStep) ElseIf MidData = 3 Then decOut = decOut + (3 * HexStep) ElseIf MidData = 4 Then