K8061 Visual Basic 2008 Express Edition

Kits PC Related Projects
1

I have a K8061 USB Interfaceboard connected to a Pentium 4 system with Windows XP with SP3. With the demo software it works fine. However, if I try to make an own program in Microsoft Visual Basic 2008 Express Edition it doesn’t work. The manual says: copy k8061.dll to the System32 folder. That is not enough, I also had to copy mpusbapi.dll to the System32 folder.
I declare all the Functions and Sub’s as described in the manual and I call the OpenDevice function. The cardNumber I get in return is: 8806113116485058558. I Think this number has nothing to do with the USB Interfaceboard because I also get this number back, even if I have disconnected the board from my PC.
What do I do wrong? Who can help me, please?

Kind regards,

Rob

2

You may download this package: k8061_vistapack_2007v1.zip
This package contains new driver that you have to install for the K8061.

You can use this software package with Windows XP and Windows Vista.
Code for VB6,VB.NET,VB express edition 2005,Borland C++ builder,Visual C++,VC6,VC2005,Delphi.

3

Hello VEL255,

Thank you for your answer. I allready used that driver. I think I installed more than one driver and therefore it was mixedup. What I also discovered is that if I ReadAnalogChannel it must be in a INTEGER variabel instead of a LONG variabel. So now I have connection to the board.

I have another question: if I ReadAllAnalog I do get an error what says: “Attempted to read or write protected memory.”
Do you have a solution for this problem?

Kind regards,

Rob

[quote=“VEL255”]You may download this package: k8061_vistapack_2007v1.zip
This package contains new driver that you have to install for the K8061.

You can use this software package with Windows XP and Windows Vista.
Code for VB6,VB.NET,VB express edition 2005,Borland C++ builder,Visual C++,VC6,VC2005,Delphi.[/quote]

4

Maybe you have not declared the data buffer where the data will be read.
Here’s some snippets from the example projects:

Dim Buffer(7) As Integer ... ReadAllAnalog(intCardNumber, Buffer(0)) ...

5

Hello VEL255,

Unfortunately it is not the solution for my error. I do use the example project as my source, that’s how I learn to program the USB interface card. I have the same problem if I try: ReadVersion.
Now I use ReadAnalogChannel, this works, so I am programming a application to control a glasfusing kiln. That is measuring temperature and switching the heater.

Kind regards,

Rob

[quote=“VEL255”]Maybe you have not declared the data buffer where the data will be read.
Here’s some snippets from the example projects:

Dim Buffer(7) As Integer ... ReadAllAnalog(intCardNumber, Buffer(0)) ...[/quote]