VB.NET USB HID

[Пётр_В]

Все работало. Теперь этот метод устарел и я пишу под VB.NET 2010.

Почему устарел? Вы реально считаете что управляемый код лучше неуправляемого?

Тот же код работает, но не стабильно. Через некоторое время вываливает с ошибкой на потерю делигата.

Ищите ошибки в коде, это все из-за них происходит.

raxp, спасибо, но это не интересно. Это шаг назад к бейсику 6.0

Почему вы так решили? Текущая версия PureBasic 4.51 выпущена в 2010 году и на подходе новая версия (сейчас в состоянии беты).
А VB6 компания майкрософт выпустила больше 10 лет назад. По моему сравнение некорректно.
В PureBasic убраны многие недостатки VB6, например, не нужно API функции, константы, структуры самостоятельно декларировать, это уже сделано.
Не требуется runtime библиотека для работы скомпилированных приложений.
Присутствует кроссплатформенная библиотека функций (Windows, Linux, MacOS X и AmigaOS, 32 и 64 битные версии), что позволяет решать большинство задач не прибегая к API конкретной платформы.

К сожалению, не подходит. Библиотека какая-то стремная. Видимо, только под pure basic будет работать.

Почему стремная, потому что имеет размер всего 10 КБ и вы думаете что она будет плохо работать?
Если да, то эта статья обязательна к прочтению.

Что же вы так PureBasic невзлюбили? Вы напоминаете закоренелого Си'шника, который приходит в ярость от слова Basic.
Библиотека стандартная и будет работать при вызове из любой среды программирования (в т. ч. и VB.NET 2010), при использовании соглашения stdcall (если нужно, можно пересобрать под соглашение CDecl).

Посмотрите на эту dll_ку.
Работает в delphi.
http://radiokot.ru/forum/viewtopic.php?p=671933#p671933

Эта библиотека так же на PureBasic написана и ничего, в дельфи нормально работает.

PS.
Рекомендую вам посмотреть статью из журнала "Радио" 2011, № 4, стр. 27 - 30.
Там есть примеры работы с USB HID на VB.NET 2008, дельфи 7 и еще на одном языке.

[Пётр_В]

Сейчас разбираюсь с библиотекой aleksey_gregul.
Не видит устройства. Все время возвращает ноль. Пока разбираюсь с этим.

PID, VID и номер версии правильно указанны?

[Easyrider83]

PID, VID и номер версии правильно указанны?

Номер версии пробовал 1, -1 и 65535. С остальным вопросов нет.
Номер версии реального устройства на картинке.
Код такой:

Module Module1
Public Const USB_PID As Integer = &H2001
Public Const USB_VID As Integer = &H1234
Public Const HID_Version As Integer = &H1
Public Const HID_Index As Integer = 0
Public Handle As Integer
Declare Function HID_OpenDevice Lib "HID_Lib_PB.dll" Alias "HID_OpenDevice" (ByRef PID, ByRef VID, ByRef VersionNumber, ByRef Index) As Integer
Declare Function HID_DeviceTest Lib "HID_Lib_PB.dll" Alias "HID_DeviceTest" (ByRef PID, ByRef VID, ByRef VersionNumber, ByRef Index) As Integer
End Module

Module Module2
Public Sub connect_to_hid()
Handle = HID_OpenDevice(USB_PID, USB_VID, HID_Version, HID_Index)
If Handle = 0 Then MsgBox(Str(USB_PID) + " " + Str(USB_VID) + " " + "Not connected")
End Sub
End Module

[mobil2005]

Системное программирование под байсиком это вообще изврат.

[Easyrider83]

Системное программирование под байсиком это вообще изврат.

В чем принципиальное отличие от си? Есть переводчики кода. Из бейсика всегда можно сделать Си. Причем просто меняется синтаксис. Методы остаются те же. В чем фишка си?

[Пётр_В]

Код такой:

А если попробовать так?

Module Module1
    Public Declare Function HID_OpenDevice Lib "HID_Lib_PB.dll" (ByVal PID As Integer, ByVal VID As Integer, ByVal VersionNumber As Short, ByVal Index As Short) As Integer
    Public Declare Function HID_GetFeature Lib "HID_Lib_PB.dll" (ByVal Handle As Integer, ByVal buffer() As Byte, ByVal LenBuffer As Integer) As Integer
    Public Declare Function HID_SetFeature Lib "HID_Lib_PB.dll" (ByVal Handle As Integer, ByVal buffer() As Byte, ByVal LenBuffer As Integer) As Integer
    Public Declare Function HID_CloseDevice Lib "HID_Lib_PB.dll" (ByVal Handle As Integer) As Integer

    Public Declare Function HID_ReadDevice Lib "HID_Lib_PB.dll" (ByVal Handle As Integer, ByVal buffer() As Byte, ByVal LenBuffer As Integer) As Integer
    Public Declare Function HID_WriteDevice Lib "HID_Lib_PB.dll" (ByVal Handle As Integer, ByVal buffer() As Byte, ByVal LenBuffer As Integer) As Integer
    Public Declare Function HID_GetInputReport Lib "HID_Lib_PB.dll" (ByVal Handle As Integer, ByRef buffer() As Byte, ByVal LenBuffer As Integer) As Integer
    Public Declare Function HID_SetOutputReport Lib "HID_Lib_PB.dll" (ByVal Handle As Integer, ByRef buffer() As Byte, ByVal LenBuffer As Integer) As Integer
    Public Declare Function HID_GetNumInputBuffers Lib "HID_Lib_PB.dll" (ByVal Handle As Integer) As Integer

    Public Declare Function HID_DeviceTest Lib "HID_Lib_PB.dll" (ByVal PID As Integer, ByVal VID As Integer, ByVal VersionNumber As Short, ByVal Index As Short) As Integer
 End Module

Системное программирование под байсиком это вообще изврат.

Почему вы так думаете?
Бейсик - такой же язык как и другие.

[mobil2005]

В чем принципиальное отличие от си? Есть переводчики кода. Из бейсика всегда можно сделать Си. Причем просто меняется синтаксис. Методы остаются те же. В чем фишка си?

Бэйсик по сути своей язык для начинающих, разаботанный лишь для обучения. Т.е. чайнику его просто освоить.

Т.е. по факту в книгах для школы предметы описаны так же как и в книгах для вузов, а в тех в свою очередь как и в книгах для проффесионалов. Единственное что отличает - это переводчик языка. со сложного на простой. Может быть в школьных книгах и нет ничего плохого, но в них упущено множество моментов которые неспособен понять неокрепший разум школьника, а из вузовских убрано то что может подкосить студента.

Если вам нравится программировать под басиком, флаг вам в руки. По мне так изврат.
У вас может быть свое мнение.
Но общепринятый язык системного программирования это С++.
А мелкие поделки можно писать в чем угодно, лишь бы быстро ...

[Пётр_В]

Но общепринятый язык системного программирования это С++.

Для создания ОС или драйверов, может быть, а остальное как правило можно на бейсике реализовать.
И получится ни чем не хуже чем на C++.

[mobil2005]

Для создания ОС или драйверов,

Да даже с точки развития себя как профессионала бэйсик не преспективен. В наши дни и си то не особо популярен всем жабу подавай(кросплатформа типа).
Однако покажите мне пожалуйста хоть одну вакансию программиста где предлагают работу бэйсик кодера? Ну а басни про лучше или хуже мне не надо.Видимо вы не используете все возможности CPP которые собственно и делают его ну очень гибким языком.А басик пробовал, знаю.И конкретно у MSVB получается хуже.По той же производительности и удобству не вывозит ваш MSVB той же MSVC.
П.С. Не удивлюсь если язык 1С у вас вызывает эйфорию

[MisterDi]

Что, холиварчик очередной намечается? По-уму для каждой предметной области должен біть свой язык. Но так как сейчас всем хочется "бысто и дешево", то "ленивые" программисты упрощают себе жизнь, используя то, что уже есть. Тот же механизм классов в СРР - это замаскированное использование средств ОС, которое за счет увеличения накладных расходов обеспечивает очень большой выигрыш во времени написания.