如何用VB編寫OPC客戶端程序

　開發(fā)OPC 客戶端程序時(shí)，首先應(yīng)該生成OPC 服務(wù)器支持的OPC 對(duì)象，然后就 可以使用OPC 對(duì)象支持的屬性和方法，對(duì)其進(jìn)行各種操作。這樣使得客戶程序可 以像使用自己支持的數(shù)據(jù)和功能一樣，去使用服務(wù)器對(duì)象支持的數(shù)據(jù)和功能。在 VisualBasic6.0 里,是以對(duì)象為單位對(duì)OPC 服務(wù)器進(jìn)行訪問的。通過OPC 自動(dòng)化 服務(wù)器的對(duì)象模型，可以得知OPC 自動(dòng)化接口由以下四種對(duì)象所定義。1. OPCServer 服務(wù)器對(duì)象OPCServer 的一個(gè)實(shí)例，OPC 服務(wù)器自動(dòng)含有一個(gè)OPC 組集合 對(duì)象，并可在其基礎(chǔ)上生成一個(gè)OPC 瀏覽器對(duì)象。 OPCServer 服務(wù)器對(duì)象在使用其它OPC 對(duì)象前必須生成，也就是說在引用 其他對(duì)象之前必須先創(chuàng)建OPCServer。OPCServer 對(duì)象提供了對(duì)數(shù)據(jù)源訪問和通 信的方法，其提供了“Connect”方法來連接OPC 自動(dòng)化服務(wù)器。 主要屬性： StartTime(只讀屬性，服務(wù)器啟動(dòng)運(yùn)行的時(shí)間) CurrentTime(只讀屬性，返回服務(wù)器顯示的當(dāng)前時(shí)間) LastUpdateTime(對(duì)于本OPC 應(yīng)用程序的最后數(shù)據(jù)更新時(shí)間) MajorVersion(只讀屬性，OPC 服務(wù)器的主版本號(hào)) MinorVersion(只讀屬性，OPC 服務(wù)器的次版本號(hào)) Bandwith(只讀屬性，返回OPC 服務(wù)器的不敏感區(qū)的百分比) ServerState(只讀屬性，返回服務(wù)器的運(yùn)行狀態(tài)，這個(gè)屬性是比較重要的，方 便客戶端程序查詢服務(wù)器的狀態(tài)，從而達(dá)到排除故障的目的) ServerName(只讀屬性，返回客戶程序所要連接的服務(wù)器名，也就是OPC 服 務(wù)器的ProgID) ServerNode(服務(wù)器所在計(jì)算機(jī)名或者計(jì)算機(jī)的IP，用于連接遠(yuǎn)程的計(jì)算機(jī)) 等。 主要方法： GetOPCservers(獲得己經(jīng)注冊(cè)的OPC 服務(wù)器的程序標(biāo)識(shí)符，即ProgID) Connect(用來建立與OPC 數(shù)據(jù)存取服務(wù)器的連接) Disconnect(斷開與服務(wù)器的連接) CreatBrowser(創(chuàng)建OPC 瀏覽器的對(duì)象)等。 事件： 只有一個(gè)ServerShutDown(關(guān)閉服務(wù)器，這個(gè)事件在服務(wù)器即將關(guān)閉之前發(fā) 生，OPC 服務(wù)器以此通知OPC 客戶程序預(yù)告即將關(guān)閉，OPC 客戶程序應(yīng)該在接 到此事件通知后，立即清除所有的OPC 組并斷開與OPC 服務(wù)器的連接)。

創(chuàng)新互聯(lián)公司專注于阜陽網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供阜陽營銷型網(wǎng)站建設(shè)，阜陽網(wǎng)站制作、阜陽網(wǎng)頁設(shè)計(jì)、阜陽網(wǎng)站官網(wǎng)定制、小程序制作服務(wù)，打造阜陽網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供阜陽網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

怎樣用VB.NET進(jìn)行網(wǎng)絡(luò)編程？

都可以,可以用winsock,也可以自己重寫SOCKET套接字.建議你如果工期緊,可以先用WINSOCK.當(dāng)然最好是自己學(xué)用SOCKET套接字.這對(duì)未來開發(fā)網(wǎng)絡(luò)通訊是很有幫助的.因?yàn)橛肳INSOCK有個(gè)毛病就是殺毒軟件總會(huì)阻止

vb怎么讀取或修改opc變量值?

首先申明OPC對(duì)象：

Option Base 1

Dim WithEvents ServerObj As OPCServer 'OPC Server對(duì)象，連接OPC服務(wù)器

Dim GroupsObj As OPCGroups 'OPC Groups對(duì)象，添加OPC組

Dim WithEvents GroupObj As OPCGroup 'OPC Group對(duì)象

Dim ItemsObj As OPCItems 'OPC Item集合

Dim ServerHandles() As Long '服務(wù)器端OPC Item的句柄

Dim ClientHandles() as Long '客戶端OPC Item的句柄

Dim ItemId(2) As String

Dim Errors() As Long

接下來，生成各個(gè)對(duì)象：

If ServerObj Is Nothing Then Set ServerObj = New OPCServer

'連接OPC服務(wù)器

If ServerObj.ServerState = OPCDisconnected Then

ServerObj.Connect ("OPC.SimaticNET") '假設(shè)OPC服務(wù)器運(yùn)行在本機(jī)

End If

If GroupsObj Is Nothing Then Set GroupsObj = ServerObj.OPCGroups

If GroupObj Is Nothing Then Set GroupObj = GroupsObj.Add

If ItemsObj Is Nothing Then Set ItemsObj = GroupObj.OPCItems

GroupObj.IsActive = True '設(shè)置組為活動(dòng)狀態(tài)

'假設(shè)有兩個(gè)數(shù)據(jù)源，一個(gè)是8位開關(guān)量輸入，一個(gè)是8位開關(guān)量輸出

ItemId(1) = "S7:[S7 connection_1]IB0"

ItemId(2) = "S7:[S7 connection_1]QB0"

ClientHandles(1) = 1

ClientHandles(2) = 2

'添加組項(xiàng)目，ServerHandles數(shù)組的值為各個(gè)OPC Item的服務(wù)器句柄,

' ClientHandles數(shù)組的值為各個(gè)OPC Item的客戶端句柄，由應(yīng)用程序設(shè)定

Call ItemsObj.AddItems(2, ItemId, ClientHandles, ServerHandles, Errors)

VB.NET的OPC讀取西門子PLC數(shù)值轉(zhuǎn)換

12601, 轉(zhuǎn)換成16進(jìn)制是3139，16進(jìn)制 ASC嗎31對(duì)應(yīng)字符1， 39對(duì)應(yīng)9。 后面的用這個(gè)思路去轉(zhuǎn)換就對(duì)上了。

0001 2569這兩個(gè)應(yīng)該是和格式相關(guān)的字符。0001一般就是開始的意思。

一個(gè)變量包含兩個(gè)字符，轉(zhuǎn)換算法如下。

1。 取高位字符，除以H100， H是VB中16進(jìn)制表示法。 除以H100效果是右移8位。 位了保險(xiǎn)起見，再和H00FF做與運(yùn)算，保證取得的ASC碼是合法的。

2。取低位字符，與H00FF做與運(yùn)算，去掉高位數(shù)據(jù)，剩下的就是低位ASC碼。

3。將ASC碼轉(zhuǎn)換為字符，用CHR函數(shù)即可，然后連接所有的字符即可得String