Question

根据VB的winsock控件的UDP协议,单片机向PC主机发送15个字节的数据,用DataArrival事件怎么收不到呢?急急急!

我把收到的15字节数据,打印出来,为什么全是0呢?　计算结果strData也是零,到底是我的VB程序有问题还是怎么什么问题啊,请大虾指教啊!!!
　部份代码如下:
　Option Explicit
　Dim jsdata(0 To 14) As Byte '用于存放单片机发来15个字节的数据
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim i as byte '用于控制输出　　　　　　　　　　　　　　　　　　　　　　　　　Dim strData As Single '存放计算后的结果　　　　
　　　
　　　sckClient.GetData jsData '接收15个字节的数据,还在在数组中
strData = jsData(1) * 256 + jsData(0) '我只需要前2个字节数据
Text1.Text = strData '将结果赋给文本框
　　　for i = 0 To 14
Print jsData(i) '循环输出
Next i
End Sub

Answer 1

前面声明时要声明成可变数组 Dim jsDATA（） as byte
接收事件前要重新声明：redim jsDATA（bytesTotal) as byte
你最好也把bytesTotal的数组显示出来，监控一下是不是15个字节

追问

谢谢回答.
为什么要声明为动态数组呢?我已经确定了数组元素的个数了.

追答

具体原因我不太清楚，但正常都这么用，你可以先试一试

Answer 2

老大，单片机和PC通讯是通过串口啊 并不需要网络传输啊 winsock一般是网络之间数据传输的啊 串口通信用MSComm控件啊

追问

老大难道你不知道通过网口也能和单片机通信的吗？我个就是要求用网口和单片机通信的。

追答

嘿嘿，我不知道呢，是怎么弄得哦？

Answer 3

UDP协议本来就是一种不负责任的协议，只求量不求质。所以建议你检查单片机的内外部晶振设置等问题。这样也看不出来，把你的上下位机的程序都发出来，大家给你参谋下。

追问

谢谢你的回答.
不过,不是你说的这个问题导致的,我自己已经解决了.