用VB制作一個簡單的壓力值采集顯示的上位機制作總結

1、gccx 上位機制作總結本系統(tǒng)的上位機制作主要采用microsoft word visual basic 編寫。主要實現(xiàn)將采集和傳輸?shù)臄?shù)據(jù)進行接收、處理和儲存的功能。一、基本思路如下所示：開始從串口接收數(shù)據(jù)數(shù)據(jù)實時顯示將數(shù)據(jù)存儲到數(shù)據(jù)庫中，并實現(xiàn)查詢結束由上圖可以知道，本程序的三個要點分別是：1、數(shù)據(jù)的接收部分，主要指將傳到串口的數(shù)據(jù)進行接收，這是后面步驟的前提與基礎。2、數(shù)據(jù)的處理部分，將接收到的數(shù)據(jù)進行實時處理與繪制曲線圖，并對超過警戒值的數(shù)據(jù)給予提示。3、數(shù)據(jù)的儲存部分， 指對接收處理過的數(shù)據(jù)按照一定的格式存儲到access2007 數(shù)據(jù)庫中，以便以后查詢，也為分析列車運行規(guī)律以及螺絲生

2、產廠家提供真實可貴的資料?？傮w思路是先分別實現(xiàn)三個部分對應的功能，再將三個部分有機聯(lián)合起來形成功能完善的上位機系統(tǒng)。二、分別實現(xiàn)三個部分的制作過程及成果第一部分 ，從串口接收數(shù)據(jù)。主要用到的是mscomn 控件（）實現(xiàn)串口通信。其測試設計界面如下圖所示：其中 mscomn 控件的屬性設置為：程序如下：測試便可實時顯示串口傳輸?shù)臄?shù)據(jù)。即實現(xiàn)了從串口接收數(shù)據(jù)。第二部分 ，數(shù)據(jù)的實時顯示部分。這個部分的測試與制作的思路是采用隨機函數(shù)產生數(shù)據(jù)并與時間控件（）配合來模擬所收集的數(shù)據(jù)，對其進行實時繪圖。測試設計界面：程序如下：option explicitdim datafromcomy as integ

3、er 從串口讀過來的實時值y 坐標dim datafromcomlasty as integer 上次的串口值y 坐標dim timecount as integerdim i as integerprivate sub command1_click()返回按鈕unload meend subprivate sub form_load()picscale pic 調整圖像框的坐標系zuobiaoxi pic 畫出坐標系picmidleline pic 在圖像框中畫一條中線end subprivate sub picscale(picx as picturebox) 調整圖像框的坐標系 (0,

4、-, 0)end subprivate sub picmidleline(picx as picturebox) 在圖像框中畫一條中線 (0, 1000)-, 1000), vbgreen 畫出中線end subprivate sub zuobiaoxi(picx as picturebox) 表示坐標系dim i% (0, 0)-, 0), vbwhite x坐標軸表示 (0, 0)-(0, , vbwhite y 坐標軸表示for i = 0 to step 1000 x,y軸坐標坐標刻度顯示 (0, i)-(100, i) (i, 0)-(i, 100) next iend subpri

5、vate sub drawrealline(picx as picturebox, datafromcomy as integer, datafromcomlasty as integer, timecount as integer)if timecount - 1 0 then (timecount - 100, datafromcomlasty)-(timecount, datafromcomy), vbwhiteend ifend subprivate sub timer1_timer()datafromcomlasty = datafromcomyrandomizedatafromco

6、my = int(2000 - 0 + 1) * rnd + 0) 隨機數(shù)的產生timecount = timecount + 100if timecount - 100 = thentimecount = 0picmidleline piczuobiaoxi picend ifdrawrealline pic, datafromcomy, datafromcomlasty, timecount 畫出實時的曲線end sub測試結果如下：至此，由數(shù)據(jù)的實時繪圖部分的測試完成。第三部分 ，數(shù)據(jù)庫的操作，數(shù)據(jù)庫采用access2007 數(shù)據(jù)庫。并采用visual basic 的 ado data

7、控件（）進行連接和sql語言實現(xiàn)數(shù)據(jù)庫的添加，刪除和查閱等基本功能。（本實驗以姓名、性別、年齡的操作為例）測試設計界面：創(chuàng)建數(shù)據(jù)庫 mydb如下：首先是數(shù)據(jù)庫的連接：利用 ado 控件生成字符串連接數(shù)據(jù)庫的步驟為：1）右擊 data 控件，選擇 adodc 屬性2）點擊生成，選擇數(shù)據(jù)庫類型3）填寫數(shù)據(jù)源4）測試連接其次是數(shù)據(jù)庫操作：1）添加：dim rs as new dim cn as new private sub openconn()set cn = new set rs = new = aduseclient數(shù) 據(jù) 庫 ;persist security info=falseend s

8、ubprivate sub closeconn()if sckclosed then set rs = nothingif sckclosed then set cn = nothingend subprivate sub command1_click()call openconn select 姓 名 ,性 別 ,年 齡from 表1, cn,adopenstatic, adlockpessimistic( 姓名 ) = ( 性別 ) = ( 年齡 ) = call closeconnmsgbox 添加成功！ , , 溫馨提示 = = = end subprivate sub command

9、2_click()unload meend subprivate sub command3_click()unload meend subprivate sub command4_click()unload meend sub結果：2）刪除：private cn as new dim rs as new private sub openconn()set cn = new set rs = new = aduseclient;persist security info=falseend subprivate sub closeconn()if sckclosed then set rs = n

10、othingif sckclosed then set cn = nothingend subprivate sub command1_click()call openconn select id from 表 1 where id= & , cn, 3, 3set rs = nothingmsgbox 刪除成功 , , successful!end subprivate sub command2_click()unload meend sub結果：3）查看：private cn as new dim rs as new private sub openconn()set cn = n

11、ew set rs = new = aduseclient數(shù)據(jù)庫;persist security info=falseend subprivate sub closeconn()if sckclosed then set rs = nothingif sckclosed then set cn = nothingend subprivate sub command1_click()call openconn select id, 姓名 ,性別 , 年齡 from 表 1 where id= & , cn, adopenstatic, adlockpessimistic = (姓名 )

12、 = (性別 ) = (年齡 )call closeconnend subprivate sub command2_click()unload meend sub結果：至此，上位機的三個部分的關鍵問題已經(jīng)解決。三、上位機各部分的有機連接為了實現(xiàn)上位機接收、處理、儲存數(shù)據(jù)的功能，需要將上述三個部分結合為一個整體，但由于數(shù)據(jù)采集和無線傳輸部分還未完全貫通，第一部分的串口通信無法進行測試。于是僅實現(xiàn)了數(shù)據(jù)庫操作與實時繪圖的結合。其包括：隨機函數(shù)產生數(shù)據(jù)并與時間控件結合代替串口通信部分。數(shù)據(jù)實時繪圖和過低值警報。數(shù)據(jù)實時存儲。原始記錄查詢。實驗設計界面：程序設計：option explicitdim

13、k as integerdim datafromcomy as integer 從串口讀過來的實時值y 坐標dim datafromcomlasty as integer 上次的串口值y 坐標dim timecount as integerdim i as integerdim rs as new dim cn as new private sub openconn()set cn = new set rs = new = aduseclient;persist security info=falseend subprivate sub closeconn() set rs = nothing

14、 set cn = nothingend subprivate sub form_load()picscale pic 調整圖像框的坐標系picmidleline piczuobiaoxi picend subprivate sub picscale(picx as picturebox) 調整圖像框的坐標系 (0, -, 0)end subprivate sub picmidleline(picx as picturebox) 在圖像框中畫一條中線 (0, 1500)-, 1500), vbred 畫出中線end subprivate sub zuobiaoxi(picx as pictur

15、ebox) 表示坐標系dim i% (0, 0)-, 0) x坐標軸表示 (0, 0)-(0, y坐標軸表示for i = 0 to step 1000 x,y軸坐標坐標刻度顯示 (0, i)-(100, i) (i, 0)-(i, 100) next iend subprivate sub drawrealline(picx as picturebox, datafromcomy as integer, datafromcomlasty as integer, timecount as integer)if timecount - 1 0 then(timecount-100,datafro

16、mcomlasty)-(timecount, datafromcomy), vbgreenend ifend subprivate sub timer1_timer()if k = 1 thendatafromcomlasty = datafromcomyrandomizedatafromcomy = int(3000 - 0 + 1) * rnd + 0) 隨機數(shù)的產生if datafromcomy = thentimecount = 0picmidleline piczuobiaoxi picend ifdrawrealline pic, datafromcomy, datafromcom

17、lasty, timecount 畫出實時的曲線end ifend subprivate sub command1_click() = falsek = 1end subprivate sub command2_click() = truek = 0end subprivate sub command3_click()unload meend subprivate sub command4_click()unload meend sub實驗結果：查詢功能：dim rs as new dim cn as new private sub openconn()set cn = new set rs = new = aduseclient數(shù) 據(jù) 庫 ;persist security info=falseend subprivate sub closeconn()set rs = nothingset cn = nothingend subprivate