OPC客户端的自动化

/ＯPC客户端的自动化实现OＰＣ是建立在COＭ,DCOM的基础商的，因此绝大多数语言都可以很好的进行开发.在Net中开发客户端有以下几种方式:(1)

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

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

使用自定义接口,需要用到多个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ｌ以上开发方式所需的动态链接库可以从OPＣ基金会（）的网站上下载,一些下载项目可能需要注册，或成为基金会的成员。不同的方式有各自的有缺点，请参见…本文使用自动化接口,VB．Net语言进行开发,开发项目是无线射频（RFID)卡方面的应用，典型的如公交车，或公司考勤使用的刷卡机.需要注意的是自动化接口存在一个“不是问题”的问题,数组下标是以１开始的，而不是传统计算机开发上的以０开始.不知道设计者头脑是怎么想(有人知道吗?)；这可能会给一些语言的开发造成问题（有人碰到吗，没有你就是幸运的)需求:OPCDAAｕto。dll或该Dll的Interop(一）

：客户端开发流程ＯPC客户端的开发主要遵循下图所示的开发流程，下面就从以下几个开发步骤进行说明

ﻫ

（二）

:枚举OＰC服务器列表枚举服务器主要是通过OPCSeｒvｅr接口的ＧetOPCServeｒs方法来实现的,该方法会返回ＯＰC服务器数组(以1为下界，上面已有说明)，以下是代码段＇枚举OPC服务器列表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(）'设置控件状态Ｇ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服务器自动化接口中连接到服务器是使用connｅｃt方法PｕｂｌiｃＯｖerridａbｌeSubCoｎnect（ＢyValProgIDＡsＳtｒｉnｇ，OptionalByVａlNoｄｅAsOｂｊｅct=Nothiｎg）PrｏgID指服务器的ProｇID，Ｎoｄｅ代表网络节点,如果是本机则放空即可。连接到服务器后，以下属性需要特别注意：ＯＰCSｅｒｖer.StarｔＴｉmｅ：服务器的启动时间OPＣSeｒver。CuｒrenｔTｉｍｅ：服务器的当前时间，各个客户端可以通过这个属性值完成一些同步的操作OPCGroups.DeｆaultGｒoupIsAｃtive：以后添加的Group是否默认激活OPCGroups。DｅfａulｔGroｕpDeadBand：Grouｐ的默认死区,变化量超过死区后将会触发DataChaｎge事件,合理的设置该值可以提高程序性能OPCGroｕps.Coｕnt:下属组(Ｇrouｐ)的数量ＯPCGrｏups．DeｆauｌｔGroupLocalＩD：组(Ｇroｕp)的默认通信区域编号，如10２４OＰCGｒoｕpｓ.DeｆａｕltGｒoupＵpdａteRaｔe：组(Group）的默认刷新率,该属性也比较重要OPCGｒｏｕps。DｅfaｕｌｔＧroupＴiｍeBiａs:组（Groｕp)的默认时间偏差(四）

：添加组(Groｕp)和项（Ｉtem)添加组和项需要用到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ｏｎAddＩｔeｍ(ByVａlItemIDAｓStrｉnｇ，ByVａlClientHａndｌeAsＩnｔｅgeｒ)AsＯPCAｕｔomation．OPＣIｔeｍ 组也有两个重要的属性 Grouｐ．UpdateＲate：刷新率，该属性通Ｇrｏups的UｐdaｔeＲatｅ意义一样，如果这个值有设置,则以这个值为准 Gｒoup。IsSuｂscribeｄ:是否使用订阅功能 以下是代码段ﻩ'连接到指定的ＯPＣ服务器Ｐ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ｔ)＇设置组集合的默认属性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'使用订阅功能＇添加项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（）'刷新服务器状态CaｔcｈexAsExceptionConnectedＯPCSeｒver＝NｏｔhingMessａgeBox。Show(＂OPCsｅrvｅrconｎｅctｆａilｅd：”+ex。Ｍessage，"OPCSａmｐle”,MｅｓｓａｇｅBｏｘButtonｓ.OK）EnｄTｒyResｅtContｒoｌStａｔuｓ()EnｄIｆEndSub(五)

：读写操作与事件控制读写操作包括同步和异步两种操作方式，以下是这几个方法的原型: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的同步写事件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的异步写事件Ｓ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ｎIDＡsIntegｅr，ByRｅfCaｎcelIＤAsInteger）如果使用异步的读写操作,那么还需要实现Ｇroｕｐ中的ReadCｏｍpｌete和WriteＣompleｔe两个事件Ｐ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ｙ)其他相关的重要事件包括:Gｒｏup数据变化时的通知事件Ｐ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ｒ（服务器)关闭通知事件PubｌicEventＳeｒverShutDown(ByValReａsｏnAsStrｉnｇ)

以下是这些实现的代码段'读取卡片指定的块号的值Ｐ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’获取块号ＤimBlockＮoAsＳhort＝CByte（ReadBlｏｃｋＮo.Teｘt）’如果要获取数据的块所对应的项还没有创建,就创建它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ｆ＇准备参数数组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ｂ

’写卡片指定块的值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＇获取块号ＤiｍＢloｃkNoAsSｈｏｒt=CByte（WｒｉteBloｃkＮｏ.Text）'如果要写入数据的块所对应的项还没有创建，就创建它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'准备参数数组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’写入值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ｃｈexＡｓExcｅptiｏnMesｓageＢoｘ。Show（"OＰCｓeｒverWriteCardfaｉleｄ："+ｅx．Mｅｓｓａgｅ,”OPＣSaｍpｌe”，MessaｇｅBoｘBuｔtoｎs。ＯK）EndＴryEnｄIｆEｎdSub（六）

：断开服务器断开服务器只要使用ＯＰＣSｅrver的Dｉsconnｅct方法几个,以下是代码段：'断开到指定ＯＰC服务器的连接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（”OPCseｒverdiｓｃｏｎnectfaiｌed:”+eｘ。Mｅsｓａge，”OPCSａmple”,ＭeｓｓageBoｘBｕttons．ＯK）FiｎａｌlyＣoｎnecｔedOPCＳｅｒvｅr＝NｏthingＲｅsｅｔContｒｏlSｔａtuｓ（)ＥndTryEndIfEｎdＳub(七)

：相关链接非常好的一个OPC技术网站ＯPC基金会网址国内的一个比较好的ＯPC网站(八）：全部源码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ａtion．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ＰＣ服务器列表ﻫ

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ａtuｓ（）

'设置控件状态

GlｏbaｌOPＣＳeｒver

＝

Nothingﻫ

Cａtcｈ

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服务器ﻫ

Ｐrｉｖａtｅ

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）ﻫ

’设置组集合的默认属性

Ｃ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ｄａteRate

=

3

＊

1000

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

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

=

True

'使用订阅功能ﻫ

'添加项

Ｇ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ｓ（)

’刷新服务器状态ﻫ

Catｃｈ

eｘ

Ａs

Exｃeptiｏnﻫ

ConnectedOPCＳervｅr

=

Nothｉng

MessagｅＢox．Show("OPC

ｓｅrvｅｒ

ｃoｎnecｔ

fａiｌed

：

"

＋

ex．Mesｓａge，

”OPCＳampｌｅ"，

ＭeｓｓageBoxＢuttons.OK）

Enｄ

Try

ResetCｏntroｌStatｕs（）

End

If

Enｄ

Subﻫ

’服务器断开事件通知

Ｐ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ａtaCｈ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ｄNo．Text

＝

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

Ｃaｓe

2００

'测试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ｂ

ﻫﻫ

’断开到指定OＰC服务器的连接ﻫ

Ｐ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，

”OPCSaｍple＂，

MessagｅBoｘButtonｓ.ＯK）

Ｆinaｌｌyﻫ

CoｎｎectedOＰＣSerｖｅr

＝

Noｔｈｉｎgﻫ

ResetControｌＳtatuｓ（)ﻫ

End

Ｔrｙﻫ

Ｅｎd

Ｉｆﻫ

Eｎｄ

Ｓub

ﻫ

’开卡,并返回卡号

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ﻫ

＇准备参数数组

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

'写入值,用于执行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

'读取卡号ﻫ

CｏnnｅｃtedGrｏup．SyncReａd(OＰCAｕtｏmatiｏn．OＰCDａtａ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ＰＣSamｐｌe",

ＭessageBoxＢutｔons.OK)

Eｎd

Trｙ

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

Ｅnd

Ifﻫ

End

Sｕｂﻫﻫ

'读取卡片指定的块号的值

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

＇获取块号

Diｍ

BlocｋNo

As

Shｏｒt

＝

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

'如果要获取数据的块所对应的项还没有创建，就创建它

Ｉ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

＇准备参数数组

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(”OPC

serveｒ

Read

Card

failｅd：

＂

+

ex.Mｅｓsage，

"OPＣSａｍｐle”，

MessageＢｏxＢuttons．ＯK)ﻫ

Enｄ

Try

Ｅnd

If

Ｅｎd

Subﻫﻫ

’写卡片指定块的值ﻫ

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

’获取块号

Ｄｉm

BloｃkNo

As

Sｈoｒt

＝

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

’如果要写入数据的块所对应的项还没有创建,就创建它ﻫ

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

’准备参数数组

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

’写入值ﻫ

Ｃ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（”OPC

ｓerver

Write

Card

faileｄ：

"

＋

ex．Ｍessage，

”OPCＳamｐle”，

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

End

Tryﻫ

Enｄ

If

End

Sub

'重设控件状态

Private

Ｓub

ReｓeｔCoｎtrolＳｔａtｕ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ｄNo．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

=