OPC客戶端的自動(dòng)化

/ＯPC客戶端的自動(dòng)化實(shí)現(xiàn)OＰＣ是建立在COＭ,DCOM的基礎(chǔ)商的，因此絕大多數(shù)語(yǔ)言都可以很好的進(jìn)行開(kāi)發(fā).在Net中開(kāi)發(fā)客戶端有以下幾種方式:(1)

使用OPCNetＡPＩ,需要用到OPＣNｅtAPI．dlｌ，.ｄll（2)

使用自動(dòng)化接口，需要用到OPCＤAAutｏ.dｌl(3)

使用自定義接口,需要用到多個(gè)Wrapper：ＯpcRｃw。Ａe。ｄll，OｐcＲｃw。Ｂatch．ｄll,n.dｌｌ，ＯpcＲcw．Da．dll，OpｃRcw。Dx.dlｌ,OpcRcw。Ｈdａ。ｄlｌ,OpcRｃw．Seｃ．ｄlｌ以上開(kāi)發(fā)方式所需的動(dòng)態(tài)鏈接庫(kù)可以從OPＣ基金會(huì)（）的網(wǎng)站上下載,一些下載項(xiàng)目可能需要注冊(cè)，或成為基金會(huì)的成員。不同的方式有各自的有缺點(diǎn)，請(qǐng)參見(jiàn)…本文使用自動(dòng)化接口,VB．Net語(yǔ)言進(jìn)行開(kāi)發(fā),開(kāi)發(fā)項(xiàng)目是無(wú)線射頻（RFID)卡方面的應(yīng)用，典型的如公交車(chē)，或公司考勤使用的刷卡機(jī).需要注意的是自動(dòng)化接口存在一個(gè)“不是問(wèn)題”的問(wèn)題,數(shù)組下標(biāo)是以１開(kāi)始的，而不是傳統(tǒng)計(jì)算機(jī)開(kāi)發(fā)上的以０開(kāi)始.不知道設(shè)計(jì)者頭腦是怎么想(有人知道嗎?)；這可能會(huì)給一些語(yǔ)言的開(kāi)發(fā)造成問(wèn)題（有人碰到嗎，沒(méi)有你就是幸運(yùn)的)需求:OPCDAAｕto。dll或該Dll的Interop(一）

：客戶端開(kāi)發(fā)流程ＯPC客戶端的開(kāi)發(fā)主要遵循下圖所示的開(kāi)發(fā)流程，下面就從以下幾個(gè)開(kāi)發(fā)步驟進(jìn)行說(shuō)明

?

（二）

:枚舉OＰC服務(wù)器列表枚舉服務(wù)器主要是通過(guò)OPCSeｒvｅr接口的ＧetOPCServeｒs方法來(lái)實(shí)現(xiàn)的,該方法會(huì)返回ＯＰC服務(wù)器數(shù)組(以1為下界，上面已有說(shuō)明)，以下是代碼段＇枚舉OPC服務(wù)器列表PrｉvaｔeＳｕbFｏrm1_Load（ByVａlsenderAsＳysｔem。Obｊect，ByＶａlｅＡsSystｅｍ。EｖenｔArｇs）HａnｄｌｅsMyBaｓe．LoaｄTｒyＧｌｏbaｌOPCSerｖeｒ＝ＮｅwOPCAutomａｔion。ＯPＣSeｒveｒClass（）ＤimServerListAsObject=GlobalOＰＣSerｖeｒ。GeｔOＰＣServersFｏrindexＡsＳhort＝LBound（ＳerverLisｔ)TｏUBoｕｎd(ServｅrＬisｔ）’加入控件列表中,注意這里使用LＢoｕnd和UBounｄcbbSｅrverLｉsｔ。Iteｍｓ.Add(ServerList（ｉndex))ＮｅxtIｆcbbＳｅrverLｉsｔ．Iｔems.Ｃｏuｎt>０TheｎcbbServeｒList.SelecｔｅdＩndex＝0EｎｄＩfResetCoｎｔrｏｌSｔaｔus(）'設(shè)置控件狀態(tài)ＧlobalOＰCＳeｒｖer=NothｉngCaｔｃhＥxＡsExcｅｐtionMessageBox.Show（"LisｔＯPCserverｓｆａiled:＂+Ex。Mｅｓsaｇe，＂ＯPCSamplｅ"，MessageBoxButtｏns。OK）EndTryＥndSub（三)

：連接OＰC服務(wù)器自動(dòng)化接口中連接到服務(wù)器是使用connｅｃt方法PｕｂｌiｃＯｖerridａbｌeSubCoｎnect（ＢyValProgIDＡsＳtｒｉnｇ，OptionalByVａlNoｄｅAsOｂｊｅct=Nothiｎg）PrｏgID指服務(wù)器的ProｇID，Ｎoｄｅ代表網(wǎng)絡(luò)節(jié)點(diǎn),如果是本機(jī)則放空即可。連接到服務(wù)器后，以下屬性需要特別注意：ＯＰCSｅｒｖer.StarｔＴｉmｅ：服務(wù)器的啟動(dòng)時(shí)間OPＣSeｒver。CuｒrenｔTｉｍｅ：服務(wù)器的當(dāng)前時(shí)間，各個(gè)客戶端可以通過(guò)這個(gè)屬性值完成一些同步的操作OPCGroups.DeｆaultGｒoupIsAｃtive：以后添加的Group是否默認(rèn)激活OPCGroups。DｅfａulｔGroｕpDeadBand：Grouｐ的默認(rèn)死區(qū),變化量超過(guò)死區(qū)后將會(huì)觸發(fā)DataChaｎge事件,合理的設(shè)置該值可以提高程序性能OPCGroｕps.Coｕnt:下屬組(Ｇrouｐ)的數(shù)量ＯPCGrｏups．DeｆauｌｔGroupLocalＩD：組(Ｇroｕp)的默認(rèn)通信區(qū)域編號(hào)，如10２４OＰCGｒoｕpｓ.DeｆａｕltGｒoupＵpdａt(yī)eRaｔe：組(Group）的默認(rèn)刷新率,該屬性也比較重要OPCGｒｏｕps。DｅfaｕｌｔＧroupＴiｍeBiａs:組（Groｕp)的默認(rèn)時(shí)間偏差(四）

：添加組(Groｕp)和項(xiàng)（Ｉtem)添加組和項(xiàng)需要用到Grouｐs．Ａdd和Iｔｅｍs。AｄdIｔem方法，以下是原型:ＦuncｔionAｄd（OptiｏnaｌByValＮamｅＡsＯbｊecｔ=Nothing）AsOＰCＡutomaｔｉｏn。OPCＧroｕpFuncｔiｏｎA(yù)ddＩｔeｍ(ByVａlItemIDAｓStrｉnｇ，ByVａlClientHａndｌeAsＩnｔｅgeｒ)AsＯPCAｕｔomation．OPＣIｔeｍ 組也有兩個(gè)重要的屬性 Grouｐ．UpdateＲate：刷新率，該屬性通Ｇrｏups的UｐdaｔeＲatｅ意義一樣，如果這個(gè)值有設(shè)置,則以這個(gè)值為準(zhǔn) Gｒoup。IsSuｂscribeｄ:是否使用訂閱功能 以下是代碼段?'連接到指定的ＯPＣ服務(wù)器ＰrivaｔｅSｕbbtnConｎeｃtSｅrver_Ｃlick（ＢyValsenderAsSｙstem.Obｊeｃt，ＢyVａｌeAsSｙｓteｍ．EｖenｔArgs)HandlesbｔnConnectＳervｅr．ClickIfcbbＳｅrｖeｒＬist.Text<>＂"TheｎConnectｅｄＯPCServeｒ=ＮewＯPＣＡutomation.ＯPＣＳerverＣlａss（）ＴryConｎeｃtedＯPＣServer.Ｃoｎnect(ｃbbSｅrverLｉst.Texｔ)＇設(shè)置組集合的默認(rèn)屬性ConnecｔedOＰＣＳｅrｖeｒ。OPCGrouｐs。DeｆaultGrouｐIsActive=ＴrueＣｏｎnecteｄOPCＳｅrｖer．OＰCGｒoｕｐｓ．DｅfａultGroupＤeadbａnd＝0'添加組ＣｏnneｃtedＧｒｏup＝CｏnｎｅｃtedOPＣServeｒ.OPCGroups。Add（）ConnectedGrｏｕp。ＵpdateＲaｔe=３＊1000＇刷新慮,用于下面的ＤaｔaＣhangｅ事件CｏnnecｔedＧroup．ＩsSubscｒｉbed＝True'使用訂閱功能＇添加項(xiàng)GlobａｌOＰCIｔｅms（0）＝ＣonｎecｔｅdGrouｐ．OPCIｔｅms.AddIｔｅｍ("Reader＿Dｅvｉcｅ.OpｅnＣarｄ＂，０）GｌoｂaｌＯPＣIteｍs（１)=CｏnｎｅcteｄＧroｕp.OPCＩｔeｍs。AddItem（"Reaｄeｒ＿Ｄeviｃe.CloｓｅCard”,1）ＧloｂalOＰCItｅｍs(2)=CｏｎnectｅdGroｕp．ＯPCItｅｍs．ＡdｄItem（"RｅaderdNＯ”，2)ＲｅfｒeshSeｒverＳtatus（）'刷新服務(wù)器狀態(tài)CaｔcｈexAsExceptionConnectedＯPCSeｒver＝NｏｔhingMessａgeBox。Show(＂OPCsｅrvｅrconｎｅctｆａilｅd：”+ex。Ｍessage，"OPCSａmｐle”,MｅｓｓａｇｅBｏｘB(niǎo)uttonｓ.OK）EnｄTｒyResｅtContｒoｌStａｔuｓ()EnｄIｆEndSub(五)

：讀寫(xiě)操作與事件控制讀寫(xiě)操作包括同步和異步兩種操作方式，以下是這幾個(gè)方法的原型:Groｕｐ的同步讀事件SｕbＳyｎcReａd（ＢyValSｏuｒｃeAsShort,ByValＮｕmItemsAsInteger，ＢｙＲｅfSｅrveｒHandlesAsSｙstｅm。Aｒrａy，ＢyRefValuｅsAsSysｔｅｍ。Arraｙ,ＢyＲｅfErrｏrsAsSystem.Arraｙ，OptioｎａlByRｅfＱuａlｉtｉｅsAｓOｂｊecｔ＝Noｔhinｇ，OｐtｉoｎaｌByRefＴｉmeStampｓAｓObｊect=Nｏtｈｉng）

Ｇroup的同步寫(xiě)事件SuｂSｙncWｒitｅ（BｙＶalNｕmＩｔｅｍsＡsＩntegｅr，ByRefSerｖｅｒHandｌｅsAsSystem．Aｒｒay,ByＲefVａluesAsSystem.Ａｒray，ByRefErｒorsAsＳｙｓteｍ。Array)

Ｇroup的異步讀事件SｕbAsyncRead(ByＶａlNｕmIｔeｍsAｓＩｎtｅger，ByReｆSeｒverHanｄlesAsSyｓtem.Array，BｙＲeｆErrｏrsＡsＳystem。Arrａy，ByVaｌTraｎsactionIDAｓＩntegｅr，ByＲｅfCanceｌＩDAsInｔｅｇer)

Ｇroup的異步寫(xiě)事件ＳubＡｓyncWrｉtｅ(ByVaｌＮumIｔｅmｓＡsＩnteｇｅr,ByＲｅfServerHandlesAsＳysteｍ．Ａrｒaｙ,ByRefＶaluesAsSysｔeｍ。Arraｙ，ByRｅfErｒｏｒsAsＳystem.Arraｙ，ＢyValTransaｃtioｎI(lǐng)DＡsIntegｅr，ByRｅfCaｎcelIＤAsInteger）如果使用異步的讀寫(xiě)操作,那么還需要實(shí)現(xiàn)Ｇroｕｐ中的ReadCｏｍpｌete和WriteＣompleｔe兩個(gè)事件ＰublicEｖenｔAsｙncReadＣomｐleｔe（ByＶalＴｒａnsactionＩＤAsInteger，BｙＶalNumItｅmsＡsIｎtｅgｅr,ＢyＲefClientＨanｄlｅsAsSysｔem。Ａrray,BｙＲefIｔemＶaluesAｓSｙstem．Array,ByＲefＱuaｌｉtiesAsSysｔem。Arraｙ，ByＲｅfTimeSｔaｍｐｓAsSysteｍ．Aｒray，ByＲｅfErrorsAsＳystｅm．Ａrray)

PublicＥventAｓｙncWriteComplete（ByVaｌTｒansactｉonIDAsIｎtegeｒ,ＢyＶａｌＮuｍItｅmsAsInｔeger，ByRefCｌieｎtHandlesAsSysteｍ．Arrａy，ByReｆＥrｒｏrsAsSysteｍ.Arraｙ)其他相關(guān)的重要事件包括:Gｒｏup數(shù)據(jù)變化時(shí)的通知事件ＰuｂlicEvｅｎｔDataCｈａnge(ByValTｒａnsaｃｔionIDＡsInteｇｅr,BｙVａlNｕmItｅmｓAｓInteger，ByReｆClientHandlesＡｓＳyｓtem．Array,BｙReｆItｅmＶaluesＡｓＳｙｓtem。Arｒaｙ,ByＲｅｆQualｉtiesAsＳｙstem．Aｒray，ＢyRefＴimeＳtampsAsSystｅm.Arrａｙ）

Grouｐ的異步取消事件PｕbliｃＥventAsyncCancｅlCｏmpｌete(ByVａlCaｎcelIDAsＩnteger）

Seｒｖeｒ（服務(wù)器)關(guān)閉通知事件PubｌicEventＳeｒverShutDown(ByValReａsｏnAsStrｉnｇ)

以下是這些實(shí)現(xiàn)的代碼段'讀取卡片指定的塊號(hào)的值ＰrｉvaｔｅSｕbbtnＲeadCard_Ｃｌick（ByVａlseｎｄerAsSysｔem。Objecｔ,ByＶalｅAsＳysｔｅm.ＥventArgs)IｆNot(ConnｅctedＧrｏｕpIsＮothing)ＴhenＴry’獲取塊號(hào)ＤimBlockＮoAsＳhort＝CByte（ReadBlｏｃｋＮo.Teｘt）’如果要獲取數(shù)據(jù)的塊所對(duì)應(yīng)的項(xiàng)還沒(méi)有創(chuàng)建,就創(chuàng)建它IｆGlobalOＰCBｌocｋItｅms（BlockＮｏ）IsＮｏthinｇTｈenＧlobａlOＰCBlｏckItems（BｌｏckNｏ）＝ＣoｎnｅctedGrｏuｐ．OＰCItems。AddＩｔem("Reader_Deｖice.Blｏｃk＂＆CStｒ(ＢlockNo)，2０0+ＢlockNｏ)EndIｆ＇準(zhǔn)備參數(shù)數(shù)組DiｍServｅrResultsAｓSysｔeｍ。ArｒayDimServerErroｒsＡsSysｔem。AｒrayＤimServｅｒＨaｎdｌes(１)AsIntｅgerServｅrHａndleｓ(1)=ＧｌobalＯPCBｌocｋＩtｅmｓ（ＢｌoｃkNｏ）．ＳerverHandle’讀取值ConnｅcteｄGroup.SynｃReａd（OPＣAｕtomａｔion．OPCＤatａSource.OＰCDevice,1，SeｒverHａndles,ServerRｅsｕlｔs，ServｅrErrors）IｆSeｒｖｅrErｒors（１)<>0ＴhenMsgＢox（＂ReadCａrｄFailed:"＆ServeｒErrｏrｓ（１))ElｓetｘtReａdＢloｃｋNｏ.Text＝SｅrverResuｌｔs（1)EndＩfCatcheｘAsExcｅpｔionMｅｓsａｇeＢox．Ｓｈow（"OPCserｖｅrReａdCaｒｄfaｉｌed：＂+eｘ．Mesｓａge,"OPCＳamplｅ＂,MｅssaｇeBｏxButｔons．OK）ＥｎdTryEndIfEndSuｂ

’寫(xiě)卡片指定塊的值PrｉvaｔeSubbｔnWｒitｅCａrｄ＿Click(ByValsｅndｅrＡsSysｔeｍ．Object，BｙＶaｌeAsＳysｔem。EvenｔAｒgs）ＩfNot(CoｎneｃtｅdGroupIsNothing）ＴheｎTｒy＇獲取塊號(hào)ＤiｍＢloｃkNoAsSｈｏｒt=CByte（WｒｉteBloｃkＮｏ.Text）'如果要寫(xiě)入數(shù)據(jù)的塊所對(duì)應(yīng)的項(xiàng)還沒(méi)有創(chuàng)建，就創(chuàng)建它IfGlobａｌOPＣBloｃｋＩteｍs(ＢlockＮo)IsNothinｇThenＧlobaｌOPCBｌｏckIteｍs（BｌockNｏ)=ConnectｅdGrｏup．OPＣItｅms．AｄｄItem(”Ｒeaｄer_Device．Blｏｃk＂＆CＳtｒ(BlocｋNo)，200+BlocｋNｏ)EｎｄIf'準(zhǔn)備參數(shù)數(shù)組DｉｍＳerｖerValｕeｓ(１）ＡsObjectDiｍServerErroｒsAｓＡrrayDｉｍSeｒverHａndles（1）ＡｓIntegerSｅｒveｒHaｎdles（１)=GlobａｌＯＰCＢｌocｋItems（BｌockNo）.ＳerｖerHａndleＳｅｒverValuｅs（1）＝ｔｘtWｒiｔｅBlｏckNｏ。Teｘt’寫(xiě)入值CｏnnｅcｔedＧｒoup。SynｃＷrite(1，SerｖeｒＨａndles,ＳeｒveｒVaｌues,ServerＥrｒors)IfServerErrorｓ（１）〈>0ＴhenＭｓｇＢox（”WrｉtｅCaｒdFailｅd：＂＆SeｒverErroｒs（1))ElseMｓgＢoｘ(”ＷｒiteCaｒdＳｕcｃeed"）EndIｆCａt(yī)ｃｈexＡｓExcｅptiｏnMesｓageＢoｘ。Show（"OＰCｓeｒverWriteCardfaｉleｄ："+ｅx．Mｅｓｓａgｅ,”O(jiān)PＣSaｍpｌe”，MessaｇｅBoｘB(niǎo)uｔtoｎs。ＯK）EndＴryEnｄIｆEｎdSub（六）

：斷開(kāi)服務(wù)器斷開(kāi)服務(wù)器只要使用ＯＰＣSｅrver的Dｉsconnｅct方法幾個(gè),以下是代碼段：'斷開(kāi)到指定ＯＰC服務(wù)器的連接PriｖateSuｂbｔnＤｉsconnecｔSerｖer_Click(ByValseｎdｅrＡｓSystem．Obｊect，ByＶaleＡsＳysteｍ.EvｅntArｇs)ＨandleｓbｔnＤisconnecｔSeｒver．ClickIfNｏt（ConnectedOＰCＳｅrｖerIsNotｈinｇ)ThｅｎＴryＣｏｎnectedＯＰCServｅr。Disconnecｔ（）ＣaｔｃhｅｘAｓExｃeｐtiｏnMessagｅＢｏｘ．Show（”O(jiān)PCseｒverdiｓｃｏｎnectfaiｌed:”+eｘ。Mｅsｓａge，”O(jiān)PCSａmple”,ＭeｓｓageBoｘB(niǎo)ｕttons．ＯK）FiｎａｌlyＣoｎnecｔedOPCＳｅｒvｅr＝NｏthingＲｅsｅｔContｒｏlSｔａt(yī)uｓ（)ＥndTryEndIfEｎdＳub(七)

：相關(guān)鏈接非常好的一個(gè)OPC技術(shù)網(wǎng)站ＯPC基金會(huì)網(wǎng)址國(guó)內(nèi)的一個(gè)比較好的ＯPC網(wǎng)站(八）：全部源碼Imporｔs

Syｓtｅｍ.Ruｎｔime。InterｏpSｅrvices?Ｐｕblic

Clａsｓ

Form１?

Ｄiｍ

GlobaｌＯPCSｅrver

Ａs

OＰＣAｕtｏｍaｔｉｏn。ＯPＣServerClasｓ

Dｉｍ

WithEvents

ConneｃteｄOPCSeｒｖer

Aｓ

OPCAutomatioｎ。OPCSｅrｖｅrＣｌａss

Diｍ

WithEveｎts

ConnectedGrｏuｐ

Aｓ

OＰＣAutomａt(yī)ion．OPCＧｒｏupＣlａss

?

Ｄim

ＧlobａlOPCIｔｅms(4)

Ａs

OＰCAutoｍation。OPCIteｍ

Dim

GｌoｂａｌOPＣＢｌockIｔeｍs（６4）

Ａs

OＰCAuｔｏｍaｔioｎ.OＰCＩteｍ

??

'枚舉OＰＣ服務(wù)器列表?

Prｉvaｔe

Sｕｂ

Forｍ1_Load(BｙＶal

sｅnｄer

As

Sｙｓｔｅm。Oｂｊeｃt,

ByVal

e

As

Syｓtｅm。EvｅｎtＡrgｓ)

Haｎdles

MｙBase。Ｌｏaｄ

Ｔry?

GloｂalＯPＣＳerｖer

=

New

OPCAutｏmatiｏn。ＯPCServerＣlass（）

Dim

SeｒvｅｒLiｓt

Ａs

Oｂjｅct

=

GｌoｂaｌOPＣＳerｖｅr.ＧｅtOＰCＳerveｒs?

For

ｉnｄex

As

Sｈｏrt

=

LＢoｕnd（ＳerveｒLiｓt）

Ｔo

UBound(ServｅｒList）

’加入控件列表中，注意這里使用LBound和ＵBｏｕｎｄ

ｃbｂSeｒverLｉｓt．Ｉｔeｍｓ.Add（ServerLisｔ(indｅx）)

Next

If

cｂｂServerＬｉｓｔ.Iｔems。Couｎt

>

０

Then

cbｂSerｖerLｉst．SｅlｅctｅdＩndex

=

０?

End

If

ＲeｓeｔＣoｎtrolStａt(yī)uｓ（）

'設(shè)置控件狀態(tài)

GlｏbaｌOPＣＳeｒver

＝

Nothing?

Cａt(yī)cｈ

Ex

As

Eｘceｐｔiｏn

MeｓsageBox。Show(＂Ｌiｓt

ＯＰＣ

servｅrs

faiｌed：

”

+

Ex.Ｍessａge，

"OPCSamplｅ”，

MessａgeＢｏxBuｔtons.OK）?

Ｅｎd

Ｔrｙ?

End

Sub?

’連接到指定的ＯPC服務(wù)器?

Ｐrｉｖａt(yī)ｅ

Sub

ｂtnＣoｎneｃtSerｖｅｒ＿Cｌiｃｋ(ＢｙＶal

ｓｅnder

As

Systｅm.Ｏｂｊecｔ,

ByVal

e

As

System.ＥｖｅntAｒgs)

Haｎｄleｓ

btｎConneｃtServer。Click?

Ｉｆ

cbbSｅrverList。Text

＜〉

""

Then?

ConnectedOPCServｅr

＝

Nｅw

ＯPCAutomaｔiｏｎ.OPCSerｖerClass（）?

Tｒy?

CoｎneｃteｄOＰCServer。Conｎeｃｔ(cbbＳerｖerLiｓｔ。Text）?

’設(shè)置組集合的默認(rèn)屬性

ＣoｎｎｅctｅｄＯＰCServer。OPCGroups.DｅfaultＧrouｐIｓAcｔive

＝

Truｅ?

ＣonｎeｃtedOＰCServeｒ.ＯPＣGroupｓ．DeｆaｕltGrｏupDeａｄbanｄ

=

0?

’添加組

ＣｏnnectedGｒouｐ

＝

ConnｅｃｔｅｄＯPCＳerｖeｒ。OPCGrouｐs．Ａｄd(）

CoｎｎectedGroup.Upｄａt(yī)eRate

=

3

＊

1000

'刷新慮,用于下面的ＤataＣhanｇe事件?

ConnｅｃteｄGroｕp．IsSｕbｓcribed

=

True

'使用訂閱功能?

'添加項(xiàng)

ＧlｏbaｌＯPCItems(0）

=

ＣonnｅctedＧrｏuｐ.OＰCIteｍs.ＡdｄIteｍ("Reａder＿Devｉcｅ。OｐenCard"，

0）?

GｌｏbalＯPCItｅms（1）

=

ConnecｔedGｒoｕp．OPCIｔemｓ．ＡｄdItem（＂Reａder＿Devicｅ。CloseCａｒd”，

1）

GloｂalOＰＣItemｓ（2）

＝

ConneｃtedGroｕｐ.OPCItems。AｄdＩtem("ReａderdNO",

２)?

ＲeｆreｓhServｅrStatuｓ（)

’刷新服務(wù)器狀態(tài)?

Catｃｈ

eｘ

Ａs

Exｃeptiｏn?

ConnectedOPCＳervｅr

=

Nothｉng

MessagｅＢox．Show("OPC

ｓｅrvｅｒ

ｃoｎnecｔ

fａiｌed

：

"

＋

ex．Mesｓａge，

”O(jiān)PCＳampｌｅ"，

ＭeｓｓageBoxＢuttons.OK）

Enｄ

Try

ResetCｏntroｌStatｕs（）

End

If

Enｄ

Sub?

’服務(wù)器斷開(kāi)事件通知

Ｐrｉvaｔe

Sub

OnServｅｒShuｔＤｏwn（ByVａl

Reasｏn

As

Ｓtｒｉng）

Handｌes

CoｎnectｅdＯPCServｅｒ。SerｖｅrＳｈｕｔＤown?

bｔnＤisconnｅctServer_Click(Nｏthing，

New

EvｅntＡrgs()）?

Eｎd

Sub

?

Prｉvate

Sｕb

OnGrouｐDａt(yī)aCｈangｅ（ＢyVａl

TｒansactｉonＩD

As

Integer,

ByVａl

ＮumIｔemｓ

As

Integｅr，

ＢyRｅｆ

CliｅntHａndles

As

Sysｔem。Arrａy,

BｙＲeｆ

ItｅmVａlues

Ａｓ

Systｅm.Ａrｒａy,

BｙRｅf

Ｑuａｌitｉes

As

System．Arｒａｙ,

ByRef

TimeStampｓ

Aｓ

System.Aｒray）

Hａｎｄｌes

ConnectｅｄGｒｏｕp.ＤataCｈaｎge?

Ｆor

i

Ａs

Intｅgｅｒ

=

1

To

NｕmItｅｍｓ

If

Qualｉties（i）

=

OＰCＡutoｍation。OPCQｕalitｙ．OPCQualｉtyGood

Tｈen?

Select

Caｓe

ＣliｅntHandles(ｉ)

Case

2?

ｔxｔCａrｄN(xiāo)o．Text

＝

CＳtr（IteｍＶaｌｕｅs(i））

Ｃaｓe

2００

'測(cè)試7張卡片

ｔxｔＶaｌuｅBloｃk0.Text

=

CStｒ（IｔemValues（i))

Ｃａsｅ

20１

tｘｔValｕeＢlｏck1。Text

=

CStr（ＩｔeｍValues(ｉ））

Case

202?

tｘtValueBｌocｋ2。Ｔｅｘt

=

CＳｔｒ(ItｅmValｕes（ｉ））

Ｃase

20３

tｘtＶａｌuｅＢlock3.Text

=

CStｒ(ItemＶalues（ｉ））

Cａse

20４?

tｘtVａlueＢｌock4.Tｅｘt

＝

ＣＳtｒ(ItemVａｌueｓ(i））?

Ｃase

205

ｔｘｔＶalueBloｃｋ5．Tｅｘｔ

＝

ＣStｒ(ItemVａlues(i)）

Case

２06?

txｔValueBlocｋ6。Ｔｅxt

=

ＣStｒ（IｔemＶaｌueｓ(i)）?

Caｓe

207

txtValueBlocｋ7。Text

=

CSｔr（ItｅmVａｌｕes（ｉ））

Case

Else?

Enｄ

Selecｔ

?

Ｅｎd

If

Neｘt

Ｅｎd

Suｂ

??

’斷開(kāi)到指定OＰC服務(wù)器的連接?

Ｐriｖate

Sub

btnDiｓconnectＳｅrｖer＿Cliｃk(ByVaｌ

ｓenｄeｒ

As

Systeｍ.Obｊect，

ByＶａｌ

e

As

Syｓｔem.EｖenｔArgs)

Haｎｄlｅs

btｎDiscoｎnectSｅrver.Ｃlick?

Ｉf

Not

(ConnectedOPCSｅｒver

Ｉs

Ｎoｔｈing）

Then?

Try?

ConneｃtｅｄＯPCServer．Diｓcｏnｎect（）?

Catch

eｘ

As

Exceptioｎ

MessagｅＢoｘ.Show（＂ＯPC

ｓerver

discｏｎｎeｃt

failed：

"

＋

ex．Message，

”O(jiān)PCSaｍple＂，

MessagｅBoｘB(niǎo)uttonｓ.ＯK）

Ｆinaｌｌy?

CoｎｎectedOＰＣSerｖｅr

＝

Noｔｈｉｎg?

ResetControｌＳtatuｓ（)?

End

Ｔrｙ?

Ｅｎd

Ｉｆ?

Eｎｄ

Ｓub

?

’開(kāi)卡,并返回卡號(hào)

Pｒivａｔｅ

Suｂ

bｔｎOｐeｎＣaｒd_Cliｃk(ByVal

sender

Ａs

Systeｍ.Object，

ＢｙＶal

e

As

Ｓｙｓtem.EvｅnｔＡrｇs)?

If

CoｎｎectedGｒoｕp

ＩｓNot

Nothing

Then

Ｔry?

＇準(zhǔn)備參數(shù)數(shù)組

Dim

ServｅｒHaｎdles（１)

As

Ｉntegｅｒ

Ｄim

ＳerveｒVａlues（1)

As

Objecｔ

Ｄim

ServｅｒErｒors

As

Sｙsｔeｍ。Ａrray?

SｅrveｒＨandｌes（1)

＝

GlobalＯＰCItems（０)。SｅrｖerHaｎdle?

SeｒveｒValues（1）

=

1

'寫(xiě)入值,用于執(zhí)行OｐｅｎCard的操作?

ＣonnecｔｅｄGrｏｕp．SynｃWｒite（1，

SｅrvｅrＨaｎdlｅs，

ＳeｒveｒValｕes,

ＳｅｒverEｒrｏrs）

If

SｅrverErrors(1）

＜>

0

Thｅn

MsgBox（＂OpｅｎCａrdＥrror：

”

＆

ＳeｒverErｒｏrｓ（1)）

End

Ｉf

ServerHandles(1)

=

ＧlｏbalOPCIteｍｓ（2）．ServerHandle?

Ｄiｍ

ＳeｒvｅrResulｔ

As

Systｅm。Aｒｒay

'讀取卡號(hào)?

CｏnnｅｃtedGrｏup．SyncReａd(OＰCAｕtｏmatiｏn．OＰCDａt(yī)ａSｏurce.ＯPCDeｖｉce，

1，

ServerＨandlｅs，

SeｒｖerRｅｓｕｌt，

ServerＥｒｒorｓ）?

Iｆ

ＳeｒｖerEｒrｏrs（1）

〈＞

0

Then?

MsgBｏx（＂ReaｄＣaｒdNoErｒｏr:

”

&

SｅｒverErｒors（1）)?

Ｅlse?

ｔxｔＣardNo。Ｔext

=

ServerRｅｓult(1)?

End

Iｆ

Caｔｃh

ｅx

Ａｓ

Excｅｐｔion

MeｓsａgeＢｏx.Show（"OPC

ｓervｅｒ

Open

Card

failed：

”

+

eｘ。Messagｅ，

”O(jiān)ＰＣSamｐｌe",

ＭessageBoxＢutｔons.OK)

Eｎd

Trｙ

ＲeｓeｔＣontｒｏlＳｔatuｓ()

Ｅnd

If?

End

Sｕｂ??

'讀取卡片指定的塊號(hào)的值

Privａｔe

Sub

ｂtｎＲeadCａrd_Ｃlick(BｙVal

sｅｎdｅｒ

Aｓ

Ｓysｔeｍ．Object,

ＢｙVal

e

As

Systｅm.EvｅｎtArｇs）?

Iｆ

Ｎot

（CｏnnectedGroup

Is

Nothing）

Then?

Try

＇獲取塊號(hào)

Diｍ

BlocｋNo

As

Shｏｒt

＝

ＣBｙte（ＲeａｄBｌockNo。Teｘt）

'如果要獲取數(shù)據(jù)的塊所對(duì)應(yīng)的項(xiàng)還沒(méi)有創(chuàng)建，就創(chuàng)建它

Ｉf

ＧloｂａlOPＣＢlｏcｋIteｍｓ（BｌｏckNｏ）

Is

Nｏtｈｉng

Tｈeｎ?

ＧlobａlOＰＣBlｏckItｅmｓ(ＢlocｋＮo）

＝

CｏnnｅcｔedGroｕp．OPCＩtｅmｓ．AdｄItｅｍ(”Ｒeadeｒ_Ｄevice．Bｌｏck＂

＆

ＣStｒ(BlocｋＮo),

2０0

+

ＢｌｏckNo）

Enｄ

If

＇準(zhǔn)備參數(shù)數(shù)組

Dｉm

SerｖeｒＲesuｌts

Ａs

Systeｍ．Ａrｒａy?

Diｍ

SerｖerＥrrorｓ

Ａs

Ｓyｓtem.Arraｙ?

Dim

ServerHａndles（1)

As

Ｉntｅger?

ＳerｖｅrHaｎｄles（１)

=

GloｂalＯPCBlｏckItems（BlockNo)．ＳerverHａndｌe

’讀取值

ＣonnecｔedGｒｏuｐ。ＳyncRead(OPCAuｔｏｍation.ＯPCDataSource.OPCDevice，

1,

SｅｒverHaｎdlｅs，

ＳeｒveｒReｓｕlts，

SerｖeｒErｒorｓ）?

If

ServｅｒＥrrorｓ(1)

〈>

0

Then?

ＭsgBoｘ("Read

Ｃard

Fａiled:＂

&

ServｅrＥrrors(1）)

Eｌse?

tｘtReａdＢlocｋNo.Text

=

ＳerｖerＲeｓults（1）

Eｎd

Iｆ?

Catch

ｅx

As

Exception?

MessaｇeBox．Ｓｈow(”O(jiān)PC

serveｒ

Read

Card

failｅd：

＂

+

ex.Mｅｓsage，

"OPＣSａｍｐle”，

MessageＢｏxＢuttons．ＯK)?

Enｄ

Try

Ｅnd

If

Ｅｎd

Sub??

’寫(xiě)卡片指定塊的值?

Pｒｉｖatｅ

Sub

btnＷriｔｅCaｒd＿Click（ByVal

seｎder

As

Sｙstem。Objecｔ，

BｙVal

e

As

Sysｔem.EveｎtArgs)?

Ｉf

Nｏt

（ConnectedＧrｏuｐ

Ｉs

Nｏthｉng)

Then

Try

’獲取塊號(hào)

Ｄｉm

BloｃkNo

As

Sｈoｒt

＝

CByte(ＷriteBlｏckＮo．Texｔ)?

’如果要寫(xiě)入數(shù)據(jù)的塊所對(duì)應(yīng)的項(xiàng)還沒(méi)有創(chuàng)建,就創(chuàng)建它?

Iｆ

GlobａｌOPCBlocｋIｔｅms(ＢlｏcｋNｏ)

Ｉｓ

Ｎｏthing

Then?

GlobalOPCBloｃｋItems（BloｃkNo)

=

CｏｎnectedGrｏup。OＰCItemｓ.ＡｄdＩtｅm(”Reader_Device.Block”

&

CＳｔr(BlｏcｋNo），

2０0

＋

ＢloｃkＮo)?

Enｄ

If

’準(zhǔn)備參數(shù)數(shù)組

Dim

ServerVaｌues（1）

As

Objｅcｔ?

Ｄｉm

SｅrvｅrEｒｒoｒs

As

Ａrray

Ｄim

ＳｅｒｖerHａndles(1）

As

Ｉntegｅr

SｅrｖerHanｄlｅs（1）

＝

GlobalOPCＢlockItems（ＢlockNo)。SerｖerＨaｎdlｅ

SｅrvｅrValｕes（1）

=

tｘtWｒiteBlockNo。Teｘt

’寫(xiě)入值?

ＣoｎnectｅdGroup.SyncWriｔe（１，

ServｅrHaｎdles，

SeｒｖerValues，

SｅrvｅrＥrｒｏrｓ)?

Ｉf

SｅｒveｒErrors（1）

<〉

0

Theｎ?

MsgBox（”Writｅ

Ｃard

Faｉled:"

&

ServerErｒors（1））?

Else

MsgＢox（＂Wriｔｅ

Ｃａrd

Ｓucceeｄ”)?

Ｅnｄ

If?

Catch

ex

As

Excｅptｉon?

MessagｅBox．Show（”O(jiān)PC

ｓerver

Write

Card

faileｄ：

"

＋

ex．Ｍessage，

”O(jiān)PCＳamｐle”，

MeｓsaｇeＢoxBuｔｔｏns。OＫ）

End

Try?

Enｄ

If

End

Sub

'重設(shè)控件狀態(tài)

Private

Ｓub

ReｓeｔCoｎtrolＳｔａt(yī)ｕs（)?

Ｉf

ＣoｎｎeｃteｄOPCServer

Is

Nothing

Tｈｅｎ?

btnＣonｎecｔSｅrｖｅr.Enａbleｄ

=

True

ｂｔnDisｃonneｃtServer.Ｅnabled

=

Faｌsｅ

btnReadCard.Ｅｎabled

＝

Fａlse

btnWｒiteＣard。Ｅｎabled

＝

Faｌse?

btnOpｅnCａrｄ。Enａbleｄ

＝

Fａlｓe?

btnCｌosｅＣard.Ｅnabled

＝

Falsｅ

ReａdBlockNｏ.Vａlue

=

０?

WrｉteBｌockNo．Ｖａｌue

=

0

txtReadBlｏckNo.Ｔext

=

”＂

txｔWrｉｔeBlockNo．Text

＝

”0０00000０００”

ｔxtCarｄN(xiāo)o．Text

=

＂"

?

txtSｒｖStarｔTｉme.Tｅｘt

=

"＂

ｔxtSｒｖCurrTime．Texｔ

=

”"

txtＳrvＧroupＣount。Text

＝

"＂?

txtSrｖGroｕpＤｅａdBand.Ｔexｔ

=

＂"

tｘtＳrvGroupDｅfAｃｔivｅ。Tｅxｔ

=

＂"?

tｘtSrvGroupLocalID。Ｔeｘt

=

”"?

txtSrvＧroupＴimeＢias.Tｅxｔ

=

＂"

txtSrvRequestRate.Text

=

＂"?

Ｅlse

ｂtｎＣonｎeｃtSｅrver．Ｅnabled

＝

False?

btnDｉｓconnectServer．Eｎableｄ

=

Tｒue?

Iｆ

ｔxtCardNｏ．Text

=

””

Then

btnReaｄCard。Ｅnablｅd

=

False

ｂtnＷriteCarｄ.Ｅnabled

=