主题：请LXL版主指教，有关串口接收的数据包格式

电子吊称中的仪表串口发送微机的到数据包是十六制的。但接收的一串串“25517013481272311660041760016226”这样的数字，这不是厂家说的十六制呀？

 

项目：代码如下

With Ports("COM1")
    Dim cnt As Integer = .BytesToRead
    If cnt > 0 Then '缓冲区是否有数据
       Dim Val(cnt - 1) As Byte
       .Read(val,0,cnt)
         Dim v As String
         For Each t As Byte In Val
             v = v & t
         Next
         if forms("电子称重").opened then
             forms("电子称重").controls("textbox8").value = forms("电子称重").controls("textbox8").value & v
         else
             forms("电子称重").open()
             forms("电子称重").controls("textbox8").value = v

         end if
    End If
End With

 

请教下，是代码有问题吗？

因为至少十六制数据包必包含FF AA。但“25517013481272311660041760016226”是否任何字母的，肯定于厂家说的十六制不相符，请各位帮帮忙。不知错在哪里？

 

七、附数据包分析：

ff aa 0d 30 0d da e1 a6 00 0f 01 cc 10 00 01 03 98

0xFF 0xAA为帧头；

0x0D为帧长度；

0x30识别码；

0x0d 0xda 0xe1，为地址码，即AD板编号，高位在前，相当于当前AD板编号为0x0ddae1，换成十进制即为0908001；

0xa6，为状态字节，表示当前数据为实时上传重量数据；

0x00 0x0f 0x01 0xcc 为仪表上传的实时重量信息，高位在前，为实际重量的100位，实际重量为0x000f01cc/100,即983500/100；

0x10 为数据项的第五字节，即00010000b，D0D1为0，说明当前仪表显示没有小数点，微机直接显示没有小数点的数据即可，若接收的数据为983500，直接显示成9835kg即可；如果D0D1为2，若接收的数据为983500，则应显示为9835.00kg；D2D3为0，说明当前仪表称重状态为毛重；D4为1,表明当前重量还不稳定，当D4为0时，当前重量稳定，仪表上显示稳定标志；

 

 

看说明，应当不是十进制转换成十六制的。因为需要根据数据包进行分析的。

如果要完整取出数据包，用一个字符串变量显示出来，如“

ff aa 0d 30 0d da e1 a6 00 0f 01 cc 10 00 01 03 98" 十六制的形式的。

 

请各位，指点！本人拆腾了半天也弄不出来。

请问，使用这个System.Text.Encoding.ASCII.GetString(val)就可以了吗？

谢谢，我试试。

 是这样，仪表数据是每隔0.3秒发送一次的，数据包含不稳定标志，只有含稳定标志的数据包才可取重量。担心0.3秒内取到的数据是不完整的。

"00 0f 01 cc“仪表发送的重量数据包部分，表示重量是953800，BitConverter.ToInt32(val,8)这个还真不懂.其中‘8’表示取8个字节吧。Val是字节数组，没有从第几个字节取数，不明白？谢LXL版主指点！

 

另外，val(9) And 16    这个也不太明白。不好意思！别笑话我了！！请教了！！！

太谢谢lxl版主热心帮助。我试试先！有遇到问题，再请求帮忙，再此表示忠心感谢！！！

LXL版主请进，现读取串口数据包是 

 

With Ports("COM1")
    Dim cnt As Integer = .BytesToRead
    If cnt > 0 Then '缓冲区是否有数据
       Dim Val(cnt - 1) As Byte
       .Read(val,0,cnt)

       Messagebox.show(BitConverter.ToString(val))
    End If
End With

 

得到字符串是 

FF-AA-0D-30-0D-CE-64-A6-00-11-45-E0-00-00-07-03-5F

字节之间含“-”

 

"00-11-45-E0“仪表发送的重量数据包部分，表示重量，BitConverter.ToInt32(val,8)这样不行吧，请LXL版主指点！