| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何从USB端口取数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45943) |
| -- 作者：ttitt147 -- 发布时间：2014/2/13 19:32:00 -- 如何从USB端口取数据 我有一个USB2.0的设备，用于数据采集，如何从USB上取得这些数据？ |
| -- 作者：有点甜 -- 发布时间：2014/2/13 19:43:00 -- 不论是什么设备，如果要读取其中的数据，都必须有设备的开发文档说明。没有统一的获取方法。 你的是什么设备？
|
| -- 作者：有点甜 -- 发布时间：2014/2/13 19:44:00 -- 如果是U盘，想获取某个U盘的某个文件的值，可以用下面的代码获取U盘的盘符 Dim s As String = "USB*"
Dim USBDevices, USBDevice, USBDiskPartitions, USBDiskPartition, LogicalUSBDisks, LogicalUSBDisk , objWMIService As Object objWMIService = GetObject("winmgmts:\\\\.\\root\\cimv2") USBDevices = objWMIService.execquery("Select * From Win32_DiskDrive where InterfaceType=\'USB\'") For Each USBDevice In USBDevices If USBDevice.PNPDeviceID Like s Then USBDiskPartitions = objWMIService.execquery("Associators of {Win32_DiskDrive.DeviceID=\'" & USBDevice.DeviceId & "\'} where AssocClass = Win32_DiskDriveToDiskPartition") For Each USBDiskPartition In USBDiskPartitions LogicalUSBDisks = objWMIService.execquery("Associators of {Win32_DiskPartition.DeviceID=\'" & USBDiskPartition.DeviceId & "\'} where AssocClass = Win32_LogicalDiskToPartition") For Each LogicalUSBDisk In LogicalUSBDisks msgbox(LogicalUSBDisk.DeviceId) Next Next Exit For End If Next |
| -- 作者：ttitt147 -- 发布时间：2014/2/13 20:12:00 -- 哥，不是U盘，是一个光谱采集器，我要读取他采集到的连续数据，用于数据分析。我在网上看到有用CYUSB实现的，但希望可以用FOXTABLE实现，因为已实现的串口数据采集是用FOX完成的，如果要换开发环境，工作量不是一般的大。 |
| -- 作者：有点甜 -- 发布时间：2014/2/13 20:23:00 -- 你可以看看，英文的，你可以大致用google翻译看，挺简单。 |