久久精品搭讪一区二区三区无码 ,精品国产一区二区三区四区精华液

VB與西門子S7300的OPC通信

一、通過STEP7軟件建立一個(gè)新項(xiàng)目OPC,在項(xiàng)目中添加SIMATIC300站和一個(gè)PC站，其中PLC站中第四個(gè)槽安裝的CP343模塊。PC站的第一個(gè)槽為OPCSERVER,第三個(gè)槽為IEGENERAL，然后在NETPRO下配置PLC和PC站的網(wǎng)絡(luò)連接：（注意：是在PC站上新建的網(wǎng)絡(luò)連接，連接類型選的S7連接）

二、通過stationconfigurator軟件配置本機(jī)的PC站（要和STEP7中配置的相同），然后把PLC和PC站都下載下去（注意：下載PC站的時(shí)候要把S7ONLINE（STEP7）－－->；PCinternal(local)）。

三、打開OPCScout,（Start>；SIMATIC>；SIMATICNet>；OPCScout），雙擊&ldquo；OPC

SimaticNet&rdquo；在隨之彈出的&ldquo；ADDGroup&rdquo；對(duì)話框中輸入組名，本例命名為&ldquo；OPC&rdquo；。

點(diǎn)擊OK確認(rèn)；雙擊已添加的連接組（OPC），即彈出&ldquo；OPCNavigator&rdquo；對(duì)話框，此窗口中顯示所有的連接協(xié)議。雙擊&ldquo；S7&rdquo；，在PCStation組態(tài)NetPro中所建的連接名會(huì)被顯示（S7connection_1）。雙擊此連接，即可出現(xiàn)有可能被訪問的對(duì)象樹（bbbbbbstree），在PLC

CPU中已存在的DB塊也會(huì)出現(xiàn)以上完成的OPCSERVER部分的配置。

四、用VB編寫了OPC客戶端應(yīng)用程序。主要程序代碼如下:

在VB中引在VB中還要引用siemensopcdaautomation2.0

(1)連接OPC服務(wù)器

DimWithEventsMyOPCServerAsOPCServer‘定義服務(wù)器對(duì)象變量MyOPCServer

DimWithEventsMyOPCGroupAsOPCGroup‘定義OPC組對(duì)象變量MyOPCGroup

SetMyOPCServer=NewOPCServer

MyOPCServer.Connect"OPC.SimaticNET"‘連接SIMATICNET的OPC服務(wù)器

(2)添加OPC組對(duì)象

SetMyOPCGroup=MyOPCServer.OPCGroups.Add("Group1")

‘添加OPC組對(duì)象

MyOPCGroup.IsSubscribed=True

‘設(shè)置該組數(shù)據(jù)為后臺(tái)刷新

MyOPCGroup.IsActive=True

‘設(shè)置該組為激活狀態(tài)

MyOPCGroup.UpdateRate=1000

‘設(shè)置數(shù)據(jù)刷新時(shí)間為1000

(3)添加數(shù)據(jù)項(xiàng)

DimabItemIDs()Asbbbbbb‘項(xiàng)標(biāo)識(shí)符

DimabClientHandles()AsLong‘客戶端句柄

DimabServerHandles()AsLong‘服務(wù)器端句柄

DimabErrors()AsLong

DimiAsLong

ItemCount=3

abItemIDs(1)="S7:[S7connection_1]IB1"

abItemIDs(2)="S7:[S7connection_1]MB1"

abItemIDs(3)="S7:[S7connection_1]QB1"

fori=1t03

abClientHandles(i)=i‘給客戶端句柄賦值

MyOPCGroup.OPCItems.AddItemsItemCount,abItemIDs,abClientHandles,abServerHandles,abErrors‘添加數(shù)據(jù)項(xiàng)操作

(4)同步數(shù)據(jù)讀寫

OPC數(shù)據(jù)存取有同步方式和異步方式兩種。異步讀寫數(shù)據(jù)復(fù)雜，需要與事件結(jié)合使用，與同步相比速度慢但準(zhǔn)確性高。同步讀寫數(shù)據(jù)簡(jiǎn)單，直接使用OPCItem的方法即可。

DimOneAsOPCItem

DimIndexAsLong

‘Index為標(biāo)簽順序號(hào)

DimOneReadAsbbbbbb

DimXieAsbbbbbb

SetOne=MyOPCGroup.OPCItems(Index)

One.ReadOPCCache

OneRead=One.Value‘讀數(shù)據(jù)

MyOPCGroup.SyncWriteItemCount,ServerHandles,valuess,Errors‘同步寫數(shù)據(jù)

MyOPCGroup.SyncReadOPCCache,ItemCount,ServerHandles,ReadValue,Errors‘同步讀數(shù)據(jù)

One.Write(Xie)‘寫數(shù)據(jù)

若只讀取數(shù)據(jù)，可以使用DataChange事件，當(dāng)控制器中所要訪問的數(shù)據(jù)一旦發(fā)生改變時(shí)將會(huì)觸發(fā)該事件，并將該數(shù)據(jù)自動(dòng)讀到TxtValue文本框。

PrivateSubMyOPCGroup_DataChange(ByValTransbbbbbbIDAsLong,ByValNumItemsAsLong,ClientHandles()AsLong,ItemValues()AsVariant,Qualities()AsLong,TimeStamps()AsDate)‘自動(dòng)刷新數(shù)據(jù)

DimiAsLong

Fori=1ToNumItems

txtValue(ClientHandles(i))=ItemValues(i)‘獲取項(xiàng)的值

txtTime(ClientHandles(i))=TimeStamps(i)‘獲取項(xiàng)的時(shí)間戳

txtQuantity(ClientHandles(i))=GetQualitybbbbbb(Qualities(i))‘獲取項(xiàng)的品質(zhì)

Nexti

EndSub

(5)斷開OPC服務(wù)器

MyOPCServer.OPCGroups.RemoveAll‘移除所有OPCGroup，空出資源

SetMyOPCGroup=Nothing

MyOPCServer.Disconnect‘?dāng)嚅_連接

作者：未知點(diǎn)擊：817次 [打印] [關(guān)閉] [返回頂部]