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)服務(wù)項(xiàng)目包括烏海海南網(wǎng)站建設(shè)、烏海海南網(wǎng)站制作、烏海海南網(wǎng)頁(yè)制作以及烏海海南網(wǎng)絡(luò)營(yíng)銷策劃等。多年來(lái),我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,烏海海南網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到烏海海南省份的部分城市,未來(lái)相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
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
我做梯形圖開(kāi)始的,對(duì)于VB不太懂,是不是可以換個(gè)思路,不直接讀PLC,而是通過(guò)wincc的OPC映射?這樣只要找到數(shù)據(jù)在wincc中的符號(hào)名,就能通過(guò)OPC獲取
您好,我用過(guò)的是S7-200 PLC與WINCC通訊,兩者通訊必須使用西門子提供的軟件PC_ACCESS。在PC_ACCESS中建立變量,地址要與PLC變量地址對(duì)應(yīng)。然后通過(guò)wincc的OPC服務(wù)器添加PC_ACCESS里面的變量即可。這樣WINCC就和PLC變量鏈接上了!
首先申明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)