opc客戶端的自動(dòng)化-資料下載頁(yè)
2025-06-24 19:00本頁(yè)面
【正文】 ed:+,OPCSample,)EndTryEndIfEndSub39。重設(shè)控件狀態(tài)PrivateSubResetControlStatus()SubResetControlStatus()IfConnectedOPCServerIsNothingThen=True=False=False=False=False=False=0=0==00000000000000000000000000000000=========Else=False=TrueIf=Then=False=False=True=FalseElse=True=True=True=TrueEndIfEndIfEndSub39。刷新服務(wù)器狀態(tài)屬性信息PrivateSubRefreshServerStatus()SubRefreshServerStatus()IfConnectedOPCServerIsNotNothingThen=()=()With=CStr(.Count)=CStr(.DefaultGroupDeadband)If.DefaultGroupIsActiveThen=TrueElse=FalseEndIf=CStr(.DefaultGroupLocaleID)=CStr(.DefaultGroupTimeBias)=CStr(.DefaultGroupUpdateRate)EndWithEndIfEndSub39。關(guān)閉卡片PrivateSubbtnCloseCard_Click()SubbtnCloseCard_Click(ByValsenderAs,ByValeAs)IfConnectedGroupIsNotNothingThenTryDimServerHandles(1)AsIntegerDimServerValues(1)AsObjectDimServerErrorsAsServerHandles(1)=GlobalOPCItems(1).ServerHandleServerValues(1)=1(1,ServerHandles,ServerValues,ServerErrors)IfServerErrors(1)0ThenMsgBox(CloseCardError:amp。ServerErrors(1))EndIfCatchexAsException(OPCserverCloseCardfailed:+,OPCSample,)EndTryEndIfEndSubEndClass
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1