vb.net讀寫(xiě)opc vb文件讀寫(xiě)

VB.NET的OPC讀取西門(mén)子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ì)上了。

創(chuàng)新互聯(lián)建站專(zhuān)業(yè)為企業(yè)提供榕江網(wǎng)站建設(shè)、榕江做網(wǎng)站、榕江網(wǎng)站設(shè)計(jì)、榕江網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、榕江企業(yè)網(wǎng)站模板建站服務(wù)，十年榕江做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

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

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

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

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

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

vb.net中，讀取和寫(xiě)入文件

寫(xiě)入：Dim sr As New IO.StreamWriter(Application.StartupPath "/寫(xiě)入的文本.txt")

sr.WriteLine("寫(xiě)入的內(nèi)容") sr.Close()讀?。篒f (File.Exists(Application.StartupPath "/msg.txt")) Then

Dim fm As New IO.FileStream(Application.StartupPath "/讀取的文本.txt", FileMode.Open)

Dim sr As IO.StreamReader = New IO.StreamReader(fm)

Do While sr.Peek() = 0

TextBox1.Text = sr.ReadLine() （讀取文本到文本框）

Loop end if

如何用VB編寫(xiě)OPC客戶端程序

　開(kāi)發(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)行訪問(wèn)的。通過(guò)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ì)象前必須生成，也就是說(shuō)在引用 其他對(duì)象之前必須先創(chuàng)建OPCServer。OPCServer 對(duì)象提供了對(duì)數(shù)據(jù)源訪問(wèn)和通 信的方法，其提供了“Connect”方法來(lái)連接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è)屬性是比較重要的，方 便客戶端程序查詢(xún)服務(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(用來(lái)建立與OPC 數(shù)據(jù)存取服務(wù)器的連接) Disconnect(斷開(kāi)與服務(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 組并斷開(kāi)與OPC 服務(wù)器的連接)。

用VB 編寫(xiě)OPC服務(wù)器客戶端程序，其中老是出現(xiàn)無(wú)效的過(guò)程調(diào)用或參數(shù)，求助！

應(yīng)該是OPCGroup這個(gè)類(lèi)沒(méi)有OPCItems這個(gè)方法提供調(diào)用，或他要求的Index參數(shù)不能是Long型。

vb.net如何建立OPC通訊讀取WINCC中的變量值

您好，我用過(guò)的是S7-200 PLC與WINCC通訊，兩者通訊必須使用西門(mén)子提供的軟件PC_ACCESS。在PC_ACCESS中建立變量，地址要與PLC變量地址對(duì)應(yīng)。然后通過(guò)wincc的OPC服務(wù)器添加PC_ACCESS里面的變量即可。這樣WINCC就和PLC變量鏈接上了！

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

接下來(lái)，生成各個(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位開(kāi)關(guān)量輸入，一個(gè)是8位開(kāi)關(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)

網(wǎng)站名稱(chēng)：vb.net讀寫(xiě)opc vb文件讀寫(xiě)
分享地址：http://m.jiaotiyi.com/article/hjdhhj.html