opc客戶端編程匯編-在線瀏覽
2025-05-25 06:21本頁(yè)面
【正文】 AsHandlesbtnDisconnectServer_Click(Nothing,EventArgs())SubPrivateOnGroupDataChange(ByValAsByValAsByRefAsByRefAsByRefAsByRefAsHandlesForAs=ToIf=ThenCaseCaseCStr(ItemValues(i))200測(cè)試7張卡片=CaseCStr(ItemValues(i))202=CaseCStr(ItemValues(i))204=CaseCStr(ItemValues(i))206=CaseCStr(ItemValues(i))ElseEndIfEnd39。PrivatebtnDisconnectServer_Click(ByValAsByValAsHandlesIf(ConnectedOPCServerNothing)TryCatchAs(OPCdisconnect,)=TryEndSub39。Subsender,e)IfIsNotThenTry39。ServerHandles(1)IntegerDimAsServerErrorsServerHandles(1)GlobalOPCItems(0).ServerHandleServerValues(1)139。ServerHandles,ServerErrors)IfThenMsgBox(OpenCardError:amp。ServerErrors(1))End=ServerResult39。1,ServerResult,ServerErrors(1)0=IfCatchAsserverCard,)EndIfEnd讀取卡片指定的塊號(hào)的值PrivatebtnReadCard_Click(ByValAsByValAsNotIsThenTry39。BlockNoShortCByte()39。GlobalOPCBlockItems(BlockNo)Nothing=amp。CStr(BlockNo),+If39。ServerResultsDimAsServerHandles(1)IntegerServerHandles(1)GlobalOPCBlockItems(BlockNo).ServerHandle39。1,ServerResults,ServerErrors(1)0Cardamp。ServerErrors(1))ElseServerResults(1)EndexException(OPCReadfailed:+OPCSample,TryEndSub39。Subsender,e)If(ConnectedGroupNothing)獲取塊號(hào)DimAs=如果要寫(xiě)入數(shù)據(jù)的塊所對(duì)應(yīng)的項(xiàng)還沒(méi)有創(chuàng)建，就創(chuàng)建它IfIsThenGlobalOPCBlockItems(BlockNo)(200BlockNo)End準(zhǔn)備參數(shù)數(shù)組DimAsServerErrorsArrayDimAs==寫(xiě)入值(1,ServerValues,ServerErrors(1)0Cardamp。ServerErrors(1))ElseMsgBox(WriteSucceed)EndexException(OPCWritefailed:+OPCSample,TryEndEnd重設(shè)控件狀態(tài)PrivateResetControlStatus()IfIsThenTrueFalseFalseFalseFalseFalse0000000000000000000000000000000000ElseFalseTrueIf=ThenFalseFalseTrueFalseElseTrueTrueTrueTrueEndIfEnd刷新服務(wù)器狀態(tài)屬性信息PrivateRefreshServerStatus()IfIsNotThen()()With==.DefaultGroupIsActive==IfCStr(.DefaultGroupLocaleID)CStr(.DefaultGroupTimeBias)CStr(.DefaultGroupUpdateRate)EndIfEnd關(guān)閉卡片PrivatebtnCloseCard_Click(ByValAsByValAsConnectedGroupNothingServerHandles(1)IntegerDimAsServerErrorsServerHandles(1)GlobalOPCItems(1).ServerHandleServerValues(1)1(1,ServerValues,ServerErrors(1)0MsgBox(CloseError:amp。ServerErrors(1))EndexException(OPCClosefailed:+OPCSample,TryEndSubEndClassDimAsWithEventsAsWithEventsAsPrivateForm1_Load(ByValAsByValAsTryGlobalOPCServer =()DimAs= ForAs= LBound(ServerList)UBound(ServerList)(ServerList(index))NextIfThen = 0EndNothingCatchAs+ ,TryEnd Connect to OPC serverPrivateButton1_Click(ByValAsByValAsIfNewSet property for Group connection =Add groupConnectedGroup = () = 3 * 1000 =Add itemsGlobalOPCItems(0) = (, 0)GlobalOPCItems(1) = (, 1)GlobalOPCItems(2) = (, 2)CatchAsNothing(OPC server connect failed : OPCSample, )EndIfEnd Disconnect to OPC serverPrivateButton2_Click(ByValAsByValAsIf(ConnectedOPCServerNothing)exException(OPC server disconnect failed: OPCSample, )FinallyConnectedOPCServer =TryEndSubClass HierarchyThe OPC server and the client application municate each other through the interface of COM. The root class is OPC server object, and it accesses the group object and the item object by using this device datas of PLC (ex. 39。 and 39。 etc.) are constructed at the low hierarchy, and you can access the device datas as the unit of item or collection.Declare OPC Objects (OPC Server / OPC Group / OPC Item)For hooking events of OPC Server, add to WithEvents in dimension statement or event handler named OBJECTNAME_EVENTNAME.Dim WithEvents Myserver As OPCServerDim WithEvents Mygroup As OPCGroupDim WithEvents Mygroups As OPCGroupsDim Myitem As OPCItemDim Myitems As OPCItemsDim MyBrowser As OPCBrowserGet OPC Server ListIt is able to get installed OPC Server name by using OPC Server object. In this sample, it shows OPC Server name in list box and operator can select the target server. bnameNext name Create OPC Group Object and Add TagsFor accessing client application to physical device data, it needs to generate OPC Group object in OPC group collection. The OPC Group object can configure update interval of tags. Normally, the device of accessing same cycle will register in same group. Also, you should be carefully CPU performance to create over groups because OPC Server create a thread for each group.0xC039。 = TruePublic Sub Mygroup_DataChange(ByVal TID As Long, _ ByVal NumItems As Long, Chd() As Long, ItemValues() As Variant, _ Qualities() As Long, TimeStamps() As Date) For i = 1 To NumItems ItemValues(i) + : + TimeStamps(i) + _: + Qualities(i) Next iEnd SubSync Read/Write
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1