微机串行通信协议研究.docVIP

微机串行通信协议研究 第27卷第4期Vol.27开发研究与设计技术（）TP311.52微机?通信协议研究李卫忠(摘要关键词VB?通信MSComm MSComm提出了针对713800)三原设计?通信协议的一些原则和技巧LI WeizhongLEI Yingjie(Department ofComputer,Missile Institute,Air ForceEngineering University,Sanyuan713800)Ke wordsVB Serialmunication Communicationprotocol是功能带有的专门管?通信的控件为应用程序提供?通信制作规范的协议提高编程效率3物?层应用如果应MSComm用程序需要访问多个?端口可以在Windows控制面板中改变端口地址和中断地址可根据需要市场上有很多品牌的多用户卡控件有很多重要的属性属性描述CommPort设置并返回通信端口号以字符?的形式设置并返回波特率数据位PortOpen也可以打开和关闭端口从接收缓冲区返回和删除字符层InputMode=12.1物?层该层主要负责合?设置控件属性对发送数据准备好时接收output采用中断方式Rthreshold=1每次接收一个字符产生放到自己定义OnComm事件的字符队列?设计一个窗体将下面的代码加入到程序中为控件数目为用户自定义接收缓冲区Ncount为缓冲区InString中字符个数MSCommOk打开状态为TruePublic nCount(NmaxCommPort)As LongPrivate Sub Form_Load()Dim iAs IntegerFor i=0to NmaxCommPort以文本形式取回数据Comm(i).Settings=9600,n,8,1Comm(i).InputMode=0字符方式Rthreshold Rthreshold0?属性设置为Comm(i).Rthreshold=1打开Receive事件陷阱?Comm(i).Sthreshold=0关闭Send事件陷阱Rthreshold1?Next IMSComm都会使控件产生OnComm事件Call MSCommOpen属性为End Sub?设置属性为Sub MSmOpen()MSComm控件产生On ErrorGoTo ErrHandlerOnComm事件Dim iAs Integer控件提供下列两种处?通信的方式For i=0To NmaxCommPort-1可MSCommOk(i)=True以利用MSComm OnComm控件的事件捕获并处?这些通信事件 (2)可以通过检查属性的值来查询事件和错误作者简介机应用（教授）讲师主研方向为计算180nCount(i)=0Comm(i).PortOpen=True Next i DimNok AsInteger Nok=0Fori=0To NmaxCommPort-1If(MSCommOk(i)=True)Then Nok=Nok+1NextiCase FrameFraming ErrorCase OverrunData LostCase RxOverReceive bufferoverflow CaseRxParityParity ErrorCase TxFullTransmit bufferfull EndSelectEnd SubPrivateSub Form_QueryUnload(Cancel AsInteger,Unload If(Nok=0)Then DimMsg As StringDeclare variableDim StyleAs StringDeclare variableDim TitleAsStringDeclare variableMsg=Chr$ (13)+Space$ (5)Msg=Msg+?端口正在被使用!+Space$ (8)+Chr$ (13)+Chr$ (13)请关闭有关程序从通信缓冲区取出放到InString中PrivateSubComm_OnComm(Index AsInteger)Select CaseComm(Index).CommEvent CaseEvReceiveReceived RThreshold#of chars.Call Receive(Index)Case EvCDChange inthe CDline CaseEvCTSChange inthe CTSline CaseEvDSRChange inthe DSRline CaseEvRingChange inthe RingIndicator CaseEvSendThere areSThreshold numberofcharacters inthe transmitbuffer.Case EvEOFAn EOFcharater wasfound inCase BreakA Breakwas receivedCase CDTOCD(RLSD)Timeout CaseCTSTOCTS TimeoutCase DSRTODSR Timeou.Mode AsInteger)Cancel=1End SubPrivateSub Form_Unload(Cancel AsInteger)Call MSmCloseEndSub2.2数据包装层该层主要对数据进?包装发送字符方式进?通信用以识别数据是否组装好数据组装好后Chr (13)然后启动数据发送是否收到控制字符Chr (13)将以下程序作为一个模式文件加入到项目中发送调用过程如果数据组装好将以下程序保存在一模式文件?选用根据1815结论概念频率统计方法保留了统计方法速度快同时又改进了词频统计方法缺乏语义分析的缺点以概念为单位处?文本我们的方法还有以下几方面需要改进词汇之间具有的概念关系是多样的有些概念之间却会彼此消减本文目前仅考虑了由重复性内聚关系引起的概念增强的现象当一组单词表达同一概念(上接第181页)PortNum=nCom If(i1)Then取信息?,但?包含回车字符Chr$ (13)MsgStr=Left$(InString(nCom),i-1)Else MsgStr=End IfIf(Len(InString(nCom)i)Then InString(nCom)=Right$(InString(nCom),Len(InString(nCom)-i)Else InString(nCom)=End IfGetMsgfromCom=TrueEnd FunctionPublicSub MSCommSend(Port AsInteger,SndStr AsString)SndStr=SndStr+Chr$ (13)If(MSCommOk(Port)=True)Then Sio.Comm(Port).output=SndStr EndIfEnd Sub以上两层协议具有通用性2.3应用层该层协议主要负责将用户信息按一定格式组装成可见的码字符?接收时数据到齐后该层具体协议下面以实际应用中一例来介绍这层协议如何具体制订时也就是说它们在表达该概念的强度上是分层次的参考文献1Michael H,Hasan R.Cohesion inEnglish.Longman GroupLtd.,19762Miller GA,Beckwith R,Fellbaum R,et al.Five Paperson WordNet.GSLReport43,Cognitive ScienceLaboratory,Princeton University,19933Stairmand,Mark A.A ComputationalAnalysis ofLexical Cohesionwith Applicationsin InformationRetrievalPh.D.Thesis.Center forComputational Linguistics,UMIST,Manch