串口传输XML文件时注意情况

本人在进行串口数据传输时。测试通过XML传输文件时,返回这样的情况

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim Tmp1 As String = "111.11"
  Dim Tmp2 As String = "333.33"
  Dim Tmp3 As String = "444.44"
  Dim InPutStr As String = <IO>
  <Flow>*<%= Tmp1.PadLeft(10, "0") %></Flow>
  <Speed>*<%= Tmp2.PadLeft(10, "0") %></Speed>
  <Sum>*<%= Tmp3.PadLeft(10, "0") %>*</Sum>
  </IO>
  Dim TmpString As String
  Dim myEncoding As Encoding = Encoding.GetEncoding("utf-8")
  Dim Temp As Byte() = myEncoding.GetBytes(InPutStr)
  Rs232.Write(InPutStr)

  System.Threading.Thread.Sleep(100)

  TmpString = Rs232.ReadExisting()

  Dim mystr As String() = TmpString.Split("*")

  For Each c As String In mystr
  Console.WriteLine(c)
  Next

  Console.WriteLine(TmpString)

  Rs232.Close()
  End Sub

  ''返回结果
  '111.11
  '333.33
  '444.44

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  With Rs232
  .PortName = "COM1"
  .BaudRate = 9600
  .StopBits = Ports.StopBits.One
  .DataBits = 8
  .Parity = Ports.Parity.None

  End With
   
  If Rs232.IsOpen = False Then Rs232.Open() '打开串口

  End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值