Dim MyOPCItem as OPCItem //OPC項(xiàng)對(duì)象

Dim OPCItemColleefion as OPCItems //OPC項(xiàng)集合

定義復(fù)雜控制算法中的全局變量如下。

Dim tankl as Single //定義1號(hào)液位高度變量

Dim Setl as Single //定義1號(hào)液位高度給定

定義好所有的變量后，進(jìn)行OPC的連接、OPC讀寫(xiě)等。

由于程序較長(zhǎng)，這里不再贅述。整個(gè)程序的流程如圖3所示。

由于OPC客戶建立連接后，占用了服務(wù)器資源，因此，程序結(jié)束后必須斷開(kāi)OPC連接，釋放資源。關(guān)鍵程序如下。

①清除指定的OPC項(xiàng)

OPCItemCollection.RemoveItemCount.Removeh

EmptyServerHandles.RemovehemServer

Set OPChemColleetion=Nothing

②與服務(wù)器斷開(kāi)連接并清除

AnOPCSenrer.Disconnect

Set AnOPCServer=Nothing

3 結(jié)束語(yǔ)

本文根據(jù)工業(yè)液位對(duì)象的特性，借助BSView32、VB等高級(jí)應(yīng)用軟件，采用OPC技術(shù)構(gòu)建了三級(jí)網(wǎng)絡(luò)控制系統(tǒng)。

系統(tǒng)結(jié)構(gòu)開(kāi)放，可擴(kuò)展性強(qiáng)，成本低廉，不同廠家的新設(shè)備、新軟件，只要提供統(tǒng)一的OPC接口，就能與本系統(tǒng)簡(jiǎn)便互聯(lián)，減少了底層開(kāi)發(fā)時(shí)間和費(fèi)用。同時(shí)，該網(wǎng)絡(luò)實(shí)現(xiàn)了計(jì)算機(jī)內(nèi)部應(yīng)用程序與現(xiàn)場(chǎng)設(shè)備、不同軟硬件、不同應(yīng)用程序之間的無(wú)縫連接與資源實(shí)時(shí)共享，可供多個(gè)客戶同時(shí)訪問(wèn)系統(tǒng)。