现在我在电脑连接了几个独立的按键通过特定模块接受信号
以下代码 ，向串口发送 数据读取的请求
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进制的 信息，这个代码应该放在那里。
自己搞的时候放在计时器了，但效果不理想， 经常读取错误，或者报错
加好友 
发短信
Post By：2016/5/27 9:22:00 [显示全部帖子]
