锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net读usb的简单介绍( 二 )

IT技术数据


For i = 1 To 8
x = Int(Rnd() * 100)
s = s + Str(x)
FilePut(fn, x)
Next
FileClose(fn)
TextBox1.Text = s
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
Do While Not EOF(fn)
FileGet(fn, x)
s = s + Str(x) + " "
Loop
FileClose(fn)
TextBox1.Text = s
End Sub
vb.net 怎么用事件触发的方式读取串口数据首先：
textbox里没有显示，是因为SerialPort1和TextBox2不是同一线程创建vb.net读usb的，需要跨线程操作 。需要用到委托，这样才能显示出来 。
其次：
vb.net读usb我觉得用串口的接收数据事件更好一些 。
下面代码供参考：
'----------------------
'串口接收数据事件，其实比用定时器更好 ， 
'触发事件的条件可以自己在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 读取扫描枪USB接口数据的实例USB比较难抓数据，建议是USB模拟串口，或者直接就是串口，这样数据比较好抓 。
USB上传模式是鼠标光标在哪数据就上传在哪，所以你抓USB的数据的很难！
X猫-思刊办公专营店
关于vb.net读usb和的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

推荐阅读


上一篇：linux15条命令的简单介绍

下一篇：复杂反派角色扮演游戏，反派角色造型