s2l5.bas

德州仪器公司的6000系列的程序示例,可以看看实现什么功能,如果需要可以继续上传,配套有电子版说明

Option Explicit
'**********************************************************************
'* S2L5.bas - (Section 2, Lesson 5) SENDING AN ARRAY OF INTEGERS USING
'*                                  SAFEARRAYS
'*            This is the RTDX Host Client for Section 2, Lesson 5
'*
'* This example sends integer values 1-10 to the target
'**********************************************************************

Const Success = &H0                     ' Method call is valid
Const Failure = &H80004005              ' Method call failed
Const ENoDataAvailable = &H8003001E     ' No data was available.
                                        ' However, more data may be
                                        ' available in the future.
Const EEndOfLogFile = &H80030002        ' No data was available
                                        ' The end of the log file has
                                        ' been reached.

Sub main()
    
    Dim rtdx As Object
    Dim arraydata(10) As Long
    Dim data As Long
    Dim bufferstate As Long
    Dim status As Long
    Dim i As Long

    On Error GoTo Error_Handler

    ' Create an instance of the RTDX COM object
    Set rtdx = CreateObject("RTDX")
 
    ' Open channel ichan for writing
    status = rtdx.Open("ichan", "W")

    If status <> Success Then
        Debug.Print "Opening of channel ichan failed"
        GoTo Error_Handler
    End If

    '******************************************************************
    ' Insert code from Step #3 here - to fill up the SAFEARRAY with
    '                                 values
    '******************************************************************
    data = 1
    For i = LBound(arraydata) To (UBound(arraydata) - 1)
        arraydata(i) = data
        data = data + 1
    Next i

    '******************************************************************
    ' Insert code from Step #4 here - to write a SAFEARRAY of 32-bit
    '                                 integers to the target
    '******************************************************************
    status = rtdx.Write(CVar(arraydata), bufferstate)

    If status = Success Then
        For i = LBound(arraydata) To (UBound(arraydata) - 1)
             Debug.Print "Value " & arraydata(i) & " was sent to the target"
        Next i
    Else
        Debug.Print "Write failed"
    End If

    ' Close the channel
    status = rtdx.Close()

    ' Release the RTDX COM object
    Set rtdx = Nothing
    
    Exit Sub

Error_Handler:
Debug.Print "Error in COM method call"
Set rtdx = Nothing

End Sub