Using EasyHID with VBExpress 2005 (maybe .NET as well)

[mister_e]

You can download Here a small code template to start using EasyHID DLL with VBExpress.

'Till now (june 5/2007) EasyHID don't generate the code template for VBExpress but VB5. I tested it a little bit here, and it seems to be reliable and bug free.

As we all know, David (Mecanique) have been kind enough to do this wonderful software & dll 100% free of charge. Knowing he's busy with something else, i think at least, we owe him a little hand with newer Microsoft Language platform.

This said, this would be nice to hear some comments from user here with this simple code template.

When i find some time, i'll do the VisualC Express template as well.

Thanks again David!

PS: the code template don't include any PIC code. Just VBExpress side. You could use the USBDemo one. The TextBox will show you the ADC results of AN0

[sayzer]

....
Thanks again David!
....

Thanks again Steve!


--------------------------

[mackrackit]

Thank you Steve and David.

The VB5/Express part was my hold up.

[mister_e]

Thanks guys, don't forget to post your "It's working or not" comments...

As i write it, (~24 hours later) the template have been downloaded 76 times already

Finger crossed

[Abnormal1]

Hi,
Have been playing with this and it works great.

Only thing is that I can not get hidGetVendorName and hidGetProductName to work. I get an "Attempted to read or write protected memory" error with this and i'm not sure if im doing something wrong or that theres a problem with this .net version.

Thanks
Abnormal1

[mister_e]

Yup, Yet another .NET thingy. 'Till now, i have found a way to make it work....

   Public Sub OnPlugged(ByVal pHandle As Integer)
    Dim DeviceHandle As Integer
                              ' Mister E 
    Dim VendorName As String = "         "
                               ' USB Demo
    Dim ProductName As String = "         "

    If hidGetVendorID(pHandle) = VendorID And hidGetProductID(pHandle) = ProductID Then ' Good one?
        '
        '   get the device handle
        '   =====================
        DeviceHandle = hidGetHandle(VendorID, ProductID)
        '
        '   Get the vendor and product name from the handle
        '   ===============================================
        hidGetVendorName(DeviceHandle, VendorName, 255)
        hidGetProductName(DeviceHandle, ProductName, 255)
        End If
    Label2.Text = VendorName
    label3.text = ProductName

The trick is to assign a value to VendorName and ProductName before calling hidGetVendorName and hidGetProductName. Make sure your space/blank character are at least equal to the LEN if VendorName and ProductName. Unless, it will screw up things.

VB.NET doesn't seems to have a way to determine a fixed String size...

Anyways, i've ask the question on the MSDN forum, let's see if there's a more elegant way to do it. It has to... In meantime, the above solution work.