串口接收过程中怎样将末尾3位字符数据去掉?
代码如下: 数据
显示为999.9E+0 ,怎样把后面的E+0去掉? Public Sub ReceiveSerialData_GR() Dim iReceivedbytes As Integer,i As Integer Dim bReadByte() As Byte Dim SendReady As Boolean Dim strReceiveBytes As String Try SerialPort1.PortName = COM1 SerialPort1.
open() SerialPort1.RtsEnable = True SerialPort1.Write(Order + vbCrLf) SendReady = SerialPort1.CtsHolding Thread.Sleep(100) If SendReady = True Then Msg
Box( Ready ) Else Msg
Box( Not Ready ) End If iReceivedbytes = SerialPort1.BytesToRead buffer中所有字节数 ReDim bReadByte(iReceivedbytes - 1) SerialPort1.Read(bReadByte,iReceivedbytes) For i = 0 To iReceivedbytes - 1 strReceiveBytes = CStr(bReadByte(i)) strReceiveBytes = Asc(bReadByte(i) + 32) Aod = Chr(IIf(Len(strReceiveBytes) > 1,strReceiveBytes,0 & strReceiveBytes) & ) Msg
Box(Aod) Text
Box1.Text = Text
Box1.Text + Aod Text
Box1.Text = Microsoft.VisualBasic.Right(Text
Box1.Text,14) Next Msg
Box(SerialPort1.ReadChar) If iReceivedbytes > 0 Then Text
Box1.Text = Text
Box1.Text + SerialPort1.ReadChar Else SerialPort1.RtsEnable = False SerialPort1.Close() End If Catch ex As Exception Msg
Box( 接收失败 ) End Try End Sub __________________________________________________________________________ 坐个沙发不容易啊..up __________________________________________________________________________ 自己顶一下 ! __________________________________________________________________________ 看看 __________________________________________________________________________ 接完了SubString __________________________________________________________________________ 说的详细点好么? __________________________________________________________________________ str为你接收后的字符 str.Substring(0,str.LastIndexOf( E )); __________________________________________________________________________ 可能大小写上有点问题,到IDE中写一下就可以了。 __________________________________________________________________________ str1为你接收后的字符 p as integer p=str1.length-3 str1.substring(0,p) __________________________________________________________________________ xuexi __________________________________________________________________________
原文地址:https://www.jb51.cc/vb/263516.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。