HIDDevice与Teensy的连接 [英] HIDDevice connection to Teensy
问题描述
您好！
我有一个问题连接Teensy 3.2到通用应用程序HID设备。我有以下代码：
Public NotInheritable Class MainPage
Inherits Page
Public Sub New（）
'Dieser Aufrufistfürden设计师erforderlich。
InitializeComponent（）
$ b $b'FügenSieInitialisierungen nach dem InitializeComponent（） - Aufruf hinzu。
EnumerateHidDevices（）
End Sub
Public Async Sub EnumerateHidDevices（）
Dim VID As UShort =& H16C0
Dim PID As UShort =& H486
Dim usagePage As UShort =& HFFAB
Dim usageID As UShort =& H200
Dim selector As String = HidDevice.GetDeviceSelector（ usagePage，usageID，VID，PID）
Dim devices = Await DeviceInformation.FindAllAsync（selector）
if devices.Count> 0然后
For Each item in devices
Debug.WriteLine（String.Format（" Device found：{0} {1}"，item.Name，item.Id））
下一个
device = Await HidDevice.FromIdAsync（devices.ElementAt（0）.Id，FileAccessMode.ReadWrite）.AsTask
Dim deviceAccessStatus = DeviceAccessInformation.CreateFromId（devices.ElementAt（0）.Id）。CurrentStatus
'tpt = ThreadPoolTimer.CreatePeriodicTimer（AddressOf TimerTick，New TimeSpan（0,0,30））
Else
Debug.WriteLine（"未找到USB HID设备"）
End if
End Sub
Private Sub TimerTick（timer As ThreadPoolTimer）
Dim data（144 * 40 * 3 + 1）As Byte
data（ 0）= Encoding.ASCII.GetBytes（" *"）。First
For i As Integer = 1 To data.Count - 1
data（i）= 20
Next
ReadWriteToHidDevice（）
Debug.WriteLine （"HID数据："）
结束Sub
Public Sub ReadWriteToHidDevice（）
Dim sResult As String = String.Empty
如果Not device is Nothing则
Dim dw As DataWriter = New DataWriter
'dw.WriteBytes（data）
'outReport.Data = dw.DetachBuffer
'等待device.SendOutputReportAsync（outReport）
''发送完成
''现在回读数据
'Dim inReport As HidInputReport = Await device.GetInputReportAsync
'如果Not inReport Is Nothing则
'Dim id As UInt16 = inReport.Id
'Dim dr As DataReader = DataReader。 FromBuffer（inReport.Data）
'昏暗的结果（CInt（dr.UnconsumedBufferLength））As Byte
'dr.ReadBytes（result）
' sResult = BitConverter.ToString（result）
'Else
'Debug.WriteLine（""收到的输入无效"）
'结束如果
否则
Debug.WriteLine（ "Device is NULL"）
结束如果
'返回sResult
结束Sub
私有设备As HidDevice
私人tpt As ThreadPoolTimer
结束等级
并且另外还有appmanifest
<！ - HID设备 - >
< DeviceCapability Name =" humaninterfacedevice">
< Device Id =" vidpid：16c0 0486 usb">
<功能类型="用法：0200 *" />
< / Device>
< / DeviceCapability>
因此，如果我启动应用程序，现场设备将只找到一个控制器。我觉得没关系。但是，当我想打开连接字段"设备"时，保持空白。
我还尝试了很多不同的设置。查看Windows设备管理器并使用usbview工具。我无法找到错误。
Teensy的HID Raw描述如下： https://www.pjrc.com/teensy/rawhid.html
主要目标是在RaspberryPi3和Teensy之间进行沟通。对于测试使用我的Surface Pro。但事情发生了。感谢您的帮助！
问候
嗨Wolfi，
"Teensy"的制造商期待这个工作吗？他们将是获得设备驱动程序要求帮助的最佳来源。
还有另一个线程可以帮助您使用通用WinUSB：
https：// answers。 microsoft.com/en-us/windows/forum/windows_10-hardware/installing-winusb-driver-on-windows-10-iot
此致，
Hello!
I have a Problem Connection a Teensy 3.2 to a Universal App HID Device. I have the following Code:
Public NotInheritable Class MainPage
Inherits Page
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
EnumerateHidDevices()
End Sub
Public Async Sub EnumerateHidDevices()
Dim VID As UShort = &H16C0
Dim PID As UShort = &H486
Dim usagePage As UShort = &HFFAB
Dim usageID As UShort = &H200
Dim selector As String = HidDevice.GetDeviceSelector(usagePage, usageID, VID, PID)
Dim devices = Await DeviceInformation.FindAllAsync(selector)
If devices.Count > 0 Then
For Each item In devices
Debug.WriteLine(String.Format("Device found: {0}{1}", item.Name, item.Id))
Next
device = Await HidDevice.FromIdAsync(devices.ElementAt(0).Id, FileAccessMode.ReadWrite).AsTask
Dim deviceAccessStatus = DeviceAccessInformation.CreateFromId(devices.ElementAt(0).Id).CurrentStatus
' tpt = ThreadPoolTimer.CreatePeriodicTimer(AddressOf TimerTick, New TimeSpan(0, 0, 30))
Else
Debug.WriteLine("No USB HID device found")
End If
End Sub
Private Sub TimerTick(timer As ThreadPoolTimer)
Dim data(144 * 40 * 3 + 1) As Byte
data(0) = Encoding.ASCII.GetBytes("*").First
For i As Integer = 1 To data.Count - 1
data(i) = 20
Next
ReadWriteToHidDevice()
Debug.WriteLine("HID Data: ")
End Sub
Public Sub ReadWriteToHidDevice()
Dim sResult As String = String.Empty
If Not device Is Nothing Then
Dim dw As DataWriter = New DataWriter
' dw.WriteBytes(data)
' outReport.Data = dw.DetachBuffer
' Await device.SendOutputReportAsync(outReport)
' 'Sending done
' 'Now read back data
' Dim inReport As HidInputReport = Await device.GetInputReportAsync
' If Not inReport Is Nothing Then
' Dim id As UInt16 = inReport.Id
' Dim dr As DataReader = DataReader.FromBuffer(inReport.Data)
' Dim result(CInt(dr.UnconsumedBufferLength)) As Byte
' dr.ReadBytes(result)
' sResult = BitConverter.ToString(result)
' Else
' Debug.WriteLine("Invalid input received")
' End If
Else
Debug.WriteLine("Device is NULL")
End If
'Return sResult
End Sub
Private device As HidDevice
Private tpt As ThreadPoolTimer
End Class
and in Addition the appmanifest
<!-- HID Device -->
<DeviceCapability Name="humaninterfacedevice">
<Device Id="vidpid:16c0 0486 usb">
<Function Type="usage:0200 *"/>
</Device>
</DeviceCapability>So if i start the app the field devices will find exactly one Controller. I think thats ok. But when i want to open the Connection the field "device" stays empty.
I still have tried many different Settings. Took a look into Windows device Manager and used the usbview-tool. I cant find the error.
The HID Raw description for Teensy is here: https://www.pjrc.com/teensy/rawhid.html
The main Goal is to communicate between RaspberryPi3 and Teensy. For testing is used my Surface Pro. But anything happens. Thanks for helping!
Greetings
Hi Wolfi,
Do the makers of "Teensy" expect this to work? They would be the best source for help on their device driver requirements.
There is another thread that might help you with generic WinUSB here: https://answers.microsoft.com/en-us/windows/forum/windows_10-hardware/installing-winusb-driver-on-windows-10-iot
Sincerely,
这篇关于HIDDevice与Teensy的连接的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
