编程论坛 » VB6论坛 » VB 新手，请教各位前辈

declan 发表于 2008-8-3 16:40

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@hotmail.com

declan 发表于 2008-8-3 16:46

对刚才的文本作点注释

在做一个串口通讯的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@hotmail.com

查看完整版本: VB 新手，请教各位前辈