Szukałem jakiś bibliotek, żeby dostać się do czujki z poziomu .NET, ale jedyne rozwiązanie jakie znalazłem było komercyjne (i drogie). MSDN jest kompletnie do kitu w temacie dostępu do urządzeń HID.
Trafiłem jednak na kod dla VB6 (nawet lepiej IMHO niż .NET) i mam już połączenie z czujką. Oto fragmenty kodu:
Zapis do czujki:
Odczyt z czujki:
Wywołanie zapisu/odczytu:
Z kodu widzę, że dane są (za pomocą tych funkcji) wysyłane/odbierane w pakietach po 64 bajty, a my używamy 128 (ale to akurat łatwo zmienić). Pytanie teraz, jak powinien wyglądać ciąg danych, aby np. zrobić odczyt z czujki?
Trafiłem jednak na kod dla VB6 (nawet lepiej IMHO niż .NET) i mam już połączenie z czujką. Oto fragmenty kodu:
Zapis do czujki:
Kod [Zaznacz]
' Send data to the device.
' Pass in a buffer with the data to send, and the number of bytes in the buffer
' Function returns number of characters actually written
' Data array index starts at 1, but element 0 must exist (holds the report ID)
Public Function WriteToHID(ByRef DataToSend() As Byte, Optional Datalength As Long = 64) As Long
Dim NumberOfBytesWritten As Long
Dim ByteValue As String
Dim result As Long
'The first byte is the Report ID
DataToSend(0) = 0
NumberOfBytesWritten = 0
result = WriteFile(HID_Write_Handle, DataToSend(0), Datalength + 1, NumberOfBytesWritten, 0)
WriteToHID = NumberOfBytesWritten - 1
End FunctionOdczyt z czujki:
Kod [Zaznacz]
' Read data from the device and puts it into ReceiveBuffer()
' array index starts at 1, but array must include element 0 (holds the report ID)
' Function returns an error code:
' WAIT_OBJECT_0 (0) = read was successful
' WAIT_TIMEOUT (258) = no response within timeout limit
' other code = some other, undefined error
Public Function ReadFromHID(ByRef ReceiveBuffer() As Byte, Optional Datalength As Long = 64, Optional Timeout_in_msec As Integer = 5000) As Long
Dim NumberOfBytesRead As Long
Dim result As Long
result = ReadFile(HID_Read_Handle, ReceiveBuffer(0), Datalength + 1, NumberOfBytesRead, HIDOverlapped)
result = WaitForSingleObject(EventObject, Timeout_in_msec)
Call ResetEvent(EventObject)
If result <> WAIT_OBJECT_0 Then ' if there was a timeout or some other error
result = CancelIo(HID_Read_Handle)
CloseHandle (HID_Write_Handle)
CloseHandle (HID_Read_Handle)
MyDeviceDetected = False
End If
ReadFromHID = result
End FunctionWywołanie zapisu/odczytu:
Kod [Zaznacz]
Private Sub ReadAndWriteToDevice()
Dim i As Long
Dim OutputReportData(65) As Byte
Dim InputReportData(65) As Byte
lstResults.Clear
lstResults.AddItem "***** HID Test Report *****"
OutputReportData(1) = 10 + adder
OutputReportData(2) = 20 + adder
OutputReportData(3) = 30 + adder
OutputReportData(4) = 40 + adder
OutputReportData(5) = 50 + adder
OutputReportData(6) = 60 + adder
OutputReportData(7) = 70 + adder
OutputReportData(8) = 80 + adder
adder = (adder + 1) Mod 10
If MyDeviceDetected = False Then MyDeviceDetected = FindTheHid
If MyDeviceDetected = True Then
Call WriteToHID(OutputReportData)
Call ReadFromHID(InputReportData)
End If
lstResults.AddItem "Data Written:"
For i = 1 To 8
lstResults.AddItem OutputReportData(i)
Next i
lstResults.AddItem ""
lstResults.AddItem "Data Received:"
For i = 1 To 8
lstResults.AddItem InputReportData(i)
Next i
End SubZ kodu widzę, że dane są (za pomocą tych funkcji) wysyłane/odbierane w pakietach po 64 bajty, a my używamy 128 (ale to akurat łatwo zmienić). Pytanie teraz, jak powinien wyglądać ciąg danych, aby np. zrobić odczyt z czujki?