摘  要： 結(jié)合高速鐵路國家實驗室“車廂環(huán)境檢測”項目，探索如何用VB設(shè)計一些輔助程序，并將這些程序嵌到WebAccess組態(tài)軟件中，通過兩者的緊密結(jié)合，解決一些現(xiàn)實中的棘手問題，擴展組態(tài)軟件的功能以便更好地滿足用戶需求。
關(guān)鍵詞： VB; WebAccess; I/O點; 控件; SQL; Excel

    WebAccess組態(tài)軟件是基于瀏覽器開發(fā)的B/S架構(gòu)的組態(tài)軟件，可實現(xiàn)遠程監(jiān)控和遠程在線維護。項目選用150點WebAccess組態(tài)軟件，其中包括150個外部點、150個內(nèi)部點和不受個數(shù)限制的本地點，每個點相當于一個寄存器。外部點用來存儲外部設(shè)備通過通信傳送給計算機的數(shù)據(jù)，內(nèi)部點是中間變量點（包括計算點、累算點、常數(shù)點），它們都是全局有效的；本地點相當于局部點，只在對應(yīng)的畫面內(nèi)有效。使用以上所有資源，在實際設(shè)計過程中遇到三個WebAccess不能解決的問題：(1)內(nèi)部I/O點不夠用； (2)本身不帶微風速采集器的驅(qū)動程序；(3)不能按需求將SQL數(shù)據(jù)庫中表導成Excel表和實現(xiàn)多表并發(fā)（將多個Excel表合成一個）。
    當軟件本身不能實現(xiàn)某些功能時，就需要考慮一些輔助軟件，這里將VB作為一個輔助軟件，通過它設(shè)計一些輔助程序，并將這些輔助程序與WebAccess巧妙地結(jié)合在一起，就可以很好地解決以上三個問題。
1 VB程序使用SQL數(shù)據(jù)庫擴展組態(tài)I/O點
    高鐵車廂環(huán)境檢測項目中要檢測的參數(shù)包含60點溫度、60點風速、20點壓力、2點濕度，對應(yīng)每一點都要有一個修正值和最終值(測量值+修正值),為了便于Matlab繪制參數(shù)云圖,每個點還要有一個標志值（表示該點在試驗中是否被選用）和X、Y、Z三個坐標值（表示該點在車廂中的位置），以上這些點要求都是全局有效的，對一個只有150點的WebAccess是遠遠不能滿足的。如果采用I/O點數(shù)多的WebAccess，不僅會增加成本，而且會使利用率很低，因為每一個點的三個坐標值、修正值及標志值在試驗開始前都是設(shè)定好的，實驗過程中它們的值保持不變。根據(jù)這個特點,在每個值設(shè)定好后，用VB編寫的輔助程序?qū)⒉煌瑢傩缘脑O(shè)定值存儲到SQL特定數(shù)據(jù)庫的不同表中，在某個畫面需要某些值時再用VB編寫的輔助程序從數(shù)據(jù)庫中讀出這些值并存儲到本地點，在這個畫面中就可以隨意使用這些儲存著特定值的本地點，在畫面退出后，本地點所占的內(nèi)存空間被釋放，這些點就不存在，但它們對應(yīng)的值卻始終存儲在SQL數(shù)據(jù)庫中。采用這種方法，不僅節(jié)省大量I/O點，而且不會影響系統(tǒng)的性能。SQL數(shù)據(jù)庫存方框圖如圖1，相關(guān)VB程序如下：

    ‘******將溫度點T1的標志位FT1及三個坐標XT1、YT1、ZT1通過VB控件讀到變量ft1、xt1、yt1、zt1中，其他溫度點的標志位及坐標用同樣的方法讀到相應(yīng)的變量中，然后將這些變量的值存儲到testdata數(shù)據(jù)庫    TXYZTABLE表中******’
    ft1 = Bwocxrun1.GetValue("FT1", Me.AP)
    xt1 = Bwocxrun1.GetValue("XT1", Me.AP)
    yt1 = Bwocxrun1.GetValue("YT1", Me.AP)
    zt1 = Bwocxrun1.GetValue("ZT1", Me.AP)
    ……
    s1 = "USE testdata"
    Conn.Execute s1
    s2 = " INSERT INTO TXYZTABLE VALUES (1,′" & ft1 & "′,′" & xt1 & "′,′" & yt1 & "′,′" & zt1 & "′,……,′" & ft60 & "′,′" & xt60 & "′,′" & yt60 & "′,′" & zt60 & "′)"
    Conn.Execute s2
    ‘******將testdata數(shù)據(jù)庫TXYZTABLE表中數(shù)據(jù)讀出存儲到變量ft1、xt1、yt1、zt1、……、ft60、xt60、yt60、zt60中，再通過VB控件將變量這些變量的值賦給相應(yīng)的WebAccess點******
    s3 = “DECLARE C1 CURSOR FOR
    SELECT
    FT1,XT1,YT1,ZT1,FT2,XT2,YT2,ZT2,……,FT60,XT60,YT60,ZT60 FROM TXYZTABLE WHERE Flag=1”
    Conn.Execute s3
    s4 = “OPEN C1 FETCH NEXT C1 INTO ft1,xt1,yt1,zt1, ft2,xt2,yt2,zt2,……, ft60,xt60,yt60,zt60 CLOSE C1”
    Conn.Execute s4
    Call Bwocxrun1.SetValue("FT1", ft1, Me.AP)
    Call Bwocxrun1.SetValue("XT1", xt1, Me.AP)
    Call Bwocxrun1.SetValue("YT1", yt1, Me.AP)
    Call Bwocxrun1.SetValue("ZT1", zt1, Me.AP)
    ……
　　以上程序是對溫度標志位及溫度坐標的存取程序，系統(tǒng)中用到的其他的點，只要在系統(tǒng)運行過程中保持其值不變，都可以用同樣的方法實現(xiàn)存取，從而節(jié)省系統(tǒng)I/O點。
2 風速數(shù)據(jù)采集
    微風速采集器由16塊1504四通道空氣速度測試接口模塊組成，每個模塊4個通道，共64個通道（實際只用60個），每個通道與一個熱式傳感器探頭相連接，在風速采集器上可以直接得到每個探頭測得的風速值，并顯示在液晶屏上，也可以通過串口線將風速采集器與電腦相連接，利用上位機軟件進行大規(guī)模的數(shù)據(jù)采集與數(shù)據(jù)處理。但WebAccess本身不帶風速采集器的驅(qū)動程序，無法將數(shù)據(jù)讀到WebAccess相應(yīng)的點中。
    解決上述問題有兩種方法，第一種解決方法是請相關(guān)公司編寫風速采集器的驅(qū)動程序，但這個方法有很多不利之處：除需要增加成本之外，還需為技術(shù)人員提供相關(guān)資料以及調(diào)試實際設(shè)備的機會，耗時耗財。第二種解決方法是利用WebAccess支持在畫面中嵌入由第三方軟件制作的控件的特點，用VB編寫一個串口通信和數(shù)據(jù)處理程序，通信協(xié)議采用與微風速采集器一致的協(xié)議，將風速采集器測得數(shù)據(jù)存到VB控件所占的內(nèi)存空間中，對測得數(shù)據(jù)進行處理后得到風速參數(shù)，再將風速參數(shù)寫到對應(yīng)的WebAccess點中，就能方便自如地顯示和處理風速參數(shù)。通過VB控件這個媒介，在沒有設(shè)備驅(qū)動的情況下同樣可以將數(shù)據(jù)傳送到對應(yīng)的WebAccess點中，在一定程度上可以擺脫WebAccess自身不帶很多設(shè)備驅(qū)動的限制，在設(shè)計系統(tǒng)選擇設(shè)備時就可以有更多的機會。其方框圖如圖2，相關(guān)VB程序如下：

    ‘******定義程序中所需變量******
    Sub ReceiveTextFromCom()
    Dim av As Variant        //存儲通信得到的數(shù)據(jù)
    Dim b(1 To 60)As Single   //存儲轉(zhuǎn)化成字節(jié)型的數(shù)據(jù)
    Dim ab(0 To 300) As Byte   //通信得到的數(shù)據(jù)轉(zhuǎn)化成
                              字節(jié)存儲
    Dim ac(0 To 300) As Byte   //通信得到的數(shù)據(jù)轉(zhuǎn)化成
                             字節(jié)后去除通信信息存儲
    Dim j,k,m As Integer                          //中間變量
    ‘******讀取串口接收緩沖區(qū)的數(shù)據(jù)，將接收到的數(shù)據(jù)轉(zhuǎn)換成字節(jié)型，并計算風速值賦給b(1)~b(60)。數(shù)組ab()中存儲的是風速值，每4個字節(jié)表示一路風速值，但ab(128)存儲回車符，便于通信校驗用，數(shù)據(jù)處理時應(yīng)去掉******
    j = MSComm1.InBufferCount     //串口寄存器中數(shù)據(jù)個
                                數(shù)賦值給j
    av = MSComm1.Input   //串口寄存器中數(shù)據(jù)賦值給av
    ac = av                          //av變量值賦值給ac
    For k = 10 To j - 1 Step 1     //去除開頭部分的通信
                                輔助字節(jié)
            ab(m) = ac(k)
            m = m + 1
    Next k
    b(1) = (ab(0) - 48) * 10 + (ab(1) - 48) + (ab(2) -
        48) / 10 + (ab(3) - 48) / 100
    ……
    b(32) = (ab(124) - 48) * 10 + (ab(125) - 48) + (ab
        (126) - 48) / 10 + (ab(127) - 48) / 100
    b(33) = (ab(129) - 48) * 10 + (ab(130) - 48) + (ab
        (131) - 48) / 10 + (ab(132) - 48) / 100
    ……
    b(60) = (ab(237) - 48) * 10 + (ab(238) - 48) + (ab
        (239) - 48) / 10 + (ab(240) - 48) / 100
    ‘******將VB控件中的風速值b(1)~b(60)寫到WebAccess對應(yīng)（VV1~VV60）點中******
    Call Bwocxrun1.SetValue("VV1", b1, Me.AP)
    Call Bwocxrun1.SetValue("VV2", b2, Me.AP)
    ……
    Call Bwocxrun1.SetValue("VV60", b60, Me.AP)
    ‘************為用戶控件初始化屬性************
Private Sub UserControl_InitProperties()
        m_BackColor = m_def_BackColor
        m_ForeColor = m_def_ForeColor
        m_Enabled = m_def_Enabled
        Set m_Font = Ambient.Font
        m_BackStyle = m_def_BackStyle
        m_BorderStyle = m_def_BorderStyle
        m_AP = m_def_AP
End Sub
3 將SQL數(shù)據(jù)庫表導成Excel表并合并

    在實際應(yīng)用中要將不同編號、不同車型、不同時間的試驗數(shù)據(jù)（包括溫度值、壓力值、風速值、溫度點坐標、壓力點坐標、風速點坐標及試驗信息）在試驗過程中分別存儲到指定數(shù)據(jù)庫的7個表中，在試驗結(jié)束后將所有的數(shù)據(jù)導成一個Excel表（包含7個Sheet，每個Sheet對應(yīng)前面的一項試驗數(shù)據(jù)）并根據(jù)用戶設(shè)定的路徑保存，最后將SQL數(shù)據(jù)庫中對應(yīng)的表清空，這樣做不僅便于用戶查找和轉(zhuǎn)移試驗數(shù)據(jù)，還便于Matlab讀取數(shù)據(jù)和繪制云圖，同時可以防止因數(shù)據(jù)庫數(shù)據(jù)量過大而導致錯誤。實現(xiàn)上述功能的唯一方法是將SQL數(shù)據(jù)庫中對應(yīng)的7個表導成7個Excel表，再將這7個Excel合并成一個包含7個Sheet的Excel表，最后將合并好的Excel表存到用戶指定的路徑下。 WebAccess自身所帶的TCL腳本語言不能實現(xiàn)上述功能，但WebAccess可以調(diào)用其他軟件編寫的應(yīng)用程序（.exe文件），通過此思路用VB編寫一個能夠?qū)崿F(xiàn)所需功能的應(yīng)用程序，在試驗結(jié)束時，用WebAccess TCL腳本語句調(diào)用該應(yīng)用程序，根據(jù)用戶的實際需求完成功能后自動退出應(yīng)用程序。其方框圖如圖3，相關(guān)VB程序如下：

    ‘******定義程序中的變量******
    Dim xapp,xapp1 As Excel.Application
                      //定義xapp、xapp1為Excel應(yīng)用對象
    Dim wb,wb1 As Excel.Workbook
                           //定義wb、wb1為Excel工作薄
    Dim ws,ws1 As Excel.Worksheet         //定義ws、ws1為
                                       Excel工作表
    ‘******建立一個新的Excel工作簿，并在其中添加4個sheet，再將工作簿中的7個sheet重新命名后存儲到Pathname指定的路徑下，最后退出創(chuàng)建的xapps對象******
    Set xapps = CreateObject("Excel.Application")
    xapps.Workbooks.Add
    Set wb = xapps.ActiveWorkbook
    sheetcount = wb.Sheets.Count
    wb.Sheets.Add               
    wb.Sheets.Add
    wb.Sheets.Add
    wb.Sheets.Add
    Set ws = wb.Sheets(1)       
    ws.Name = "TDATATABLE"
                    //用同樣的方法命名其他6個sheet
    wb.SaveAs pathname                                        
    xapps.Quit
    ‘******將新建的ADODB連接Conn連接到指定服務(wù)器的數(shù)據(jù)庫，并將其打開，為操作數(shù)據(jù)庫做好準備******
    Dim rs As  ADODB.Recordset          //定義rs為ADODB
                                       記錄集
    Dim Conn  As  ADODB.Connection
                             //定義Conn為ADODB連接
    Set rs = New  ADODB.Recordset 
                  //建立一個新的ADODB記錄集賦給rs
    Set Conn = New  ADODB.Connection
                  //建立一個新的ADODB連接賦給Conn
    Conn.ConnectionString="Driver={sqlserver};server=服務(wù)器名稱;uid=用戶名;pwd=用戶密碼;database=testdata"
Conn.Open
     ‘******將testdata這個數(shù)據(jù)庫中TDATATABLE表，導成名為TDATATABLE Excel表，并存儲到到E盤根目錄下。用同樣的方法將其他表導出相應(yīng)的Excel表******
    Dim s1, s2 As String
    s1 = "USE master"
    Conn.Execute s1
    s2 = "DECLARE  @myPath  varchar(200)SET @myPath= ′bcp testdata.dbo.TDATATABLE out E:\TDATATABLE.xls -c -q -S""服務(wù)器名稱"" -U""用戶名"" -P""用戶密碼""′EXEC master..xp_cmdshell @myPath"
Conn.Execute s2
    ‘******將TDATATABLE.xls中的數(shù)據(jù)存儲到另一個Excel表的sheet1中，修改一下程序，便可以將其他的Excel表中數(shù)據(jù)存儲到同一個Excel表中的不同sheet下，實現(xiàn)多表合一******
    Set xapp  = New Excel.Application     //新建 Excel應(yīng)用                                        對象賦給xapp、xapp1
    Set xapp1 = New Excel.Application
    xapp.DisplayAlerts = False          
    xapp1.DisplayAlerts = False  //Excel 選擇默認應(yīng)答消息，
                            防止彈出消息對話框
    xapp.Workbooks.Open ("E:\TDATATABLE.xls")
                     //用對象xapp打開指定路徑工作簿
    Set wb = xapp.ActiveWorkbook     //將當前工作簿賦值
                                   給wb
    xapp.Worksheets(1).Activate  //把sheet1置為當前工作表
    Set ws = xapp.ActiveSheet  //將當前工作表賦值給ws
    ws.UsedRange.Copy                //把ws工作表中所使用
                                  范圍的數(shù)據(jù)復制
    xapp1.Workbooks.Open pathname
             //用對象xapp1打pathname開指定路徑工作簿
    xapp1.Worksheets(1).Activate    //把當前工作簿的sheet1
                                 置為當前工作表
    Set ws1 = xapp1.ActiveSheet       //將當前工作表賦值給
                                  ws1
    ws1.Range("A1", "A1").PasteSpecial xlPasteValues
    //從A1行A1列開始將粘貼板中數(shù)據(jù)粘貼到當前工作表ws1
    xapp.ActiveWorkbook.Save
    xapp1.ActiveWorkbook.Save        //保存打開的工作簿
    VB是一種可視化的、面向?qū)ο蟮暮筒捎檬录?qū)動方式的結(jié)構(gòu)化程序設(shè)計語言，它可以開發(fā) Windows 環(huán)境下的各類應(yīng)用程序，用它來做組態(tài)軟件的助手，可以更好地滿足實際需求。除此，VB簡單易學、效率高，且功能強大，設(shè)計人員不必花大量的時間學習就可以寫出滿足要求的程序。在這個項目中，VB編寫的相關(guān)輔助程序扮演著十分重要的角色，解決了很多實際問題，給設(shè)計人員帶來很大幫助。
參考文獻
[1] Advantech WebAccess產(chǎn)品使用手冊[S]．研華（中國）公司工業(yè)自動化事業(yè)群，2009.
[2] 陳艷峰，高文姬，邵蘊秋，等．Visual Basic 數(shù)據(jù)庫項目案例導航[M]．北京：清華大學出版社，2004.
[3] 臧玉琴，騰躍．Visual Basic界面、多媒體與操作系統(tǒng)程序設(shè)計[M]．北京：人民郵電出版社，2003.