Velleman IO Board

General
1

Before I start re-inventing the wheel has anyone done any XOJO with the Velleman IO Board, VM110N which I am about to start playing with. It comes with a .dll for windows incorporation and a relatively straightforward (or so it seems API) which consists of the below declares, which is what I wil need to re-write to XOJO-ify :slight_smile: - unless of course someone else has and they would like to share :slight_smile:

http://www.theelectronicsshop.co.uk/contents/en-uk/p129_vm110n.html

Private Declare Sub ReadAll Lib "k8055d.dll" (ByVal data As Long) 
    Private Declare Function Version Lib "k8055d.dll" () As Long
    Private Declare Function SearchDevices Lib "k8055d.dll" () As Long
    Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
    Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
    Private Declare Sub CloseDevice Lib "k8055d.dll" ()
    Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long) As Long
    Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (ByVal Data1 As Long, ByVal Data2 As Long)
    Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long, ByVal data As Long)
   
Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Long, ByVal Data2 As Long) 
   
Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
    Private Declare Sub SetAllAnalog Lib "k8055d.dll" ()
    Private Declare Sub ClearAllAnalog Lib "k8055d.dll" ()
    Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
   
Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal data As Long)
    Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
    Private Declare Sub ClearAllDigital Lib "k8055d.dll" ()
    Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long) 

   
    Private Declare Sub SetAllDigital Lib "k8055d.dll" ()
    Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long) As Boolean
    Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Long
    Private Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Long) As Long
    Private Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Long)
    Private Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Long, ByVal DebounceTime
2

just for your information, I would not use such a board with usb only connection to a host computer.
you will be stuck with the actual system it supports, and it will surely not work with the next OS release.
also it is a window only board, no linux or mac.
you’ve better try to find a similar board but with ethernet or wifi connection to the computer, it will work far longer in time
just my 0.02€

3

Its just to play with, nothing too drastic and I predominantly only use windows. I would use Pi for similar if I need X-Plat.

4

@Paul Budd . Board looks cool. Velleman’s boards are usually pretty good (and less expensive than NI boards). Nice Xmas present. Have fun.