#XOJO ACCESS ARRAY OF ARRAYS HOW TO#
#XOJO ACCESS ARRAY OF ARRAYS CODE#

My programming intention is to continue with Xojo ( found it more fun for my age). If you think of these as text boxes then converting to Xojo would just mean changing the lines like

#XOJO ACCESS ARRAY OF ARRAYS CODE#

With the VBa code it puts data directly into cells on the spreadsheet. Any programs that I develop with Xojo that may work with DrDaq I will be happy to provide it to this forum for possible use by others. Hopefully I can get my basic needs from DrDaq. I was loosing hope and was looking at other devices like Labjack U3-HV as they include VB examples and even Xojo conversion. How do you declare, read a channel and place the result on a textbox? Excel VBA reads all channels using arrays and puts them on an array of cells making it less simple to understand for a beginner. I only copied the excel ones and test to see if DrDaq is opened and worked ok.

#XOJO ACCESS ARRAY OF ARRAYS HOW TO#

I have tried it with Xojo and got response of recognition for DrDAQ but don't know the sequence of how to read single channels and proper declares. I can interface with many such devices provided you know the proper instructions and declares and DLLs provided.

For this reason I have moved to Xojo which is compatible with VB but only less complex and easy to program. As I said earlier I only learned VB6, and the new versions have become too complex to just do simple tasks. Thanks Martyn for giving some hope of conversion to VB.

This is available in the SDK which can be downloaded from our website by selecting PicoLog Data Loggers, and should help to get you going. MsgBox 'Run error', vbOKOnly, 'Error Message'Д¬all UsbDrDaqGetValues(handle, values(0), nValues, overflow, triggerIndex) MsgBox 'Settings error', vbOKOnly, 'Error Message' 'Collect a 1 second block containing 100 samples on all channels SLegnth = UsbDrDaqGetUnitInfo(handle, S, 255, requiredSize, 0) SLegnth = UsbDrDaqGetUnitInfo(handle, S, 255, requiredSize, 4) SLegnth = UsbDrDaqGetUnitInfo(handle, S, 255, requiredSize, 3) MsgBox 'Unit not opened', vbOKOnly, 'Error Message'Д¬ells(11, 'L').value = 'DrDAQ not opened' Code: Select all Declare Function UsbDrDaqOpenUnit Lib 'USBDrDAQ.dll' (ByRef handle As Integer) As LongДeclare Function UsbDrDaqCloseUnit Lib 'USBDrDAQ.dll' (ByVal handle As Integer) As LongДeclare Function UsbDrDaqSetInterval Lib 'USBDrDAQ.dll' (ByVal handle As Integer, ByRef us_for_block As Long, ByVal ideal_no_of_samples As Long, ByRef channels As Long, ByVal no_of_channels As Integer) As LongДeclare Function UsbDrDaqRun Lib 'USBDrDAQ.dll' (ByVal handle As Integer, ByVal no_of_values As Long, ByVal method As Long) As LongДeclare Function UsbDrDaqGetValues Lib 'USBDrDAQ.dll' (ByVal handle As Integer, ByRef values As Integer, ByRef noOfValues As Long, ByRef overflow As Integer, ByRef triggerIndex As Long) As LongДeclare Function UsbDrDaqReady Lib 'USBDrDAQ.dll' (ByVal handle As Integer, ByRef ready As Integer) As LongДeclare Function UsbDrDaqGetUnitInfo Lib 'USBDrDAQ.dll' (ByVal handle As Integer, ByVal S As String, ByVal stringLength As Integer, ByRef requiredSize As Integer, ByVal info As Long) As LongДeclare Function UsbDrDaqSetDO Lib 'USBDrDAQ.dll' (ByVal handle As Integer, ByVal IOChannel As Long, ByVal value As Integer) As Long

Xojo access array of arrays