以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求高手 串口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20245)
--  作者：19891022
--  发布时间：2012/6/2 13:48:00
--  求高手 串口

我现在 要做一个关于串口方面的   我只要接收数据就可以了    我已经在该项目的AfterOpenProject事件中加入代码：

Ports.Add("COM8")
Ports("COM8").Open()

 

也将DataReceived事件代码设置为：

Forms("成品统计").Controls("实际产量").Text = e.Port.ReadExisting()

 

 

 

我要做到的结果就是去串口COM8 接收 字节读写到  成品统计表的   实际产量列就好了       

  
--  作者：19891022
--  发布时间：2012/6/2 13:49:00
--  
Ports.Add("COM8")
With Ports("COM8")
    .Close()
    .Parity = Parity.None
    .Handshake = Handshake.None
    .StopBits = StopBits.One
    .BaudRate = 9600
    .DataBits = 8
    .ReadBufferSize() = 4096
    .WriteBufferSize() = 2048
    .Open
End With