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 Error
Case 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 Select
End Sub

2.轮循法采集数据:
A、定时器轮循法
对于数据包方式收发数据以及不需即时响应情况，用轮循法更好些。实际上轮循法最大的好处在于集中处理数据而且不太占用CPU。轮循法要注意定时采集的时间片段大小；这里用二进制收发模式；使属性RThreshold、SThreshold为0，屏蔽ONCOMM事件。

InputMode = comInputModeBinary
RThreshold = 0
SThreshold = 0

Private Sub TmrComm_Timer()
'采用轮循法采集数据 
Dim Rx_buff() As Byte
Dim okstring As String
Dim ReceivedLen As Integer

On Error GoTo ErrorHandler
TmrComm.Enabled = False '关闭定时器
If commport.InBufferCount > 0 Then
ReceivedLen = commport.InBufferCount
Rx_buff = commport.Input
okstring = StrConv(tempbyte, vbUnicode)
If ReceivedLen = 6 Then 
If Chr(tempbyte(0)) = ":" And tempbyte(3) = &h0a Then
....
End If
If Instr(okstring ,":@END*",vbBinaryCompare) Then
....
End If 
End If
TmrComm.Enabled = True '打开定时器
End Sub

B、直接轮循法
此法用于接收少量控制命令字；
' 保存输入子串的缓冲区 
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 
DoEvents
Buffer$ = Buffer$ & MSComm1.Input 
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' 从串行端口读 "OK" 响应。 
' 关闭串行端口。 
MSComm1.PortOpen = False



如何处理不定长数据的接收

在处理串口通讯时，经常会遇到不定长数据的接收。由于通讯任务不同及编程要求的差异所以采用的方法也有所不同。本文就此问题进行探讨。不定长数据从数据格式上分，可分为有格式和无格式。

一、无格式不定长数据的接收
这种格式在实际串口通讯中用得不多，一般只用传送字符串数据。问题在于怎么判断接收结束。一般用时间延迟的方法解决。
A、对于非握手式通讯，可用一个定时器定时轮循接收，并假定每个轮循接收完成。用ONCOMM事件接收也可，只是不如定时器定时轮循接收简便。
B、对于握手方式通讯，可用直接轮循法提高接收的准确性。下面是实现此法的函数：

Function sComm(sCommand As String, comReceive As MSComm) As String
Dim nReceiveCount As Integer
If comReceive.PortOpen = False Then
comReceive.PortOpen = True
End If

comReceive.Output = sCommand

Do
nReceiveCount = comReceive.InBufferCount
sleep (2) 'API 函数,挂起当前进程一段时间
Loop Until comReceive.InBufferCount = nReceiveCount
If comReceive.PortOpen = True Then
sComm = comReceive.Input
End If
End Function
注：此函数参照了xth一文。
此法一般是能确保数据接收的正确，但由于WINDOWS是多任务操作系统，当有耗时的进程运行时会丢失数据。如果系统会出现这种情况，可增大函数sleep()的参数值。

二、不定长格式数据的接收
对于不定长数据接收最好的方法是制定通讯协议，比如定义开始字符和结束字符。由于单片机系统通讯一般不太复杂，没必要去制定一套象通用计算机间通讯的协议，而根据单片机系统的大小和性能要求制定通讯协议。实际上为便于交流、维护以及一致性，可制定一套可伸缩的通讯协议。定义了开始字符和结束字符就容易实现不定长格式数据通讯，但在实际通讯编程还是容易出现一些比较隐蔽的通讯错误。下面就常用方法分别进行分析。
A、定时器轮循法。
假定每个轮循期数据接收完毕，并在每个轮循期处理数据，由于有开始字符和结束字符很容易确定接收数据的完整性。好象合理设定轮循时间值就万无一失了，但被动接收数据时无论如何也找不合适的轮循时间值，因为启动定时器和数据到来基本不同步，这就会出现一次发送的数据被分在两个轮循期接收，所以被动接收数据时不能假定每个轮循期数据接收完毕。在接收到结束字符后才确定一次数据接收完毕就可解决此问题。
B、OnComm事件法。
方法和定时器轮循法基本相同，因为每次OnCommg事件也只能接收到一部分数据。在VB的在线帮助中这样注解“设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。”。但实际上OnComm事件并不是每收到一个字符便触发一次 OnComm 事件。OnComm事件是在缓冲区收到几个甚至几十个字节数据后才被触发的。版主认为这是WINDOWS多任务使操作系统不能实时响应造成的。如果要在每次OnComm事件接收一个字符似乎可设INPUTLEN属性为1，但实际行不通。VB在线帮助中“有该属性在从输出格式为定长数据的机器读取数据时非常有用”的注解，好象在说对定长字符有效，但版主发现INPUTLEN设为16，接收16个字符定长数据时却被当作两次接收了，一次12个，一次4个。建议在OnComm事件中接收数据要定义通讯协议并检测数据的完整性。 对于不定长格式数据的接收程序员更喜欢定时器轮循法，也许OnComm事件不好控制吧。
对于不定长数据的接收，最佳方法可能是在OnComm事件中启动定时器轮循接收，并同时停止OnComm事件的触发，接收完毕后或超时开启OnComm事件。 


用字符方式收发码值大于127的字符数据

VB的通讯控件友好、功能强大，编程速度快是众人皆知的。加上VB的易学、易用，快速开发等特点，数据通讯量不是很大时，在单片机通讯领域广泛地使用VB开发PC上层通讯软件。实际开发时会有不少问题，这里就用字符方式收发码值大127的字符数据进行讨论。
在实际开发中经常遇到通讯只是用来发送一些控制字符命令和少量数据。在VB的中文在线帮助中有“若数据只用 ANSI 字符集，则用 comInputModeText”的表述。 ANSI字符集是0-127这容易使人误解为&h88也可用“INPUTMIDE=comInputModeText”方式收发。我刚开始用VB编通讯模块时就为此迷惑过，网上不少网友也时常问及这种问题。实际上在VB中0-127是可以正常收发的，大于127即&H7F的只有&H80和&HFF能够收发，其余ANSI字符都被过滤为0。由于串口通讯是以字节收发的，数据如以comInputModeText模式收发则非字符串数据会被过滤。在VB中用“INPUTMIDE = comInputModeBinary” 就可以解决这个问题，只是收发都必须用动态数组来完成。用comInputModeBinary模式编程稍有点复杂，调试也不直观，对于初学者不易掌握。另外软件完成后，在实际应用时会增加工程维护难度，因为对于二进制代码不是易于理解的。比如下端机发送现场统计数据233，comInputModeBinary模式下串口监测到“：A &H233;"，它代表A探针的温度。一般串口监测软件要么用ASCII方式显示，要么用二进制方式显示。用ASCII方式则不能看到&H233，而二进制方式则示不好理解，如果显示58 65 233 59，我想没有人喜欢这种方式（如果有更好的方式的话）。但如果显示“：A 2 3 3 ；”不就解决问题了！用comInputModeText方式就可完成任务了，只是多了一段数据分离程序。对于一般通讯要求这种方法不为是一种好方法。由于通讯任务是多种多样的，有时候这种方法就有点力不从心了，如传送较多的的数据时，这会显著地增加通讯量，通讯变得复杂了，对于单片机系统就不太合适了；还有一些特殊要求，如数据包的识别符也不适此法，但能确定传送数据码值范围也可用此法。下面介绍另一种方法，此法适用比较广，传送二进制数据通讯量增加也不大。
这种方法实际上很简单，实际运用中有不少采用此法。原理是一码分为二码。如设7E为临界字符，对于7E则分为7E和0两个ASCII码，依此类推，8F分为7E和11。接收合并时遇到7E则将7E和后一个ASCII码相加为下字符。下面给出C语言函数，VB转换一下便可。
由于C语言不能返回两个参数，所以用数组指针。


void Filt(char code[],char c)
{
if(c=='F')
{
if(code[0]>=0X7E)
{
code[1]=code[0]-0X7E;
code[0]=0X7E; 
}
else
{
code[1]=0XFF; /*0XFF作为标记code[1]不可能产生0XFF*/
}
}
else if(c=='H')
{
if(code[0]!=0X7E)
{
code[1]=0xFE; /*转换完成标记*/
}
else
{
if(code[1]==0XFE)
{
code[1]=0XFF; /*接收下一个码的标记*/
}
else
{
code[0]=code[0]+code[1];
code[1]=0XFE;
}
}
}
发送时： 
char SendChar[2]; /*存储发送的值*/
....
SendChar[0]=c; /*c为待发ASCII码*/
Filt(SendChar,'F');
if(SendChar(1)==0XFF)
{
..... /*发送SendChar[0]*/
}
else
{
...... /*发送SendChar[0],SendChar[1]*/
}
接收时：
char ReceiveChar[2]; /*存储接收的值*/
.....
ReceiveChar[0]=c0; /*c0接收的ASCII码*/
Filt(ReceiveChar,'H');
if(ReceiveChar[1]==0xFF)
{ 
ReceiveChar[1]=c1; /*c1为下一个*/
Filt(ReceiveChar,'H); 
}
else if(ReceiveChar[1]==0xFE)
{
...... /*存储转换后的ReceiveChar[0]*/
} 
以上代码仅提供一种思路，实际情况视编程需要而定。 


串口通讯问答录 
1、Q：各位vb高手：我有一个问题想请教一下。我从COM口用BIN方式接收到数据（一串汉字），存入一BYTE数组，但无法还原为一串汉字，我认为是ANSI和UNICODE的转换，请问如何转换。
例：字符串“我”，按BIN方式接收成一BYTE数组，其值为“206，210”，如用“CHR（206）+CHR（210）”却无法得到“我”，实际上“我”=CHR（-12860）请问如何能实现BYTE数组（206，210）与字符串“我”之间的转换？万分感谢！！！

JY
1999.10 
A：经CHR（206）+CHR（210）转换后实际上变成了两个UNICODE字符，四个字节了。汉字的收发必须用BINARY方式。下面的程序能实现汉字收发。 
发：
Dim ytemp() As Byte
Dim stemp As String
stemp = "你好！"
ytemp = StrConv(stemp, vbFromUnicode)
Debug.Print UBound(ytemp)
MSComm1.Output = ytemp 
收：
Private Sub mscTest_OnComm()
'中文收发
Dim yTemp() As Byte
Dim stemp As String
Dim i As Integer
If mscTest.InBufferCount > 0 Then
i = mscTest.InBufferCount
yTemp = mscTest.Input
stemp = StrConv(yTemp, vbUnicode)
txtTest1.Text = stemp
End If
End Sub 
Deson 
1999-10-16 

--------------------------------------------------------------------------------

2、Q:各位大侠，在下被两个问题困扰多时，实在无法找到答案，请各位多多指教。
1、在用MSCOMM控件设计通讯程序时，我始终无法将ASC码大于127的值发送出去，查阅了VB论坛以前的文章，按部就班也不行，部分 VB 程序如下，请指教：
Private Sub OkBtn_Click()
Dim Data() as byte
Dim Temp as variant 
redim data(10)
For i = 0 to 10
Data(i) = int(rnd()*256)
next
temp = data
mscomm.output = temp
end Sub 
A：接收方式使用了文本方式，用二进制方式即可。