【正文】 編譯方法是：依次選擇“文件”菜單的“生成工程 ”命令（這里的“工程。 工程文件（ *.vbp） ； 沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 34 窗體文件（ *.frm） ； 二進制窗體文件（ *.frx） ； 標準模塊文件（ *.bas） ； 類模塊文件（ *.cls） 。 Visual Basic 把用來構(gòu)造一個應(yīng)用程序的所有相關(guān)文件稱為一個工程（ Project）。確定窗體文件的名字后，單擊“保存”按鈕，將顯示“工程另存為”對話框，提示編程人員確定用于保存工程的文件名。 要保存應(yīng)用程序，可單擊標準工具欄的“保存工程”按鈕。 Command Command1 Caption=確認 保存應(yīng)用程序 當(dāng)應(yīng)用程序編寫完后，就應(yīng)該將其保存起來。 沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 33 圖 “關(guān)于 ”窗體 控件的主要屬性 和作用如表 所示。 創(chuàng)建好的數(shù)據(jù)報表界面如圖 所示。 6. 從每一個 TextBox 控件創(chuàng)建時所在的部分上將 TextBox 控件拖動到數(shù)據(jù)報表設(shè)計器的不同部分上。Command 對象包含的所有數(shù)據(jù)字段，都作為 Command 對象被放下的部分中的 TextBox 控件，被自動創(chuàng)建在數(shù)據(jù)報表上。 在檢索結(jié)構(gòu)之后，將創(chuàng)建適當(dāng)數(shù)目的分組標頭和注腳，而且每一標頭 /注腳對被指定一個對應(yīng)于一個 Command 沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 32 對象的名字。 3. 設(shè)置 DataMember 屬性為最頂層的 Command 對象。 創(chuàng)建一個數(shù)據(jù)報表的步驟為： 1. 創(chuàng)建一個包含 Command 對 象層次結(jié)構(gòu)的數(shù)據(jù)環(huán)境設(shè)計器。數(shù)據(jù)報表不僅僅是數(shù)據(jù)簡單、直接的輸出，它還包括對數(shù)據(jù)的一些額外操作，如數(shù)據(jù)匯總。 Line 方法可以在窗體或圖片框指定位置上，按指定的顏色畫直線或者曲線。沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 31 (xLeft,yTop)表示對象的左上角的坐標值， (xRight,yBottom)表示對象右下角的坐標值。 Scale方法是自定義坐標系統(tǒng)最常用的方法，用來定義 Form、 PictureBox 或 Printer 的坐標系統(tǒng)。不同規(guī)格的坐標系統(tǒng)只是度量單位和精度改變，坐標軸的長度或者圖區(qū)域的大小并不因此而改變。在 VB 中，包 括系統(tǒng)標準坐標系統(tǒng)和用戶自定義坐標系統(tǒng)。下面介紹趨勢圖模塊的建立。如圖 所示。在數(shù)據(jù)庫顯示界面里可以進行用戶信息的以及溫度信息的添加、修改、刪除和瀏覽等功能。使用 DataGrid 控件無須編寫任何代碼，只要綁定到 ADO 控件上，就可以實現(xiàn)數(shù)據(jù)的新增、修改、刪除和瀏覽，還可以對數(shù)據(jù)進行格式化、 鎖定等。 圖 StatusBar控件屬性頁 顯示模塊以及數(shù)據(jù)庫顯示模塊的設(shè)計 完整的溫度信息顯示采用類似于電子數(shù)據(jù)表的 DataGrid 控件實現(xiàn)。單擊“插入窗格”按鈕，插入一個表格，在第三 個窗格的“文本”中輸入設(shè)計者：姚維丹。選擇“窗格”選項卡，默認會自動創(chuàng)建一個窗格，設(shè)置第一個窗格的“樣式”為 6sbrDate，顯示當(dāng)沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 28 前系統(tǒng)的日期。 圖 工具箱中的 StatusBar控件 將 StatusBar 控件添加到窗體上，用鼠標右鍵單擊該控件，在彈出的快捷菜單中選擇“屬性”命令，即可彈出“屬性頁”對話框。 StatusBar 控件是 Active 控件，在使用該控件之前需要先將其添加到工具箱中。該窗體通常位于父窗體的底部，通過這一窗體，應(yīng)用程序能顯示各種數(shù)據(jù)。將子菜單單項縮進以指出它們的分級位置或等級。 菜單編輯區(qū)是指中間的 7 個按鈕，主要用于對已經(jīng)輸入的菜單進行簡單的編輯操作。其主要屬性有標題、名稱、索引以及快捷鍵。其中包括三個區(qū)域：菜單屬性設(shè)置區(qū)、菜單編輯區(qū)、菜單列表區(qū)。 （ 1） 選擇“工具” /“菜單編輯器”命令； （ 2） 在“標準”工具欄上選擇“菜單編 輯器”圖表； （ 3） 用鼠標右鍵單擊要添加的菜單窗體，在彈出的快捷菜單中選擇“菜單編輯器”命令； （ 4） 利用快捷鍵 {Ctrl+E}來調(diào)用“菜單編輯器”。菜單欄是通過 VB 中的菜單編輯器設(shè)計的；狀態(tài)欄用于顯示系統(tǒng)日期、時間和設(shè)計信息，通過 StatusBar 控件實現(xiàn)。系統(tǒng)的主界面如圖 所示。 圖 添 加新用戶界面 主界面的設(shè)計 為了方便地管理系統(tǒng)程序，且占有教少的系統(tǒng)資源，我們采用多文檔界面 MDI進行主界面的設(shè)計。 所示。 所示。 系統(tǒng)功能模塊設(shè)計 系統(tǒng)功能模塊主要完成兩個功能：用戶管理和退出系統(tǒng)。 沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 24 圖 用戶登陸界面 在空白窗體上，添加 2 個 Label 控件、 2 個 TextBox 控件、 1 個 ADODC 控件。如果失敗達三次，則自動退出系統(tǒng)。 選擇新建“標準 EXE” ，執(zhí)行“打開”命令，進入 Visual Basic 工程集成開發(fā)環(huán)境，窗體設(shè)計器會自動出現(xiàn)一個 Form1 的空白窗體，如圖 所示。下文將分別介紹在 Microsoft Visual 集成環(huán)境下各個模塊的設(shè)計過程。用戶信息表中的信息是事先填寫好的。我們設(shè)計了一個程序?qū)崿F(xiàn)了將文本文件中的內(nèi)容轉(zhuǎn)換到 Access 數(shù)據(jù)庫中。 amp。 RecordSource 屬沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 22 性包含一條語句或一個表格名稱，用于決定從數(shù)據(jù)庫檢索什么信息。 ADO Data 控件屬性很多，其中 ConnectionString 屬性和 RecordSource 屬性是兩個非常重要的屬性。數(shù)據(jù)綁定控件是任何具有數(shù)據(jù)源屬性的控件。 所以，本文選擇 ADO Data 控件來訪問數(shù)據(jù)庫，進行數(shù)據(jù)庫的操作。 RDO（ Remote Data Objects）遠程數(shù)據(jù)對象是一個到 ODBC 的面向?qū)ο蟮臄?shù)據(jù)訪問接口，有了 Visual 以后， RDO 已逐步被 ADO 替代。它比 Data 控件功能強大，不僅可以打開、訪問并操縱已有的數(shù)據(jù)庫，而且可以創(chuàng)建數(shù)據(jù)庫、表和索引。 Microsoft Visual 提供了三種不同的訪問數(shù)據(jù)庫接口： DAO數(shù)據(jù)存取對象、 RDO 遠程數(shù)據(jù)對象、 ADOActiveX 數(shù)據(jù)對象。由于測量日期和時間不會重復(fù)，所以根據(jù)日期和時間，就可以區(qū)分數(shù)據(jù)庫中的數(shù)據(jù)屬于哪一次檢測。兩個表的結(jié)構(gòu)分別如表 所示。 根據(jù)該系統(tǒng)的功能，我設(shè)計了兩個表：用戶信息表和溫度信息表。 Access2022 是開發(fā)中小型數(shù)據(jù)庫的首選數(shù)據(jù)庫管理系統(tǒng)，使用它可以很方便的設(shè)計出一個出色的關(guān)系數(shù)據(jù)庫，而且 VB 可以通過 ADO data 對象建立對 Access 類型數(shù)據(jù)庫的快速連接。它能以最佳方式、最少的重復(fù)、最大的獨立性為多種應(yīng)用提供共享服務(wù)。 多點溫 度信息管理系統(tǒng)軟件運行在 PC機上，開發(fā)平臺采用 Microsoft Visual ，下面將詳細介紹各個模塊的實現(xiàn)過程。 用 戶 登 錄開 始失 敗 達 三 次 退 出 程 序主 界 面串行通信生成數(shù)據(jù)庫查詢顯示趨勢圖報表重 試否是成 功失 敗 圖 多點溫度信息管理系統(tǒng)軟件總體框圖 沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 20 為防止不相關(guān)人員隨意打開本軟件修改，刪除檢測結(jié)果，所以軟件運行后，首先設(shè)計了登陸對話框，要求輸入用戶名和密碼，輸入正確后才能進入該軟件的主界面。多點溫度信息管理系統(tǒng)主要包括以下功能： ； ； 、顯示、趨勢圖、報表生成等處理功能。 OnComm 事件程序如下： Private Sub MSComm1_OnComm() Dim buffer As Variant Dim arr() As Byte Dim i As Integer, a As Integer Dim restr1 As String, restr2 As String, srestr3 As String, ABC As String a = Select Case Case EvReceive buffer = arr = buffer For i = 0 To 18 Step 3 restr1 = arr(i) restr2 = arr(i + 1) restr3 = arr(i + 2) If restr2 = 127 And restr3 = 240 Then = = Str(Now) + + restr1 + + 測量有誤 + + Chr(13) + Chr(10) Else If Val(restr3) = 0 Then ABC = . + Mid$(Str(Val(restr3) / 256), 2, 3) Else ABC = Mid$(Str(Val(restr3) / 256), 2, 3) End If = + Str(Now) + + restr1 + + restr2 + ABC + + Chr(13) + Chr(10) End If Next i End Select End Sub 沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 19 第 4章 多點溫度信息管理系統(tǒng) 多點溫度監(jiān)控系統(tǒng)下位機采集檢測的溫度為本上位機提供了數(shù)據(jù)，多點溫度信息管理系統(tǒng)將實現(xiàn)對這些數(shù)據(jù)的查詢、顯示、趨勢圖、報表生成等處理功能，建立一個易于使用、易于管理的人機交互界面。如果系統(tǒng)初始化不正?；?DS18B20 的 DDV 端脫開未接好時，轉(zhuǎn)換出的溫度為默認初始值 +85℃，溫度高低字節(jié)為 05H 和 50H。我們在 OnComm 事件里進行溫度數(shù)據(jù)的接收和轉(zhuǎn)換。 發(fā)送程序為： Dim rece As String rece = If Mid(rece, 1, 1) = S Then = amp。打開串口 = True End If End Sub 初始化完成后， PC 機就可以與單片機進行通信了。設(shè)置接收緩沖區(qū) 1024Byte = 0 39。設(shè)置通訊窗口 = 9600,N,8,1 39。本系統(tǒng)中，有關(guān)通信的工作過程主要有：通信參數(shù)初始化、發(fā)送握手信號、接收數(shù)沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 17 據(jù)。單片機收到 PC 機發(fā)送的握手信號“ S”后，就依次命令 DS18B20 進行溫度轉(zhuǎn)換； PC 機依次接收單片機上傳過來的數(shù)據(jù)，并顯示在特定區(qū)域。 DS18B20 轉(zhuǎn)換出的溫度信息包含兩個字節(jié)，經(jīng)過處理后，一個字節(jié)為溫度的整數(shù)部分，另一個字節(jié)為溫度的小數(shù)部分。 圖 PC與硬件單片機的連接電路圖 通信協(xié)議 為使數(shù)據(jù)在 PC 和單片機之間無差錯的傳送，本文采用通信協(xié)議來 規(guī)約數(shù)據(jù)的傳輸。由于 RS232 電平與 TTL 電平不兼容，本系統(tǒng)通過 MAX232 芯片實現(xiàn) TTL 電平到 RS232 電平的轉(zhuǎn)換， MAX232 芯片是包含兩路接收器和驅(qū)動器的 RS232 電平轉(zhuǎn)換芯片，適用于各種 232 通信接口。溫度數(shù)據(jù)的轉(zhuǎn)換主要實現(xiàn)對接受到的溫度數(shù)據(jù)由十六進制到十進制的轉(zhuǎn)換 ，同時這一步也為后面的數(shù)據(jù)庫的生成及溫度信息管理工作做好了準備。上位機軟件用 VB 編寫，主要完成通信參數(shù)設(shè)置和溫度數(shù)據(jù)的轉(zhuǎn)換。下位機程序用匯編語言編寫，固化在 AT89SC51 單片機中。編寫程序時，只需要按照下面流程圖，即可實現(xiàn)通信功能。 表 CommEvent通信事件代碼、常數(shù)及含義表 事件代碼 常值 含義 1 ComEvRecive 接收到 Rthreshold 個字符。用戶程序就可在 OnComm 事件處理程序中針對不同的代碼，進行相應(yīng)的處理。其值為 0 和 1 時，分別表示通過 Input 屬性以文本方式和二進制方式取回數(shù)據(jù) OutBufferSize 設(shè)置并返回發(fā)送緩沖區(qū)的大小，缺省值為 512 字節(jié) OutBufferCount 設(shè)置并返回發(fā)送緩沖區(qū)中等待計算機發(fā)送的字符數(shù) Output 向發(fā)送緩沖區(qū)發(fā)送數(shù)據(jù)，該屬性設(shè)計時無效，運行時只讀 Rthreshold 在 MSComm 控件設(shè)置 ConunEvent 屬性為 EvReceive 并產(chǎn)生 OnComm 之前，設(shè)置并返回要接收的字符數(shù) 其中 CommEvent 屬性是一個非常重要的屬性。 沈陽航空工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 13 表 MSComm控件的主要屬性 屬性 描述 Commport 設(shè)置并返回通信串口號 Settings 以字符串的形式設(shè)置并返回串口波特率、奇偶校驗、數(shù)據(jù)位、停止位。 MSComm 控件的常用屬性 對控件編程首先需要了解它的屬性和事件。查詢方式的編程可用計時器或Do? Loop 程序?qū)崿F(xiàn)。 查詢方式 在程序的每個關(guān)鍵功能完成之后，可以通過檢查 CommEvent 屬性的值來查詢事件和錯誤。在程序設(shè)計中，可以在 OnComm 事件處理函數(shù)中加入自己的處理代碼，一旦事件發(fā)生即可自動執(zhí)行該段程序。 事件驅(qū)動方式 事件驅(qū)動通信是處理串行端口交互作用