以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  USB转485不能读取数据？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=168977)
--  作者：zmagood
--  发布时间：2021/5/29 10:16:00
--  USB转485不能读取数据？
Dim Va() As Byte = New Byte() {01,03,00,00,00,04,68,09}   \'要发送的字节  }
With Ports(com)       
    .Close()
    .Parity = Parity.None
    .Handshake = Handshake.None
    .StopBits = StopBits.One
    .BaudRate = 4800
    .DataBits = 8
    .Encoding = Encoding.ASCII
    .ReadBufferSize() = 4096
    .WriteBufferSize() = 2048
    .Open()
    .Write(Va,0,Va.Length)  \'发送字节
    Dim cnt As Integer = .BytesToRead   \'接收字节数
    MessageBox.Show(cnt)

cnt为0  ？ 用调试程序可以正常读取
--  作者：有点蓝
--  发布时间：2021/5/29 10:34:00
--  
到事件里接收：http://www.foxtable.com/webhelp/topics/1967.htm
--  作者：zmagood
--  发布时间：2021/5/29 12:33:00
--  
谢谢