锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net搜索串口 vb识别串口

IT技术串口

vb.net用SerialPort1获取串口信息对比文本框内容搜一下
有串口通信vb.net搜索串口的例程
借鉴一下vb.net搜索串口，再根据vb.net搜索串口你vb.net搜索串口的情况 编程
VB.NET接收串口数据问题不知道你是不是用51单片机往串口发数据 ， 是的话那是因为51的SBUF最多存放8个字节，所以你发12个字节会分成两次发完 。还有在接收的时候最好定义好通信协议，比如加一个侦头，一个侦尾，通过这两个字节的内容来接收数据 。
老兄，提问还是给点悬赏分嘛，不要吝啬哪点分 ， 知识是无价的 ， 你给得越多，回答你的人才会越多 。
VB与VB.NET串口及以太网通迅关于串口通讯的问题vb.net搜索串口：
很明显vb.net搜索串口，你还不知道（不会、不习惯）使用事件驱动的方式接收数据 。
建议你仔细看看串口组件（无论VB6还是VB.net）的OnComm事件 ， 你的问题很容易解决 。
关于以太网通讯vb.net搜索串口：
在TCP通讯中端口确实可以重用，你百度一下“TCP端口重用”能查到很多示例 。
但绝大多数情况下不推荐端口重用，而应该采取服务器端建立连接池的方法 。
或者，干脆不用TCP，用UDP解决也可以 。
怎样在vb中自动检测到可用串口号的具体程序代码vb.net的话
For
Each
sp
As
String
In
My.Computer.Ports.SerialPortNames
cbxport.Items.Add(sp)
Next
vb6.0的话要调用API查看串口相关信息存在的注册表 。
HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM
通过读注册表的方法获得串口数量，当然也可以获得串口号了 。
Option
Explicit
Private
Declare
Function
RegOpenKey
Lib
"advapi32.dll
"
Alias
"RegOpenKeyA
"
(ByVal
hKey
As
Long,
ByVal
lpSubKey
As
String,
phkResult
As
Long)
As
Long
Private
Declare
Function
RegQueryInfoKey
Lib
"advapi32.dll
"
Alias
"RegQueryInfoKeyA
"
(ByVal
hKey
As
Long,
ByVal
lpClass
As
String,
lpcbClass
As
Long,
ByVal
lpReserved
As
Long,
lpcSubKeys
As
Long,
lpcbMaxSubKeyLen
As
Long,
lpcbMaxClassLen
As
Long,
lpcValues
As
Long,
lpcbMaxValueNameLen
As
Long,
lpcbMaxValueLen
As
Long,
【vb.net搜索串口 vb识别串口】lpcbSecurityDescriptor
As
Long,
lpftLastWriteTime
As
Long)
As
Long
Private
Const
HKEY_LOCAL_MACHINE
=
H80000002
'
获得当前系统的
COM
口的数量
Function
GetCOMCount()
As
Integer
Dim
ret
As
Long,
cntCOM
As
Long
RegOpenKey
HKEY_LOCAL_MACHINE,
"HARDWARE\DEVICEMAP\SERIALCOMM
",
ret
RegQueryInfoKey
ret,
"
",
0,
0,
0,
0,
0,
cntCOM,
0,
0,
0,
GetCOMCount
=
cntCOM
End
Function
Private
Sub
Command1_Click()
MsgBox
"您的机器有
"
GetCOMCount
"
个串口 。
",
vbOKOnly,
"串口数量
"
End
Sub
vb.net 怎么用事件触发的方式读取串口数据首先：
textbox里没有显示，是因为SerialPort1和TextBox2不是同一线程创建的，需要跨线程操作 。需要用到委托，这样才能显示出来 。
其次：
我觉得用串口的接收数据事件更好一些 。
下面代码供参考：
'----------------------
'串口接收数据事件，其实比用定时器更好，
'触发事件的条件可以自己在form_load中设置ReceivedBytesThreshold属性数值，默认为ReceivedBytesThreshold=1
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim strRecvData As String = ""
strRecvData = https://www.04ip.com/post/SerialPort1.ReadExisting
Call disPlayComData(strRecvData)
End Sub
Delegate Sub callback(ByVal strT As String) '定义委托
Sub showString(ByVal comdata As String) '显示结果
Me.TextBox1.Text = "结果："comdata
End Sub
Sub disPlayComData(ByVal strTmp As String) '判定是否为跨线程
If Me.TextBox1.InvokeRequired Then
Dim d As New callback(AddressOf showString)
Me.Invoke(d, New Object() {strTmp})
Else
Me.TextBox1.Text = strTmp
End If
End Sub
关于vb.net搜索串口和vb识别串口的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：路由器wifi密码忘了怎么办，路由器wifi密码忘了怎么办连不上

    下一篇：拍卖益智游戏，拍卖小游戏