Question

请高手指教：用VB控件Winsock的UDP协议，发送16进制数到单片机出现问题？

我总共需要发送12个（byte型）16进制数到单片机，然后用串口助手从单片机取回我发到单片机的数据。出现以下问题：
1.结果和数据个数不对，我总共发送了12个16进制的数据，串口助手上却出现4个错误的数据。
　　2.比如我向单片机发送16进制的3和4,sckClient.SendData 3
　　　　　　　　　　　　　　　　　　sckClient.SendData 4
结果串口助手上显示的是33 00 34 00 ，33是字符3的16进制ASCII码，34是字符4的16进制ASCII码，还会重复两次再现00？？？
下面是发送16进制数据的程序，如下：
Private Sub cmdSend_Click() '发送数据
Dim i, j As Integer
Dim fsData(11) As Byte
For i = 0 To 11
If txtData(i).Text = "" Then
MsgBox "请输入第" & i + 1 & "位数据！", vbInformation, "提示"
Exit Sub
Else
fsData(i) = "&H" & txtData(i).Text
End If
Next i
For j = 0 To 11
sckClient.SendData fsData(j)　'这里发送了12个16进制的数据，结果串口助手上显示了4具错误的数据？？
Next j
End Sub

Answer 1

我用mscomm控件也遇到了同样的问题，问题出现在发送的方式不对：
错误1.
sckClient.SendData 3
这么发是不对的，如果想发送数值型数据，必须把数值保存在byte数组中，以二进制方式发送，这里你想发送3和4，试一下这样行不行：
dim a(0 to 1) as byte
a(0)=3
a(1)=4
sckClient.SendData a

错误2：
fsData(i) = "&H" & txtData(i).Text
这样的话你的byte数组中可能会是文本，试试改成这样：
fsData(i) = clng（"&H" & txtData(i).Text）

错误3：
For j = 0 To 11
sckClient.SendData fsData(j)　'这里发送了12个16进制的数据，结果串口助手上显示了4具错误的数据？？
Next j

不要用循环发送，直接发送数组：
sckClient.SendData fsData

追问

谢谢你的回答我先验证下.
有个疑问:为什么发送数组的时候,只发数组名就可以了呢?

追答

好像只有byte数组才是这样的，也许是由数据类型决定的吧。我想问一下，你用winsock控件是如何与单片机进行通信的呢？

追问

利用winsock的UDP协议与单片机通信,
不好意思,具体我也不是很清楚,因我只负责软件方面的编写,硬件方面的不是我在写.

追答

UDP协议发送的数据包好像是64字节的，不知道这样发会收到什么。这个问题我也没有试验过，咱们得一起探讨，呵呵。
你还是先试一下，然后把结果共享一下，不行咱们再接着研究哈。。。

追问

非常感谢！我试了下，好像可以，串口助手和单片机能正常显示我发的数据了。
我问了下我们公司的搞硬件的，他说在UDP协议设置了下，不接受不相关的字符或数据。
错误2：
“ fsData(i) = "&H" & txtData(i).Text
这样的话你的byte数组中可能会是文本，试试改成这样：
fsData(i) = clng（"&H" & txtData(i).Text）”这里我试了下，不加Clng或加Cbyte单片机都能正确收到我发的数据。

追答

不用谢，我还要感谢你能共享结果呢，呵呵。。。

Answer 2

用microsoft comm control 控件 不会出错 编程超简单 控件在工程->部件里 祝你好运

追问

你这个是串口编程用的，我现在用的是通过PC网口与单片机通信。

Answer 3

等待高手的出现