以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教一个思路关于串口的数据读取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85502)
--  作者：ljh29206
--  发布时间：2016/5/27 9:22:00
--  请教一个思路关于串口的数据读取
现在我在电脑连接了几个独立的按键
通过特定模块接受信号

以下代码 ，向串口发送 数据读取的请求
Dim Val() As Byte = New Byte() {&H03,&H02,&H00,&H00,&H00,&H08,&H78,&H2E}
Ports("COM5").Write(Val, 0, Val.Length)
然后 模块会生成一个 数组

以下代码为   数组转换  ，转换为8个 2机制的 字符。
Dim cnt As Integer = Ports("COM15").BytesToRead
If cnt > 0 Then \'缓冲区是否有数据
    Dim rval(cnt - 1) As Byte
    Ports("COM5").Read(rval,0,cnt)
    Dim str As String = BitConverter.ToString(rval).Replace("-", " ")  
    Dim str1 As String = DecToBin(HexToDec(rval(3))).PadLeft(8,"0")
   MessageBox.Show( rval(3) & ":" & str1)
End If

代码出来了，但是不知道 ，如何做到  按键一按下 

马上 接受 一个 2进制的 信息，这个代码应该放在那里。  

自己搞的时候放在计时器了，但效果不理想， 经常读取错误，或者报错
--  作者：大红袍
--  发布时间：2016/5/27 11:11:00
--  

监视串口就行啊

 

http://www.foxtable.com/help/topics/1967.htm