发送"xxxxx" 换行
接受 设备的版本号
通过accessport可以发送接收 但是通过 foxtable 无法接收到数据
Ports.Add("COM4")
Ports("COM4").ReadBufferSize() = 8192
Ports("COM4").WriteBufferSize() = 8192
Ports("COM4").Parity = Parity.None
Ports("COM4").StopBits = StopBits.One
Ports("COM4").BaudRate = 38400
Ports("COM4").DataBits = 8
Ports("COM4").Handshake=Handshake.None
Ports("COM4").ReadTimeout=0
Ports("COM4").WriteTimeout=-1
Ports("COM4").Encoding=Encoding.ASCII
Ports("COM4").Open
Ports("COM4").Write("ATI" & vbcrlf)
Dim s As String
s = Ports("COM4").ReadExisting()
messagebox.show(s)
Ports("COM4").close()
Ports.Remove("COM4")
另想问一下readintervaltiomeout这个数值能否修改
加好友 
发短信
Post By：2018/1/17 16:33:00 [显示全部帖子]
Post By：2018/1/18 16:13:00 [显示全部帖子]
此主题相关图片如下：1.png
