首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

关于串口读出数据后的处理有关问题请问呢

2012-01-23 
关于串口读出数据后的处理问题请教呢!我用WindowsAPI读串口数据接受的时候处理如下:FunctionReadCommPure(

关于串口读出数据后的处理问题请教呢!
我用Windows   API读串口数据接受的时候处理如下:
    Function   ReadCommPure()   As   String
                    Dim   RetBytes   As   Long,   i   As   Integer,retval   As   Long
                    retval   =   ReadFile(ComNum,   bRead(0),   255,   RetBytes,   0)
           
                    If   (RetBytes   >   0)   Then
                                    For   i   =   0   To   RetBytes
                                          ReadCommPure   =   ReadCommPure   &   CStr(bRead(i))
                                    Next
                                Else
                                    FlushComm
                                    ReadCommPure   =   " "
                    End   If
    End   Function

现在数据也读出来了,但是读出来的数据要怎么处理呢?

[解决办法]
根据你的代码看,你最终获得的是字符串。
不知你获得数据用于何用途?

如果仅是一段可理解的文本,以
Open "TESTFILE " For Output As #1
Write #1,ReadCommPure
Close #1

Open "TESTFILE " For Append As #1
Write #1,ReadCommPure
Close #1

存放于文本文件
如果是几个数据的集合,可用MID函数按要求分割,赋值于各变量。
写入数据表。
如果数据用于工业控制则交由后续程序代码处理作出反应。
以上这些代码应至于如下你代码的
Function ReadCommPure() As String
Dim RetBytes As Long, i As Integer,retval As Long
retval = ReadFile(ComNum, bRead(0), 255, RetBytes, 0)

If (RetBytes > 0) Then
For i = 0 To RetBytes
ReadCommPure = ReadCommPure & CStr(bRead(i))
Next
Else
FlushComm
ReadCommPure = " "
End If
End Function
执行Function后的下一代码处。
或置于
ReadCommPure = ReadCommPure & CStr(bRead(i))
语句后。
[解决办法]
http://community.csdn.net/Expert/topic/5327/5327816.xml?temp=.7817499
请参阅本人答复相似问题数据处理的答复。

热点排行