vb串口通讯依据Modbus协议，返回值混乱，请各位大虾给个例子，帮帮小弟

Question

vb串口通讯依据Modbus协议，返回值混乱，请各位大虾给个例子，帮帮小弟，
本人刚工作，第一份工作，希望大家帮忙

Answer 1

    Ask(0) = &H1
    Ask(1) = &H4
    Ask(2) = &H1
    Ask(3) = &H0
    Ask(4) = &H41
    Ask(5) = &H89
mscomm1.output=ask

Answer 2

使用CRC校验，兄弟能否谈谈接受时要进行的步骤啊

Answer 3

http://topic.csdn.net/u/20090722/11/23be88a4-bc3f-49b2-9dea-ef33a2fe764f.html

Answer 4

Sub SlaveSender_Collection() '//////////////////参数采集通讯语句发送
    If Not Mainboard.MSComm1.PortOpen Then
        Exit Sub
    End If
    Mainboard.Tcong.Interval = 10
    Mainboard.Tcong.Enabled = True‘RTU模式前期静音
    Do
        If Not Mainboard.Tcong.Enabled Then
            Exit Do
        End If
        DoEvents
    Loop
    Bover = False
    Dim Clear0() As Byte
    Mainboard.MSComm1.InputLen = 0
    Clear0 = Mainboard.MSComm1.Input‘///清楚接收区
    Mainboard.MSComm1.Output = sendSj_Collection
    Bover = False
    Bkong = False
    Mainboard.Tcong.Interval = 30
    Mainboard.Tcong.Enabled = True‘后期延时
    Mainboard.MSComm1.RThreshold = 8
    Ninput = 8
    Do
        If Not Mainboard.Tcong.Enabled Then
            Exit Do
        End If
        If Bover Then
            Exit Do
        End If        DoEvents
    Loop
    Mainboard.Tcong.Enabled = False
    If Bover Then‘Bover为顺利接收数据标志
        TFeedBackDataTranslation Num‘ 进一步处理通讯结果
    End If
    ReDim arr(0 To 1) As Byte
End Sub
在通讯中常有丢失现象，既查询10次，返回8、9次，请帮忙看看

Answer 5

这个也许对你有帮助：
http://download.csdn.net/source/1262066