VB串口编程的几个问题.docVIP

VB串口编程的几个问题 易兵 目次：串口数据接收方式如何处理不定长数据的接收用字符方式收发码值大于127的字符数据串口通讯问答2串口数据接收方式1、 在OnComm 事件中接收数据：这种方式能充分MSCOMM控件的特性。OnComm 事件还可以检查和处理通讯错误；可以通过检查 CommEvent 属性的值来查询事件和错误；对于不定长数据以及对数据进行处理比较复杂的情况，此法不是很方便。Private Sub MSComm_OnComm ()Select Case MSComm1.CommEvent 错误Case comEventBreak 收到 Break。Case comEventCDTO CD (RLSD) 超时。Case comEventCTSTO CTS Timeout。Case comEventDSRTO DSR Timeout。Case comEventFrame Framing ErrorCase comEventOverrun 数据丢失。Case comEventRxOver接收缓冲区溢出。Case comEventRxParity Parity 错误。Case comEventTxFull 传输缓冲区已满。Case comEventDCB 获取 DCB] 时意外错误 事件Case comEvCD CD 线状态变化。Case comEvCTS CTS 线状态变化。Case comEvDSR DSR 线状态变化。Case comEvRing Ring Indicator 变化。Case comEvReceive 收到 RThreshold # of chars.Case comEvSend 传输缓冲区有 Sthreshold 个字符 Case comEvEof 输入数据流中发现 EOF 字符End SelectEnd Sub2.轮循法采集数据:A、定时器轮循法对于数据包方式收发数据以及不需即时响应情况，用轮循法更好些。实际上轮循法最大的好处在于集中处理数据而且不太占用CPU。轮循法要注意定时采集的时间片段大小；这里用二进制收发模式；使属性RThreshold、SThreshold为0，屏蔽ONCOMM事件。InputMode = comInputModeBinaryRThreshold = 0SThreshold = 0Private Sub TmrComm_Timer()采用轮循法采集数据?Dim Rx_buff() As ByteDim okstring As StringDim ReceivedLen As IntegerOn Error GoTo ErrorHandlerTmrComm.Enabled = False 关闭定时器If commport.InBufferCount 0 ThenReceivedLen = commport.InBufferCountRx_buff = commport.Inputokstring = StrConv(tempbyte, vbUnicode)If ReceivedLen = 6 Then?If Chr(tempbyte(0)) = : And tempbyte(3) = h0a Then....End IfIf Instr(okstring ,:@END*,vbBinaryCompare) Then....End If?End IfTmrComm.Enabled = True 打开定时器End SubB、直接轮循法此法用于接收少量控制命令字； 保存输入子串的缓冲区?Dim Instring As String? 使用 COM1。?MSComm1.CommPort = 1 9600 波特，无奇偶校验，8 位数据，一个停止位。MSComm1.Settings = 9600,N,8,1? 当输入占用时， 告诉控件读入整个缓冲区。?MSComm1.InputLen = 0? 打开端口。?MSComm1.PortOpen = True 将 attention 命令送到调制解调器。?MSComm1.Output = ATV1Q0 Chr$(13) 确保 调制解调器以OK响应。? 等待数据返回到串行端口。?Do?DoEventsBuffer$ = Buffer$ MSComm1.Input?Loop Until InStr(Buffer$, OK vbCRLF) 从串行端口读 OK 响应。? 关闭串行端口。?MSComm1.PortOpen =