Foxtable(狐表)用户栏目专家坐堂 → 显示乱码


  共有1763人关注过本帖树形打印复制链接

主题:显示乱码

帅哥哟,离线,有人找我吗?
lshshlxsh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:7628 威望:0 精华:0 注册:2013/12/11 17:49:00
显示乱码  发帖心情 Post By:2020/12/4 17:09:00 [只看该作者]

请问老师 16进制的 输出显示乱码怎么办?
Dim cnt As Integer = Ports("COM5").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    Ports("COM5").Read(val,0,cnt)
    Dim s As String = Ports("COM5").GetString(val)
    If Forms("窗口1").Opened =True Then
        Dim ts As WinForm.Label = Forms("窗口1").Controls("Label1")
        ts.Text = s
    End If
End If


乱码  ???賫逢?嗇????????賫逢?唆????????賫逢?唆????????賫逢?嗇?????






以下为写入内容  编码  Encoding.UTF8


Ports.Add("COM5")
With Ports("COM5")
  .Close()
    .BaudRate = 230400
    .DataBits = 8
.Encoding = Encoding.UTF8
    .StopBits = StopBits.One
    .Parity = Parity.None
    .DtrEnable =True
    .RtsEnable =True
    .Open
End With

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/4 17:24:00 [只看该作者]

使用字节的方式收发:http://www.foxtable.com/webhelp/topics/1979.htm

 回到顶部
帅哥哟,离线,有人找我吗?
lshshlxsh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:7628 威望:0 精华:0 注册:2013/12/11 17:49:00
  发帖心情 Post By:2020/12/5 10:09:00 [只看该作者]

谢谢老师,使用字节接收的。

加上     Dim str As String = BitConverter.ToString(rval).Replace("-", " ") 就可以了

 回到顶部