| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 615 人关注过本帖
标题:VB 新手,请教各位前辈
只看楼主 加入收藏
declan
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-8-3
收藏
 问题点数:0 回复次数:1 
VB 新手,请教各位前辈
在做一个串口通讯的exe,PC端先循环发送握手信号&H20,一旦检测到握手成功,就发送命令信号&H2,然后再进行下一步操作。问题是:
      在发送命令信号&H2时,根据打印的信息,下位机接收到的仍然是握手信号&H20,为什么会这样?
      后来尝试在检测到握手成功后清空发送缓冲和接收缓冲,再发送命令信号,结果得不到改观;
      而后又尝试在检测到握手成功后清空发送缓冲和接收缓冲、关闭串口,再打开串口,再执行清空发送缓冲和接收缓冲,再发送命令信号,结果仍得
      不到改观。代码片断如下:
      Do
        MSComm1.OutBufferCount = 0
        MSComm1.InBufferCount = 0
        sendbyte (HS_CODE)
        If IsRxDataReady(1, 0) = True Then
            ReDim returnData(1)
            returnData = ReadRxData(10)
            If returnData(0) Then
                Exit Do
            End If
        End If
    Loop

    MSComm1.PortOpen = False
    MSComm1.OutBufferCount = 0
    MSComm1.InBufferCount = 0

    OpenCommPort
    MSComm1.OutBufferCount = 0
    MSComm1.InBufferCount = 0
    Do
        MSComm1.OutBufferCount = 0
        MSComm1.InBufferCount = 0
        sendbyte (HS_COMMAND)
        If IsRxDataReady(1, 0) = True Then
            ReDim returnData(1)
            returnData = ReadRxData(1)
            If returnData(0) = CCHR Then
                Exit Do
            End If
        End If
    Loop

各位VB前辈,多多指教,谢谢
如果可以的话,可以QQ指导:36039261,或E-mail:declan.lu@
搜索更多相关主题的帖子: 前辈 
2008-08-03 16:40
declan
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-8-3
收藏
得分:0 
对刚才的文本作点注释
在做一个串口通讯的exe,PC端先循环发送握手信号&H20,一旦检测到握手成功,就发送命令信号&H2,然后再进行下一步操作。问题是:
      在发送命令信号&H2时,根据打印的信息,下位机接收到的仍然是握手信号&H20,为什么会这样?
      后来尝试在检测到握手成功后清空发送缓冲和接收缓冲,再发送命令信号,结果得不到改观;
      而后又尝试在检测到握手成功后清空发送缓冲和接收缓冲、关闭串口,再打开串口,再执行清空发送缓冲和接收缓冲,再发送命令信号,结果仍得
      不到改观。代码片断如下:
      Do
        MSComm1.OutBufferCount = 0
        MSComm1.InBufferCount = 0
        sendbyte (HS_CODE)                        '&H20
        If IsRxDataReady(1, 0) = True Then        '
            ReDim returnData(1)
            returnData = ReadRxData(10)
            If returnData(0) Then                 'Handshak is OK ?
                Exit Do
            End If
        End If
    Loop

    MSComm1.OutBufferCount = 0            'clean buffer
    MSComm1.InBufferCount = 0
    MSComm1.PortOpen = False              'close com port

    OpenCommPort                          'Open com port
    MSComm1.OutBufferCount = 0            'clean buffer
    MSComm1.InBufferCount = 0
    Do
        MSComm1.OutBufferCount = 0
        MSComm1.InBufferCount = 0
        sendbyte (HS_COMMAND)               '&H2
        If IsRxDataReady(1, 0) = True Then
            ReDim returnData(1)
            returnData = ReadRxData(1)
            If returnData(0) = CCHR Then       'Command is OK ?
                Exit Do
            End If
        End If
    Loop

各位VB前辈,多多指教,谢谢
如果可以的话,可以QQ指导:36039261,或E-mail:declan.lu@
2008-08-03 16:46
快速回复:VB 新手,请教各位前辈
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037173 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved