s2l4.bas

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

Option Explicit
'**********************************************************************
'* S2L4.bas - (Section 2, Lesson 4) SENDING AN INTEGER TO THE TARGET
'*            This is the RTDX Host Client for Section 2, Lesson 4
'*
'* This example sends integer value 5 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.

Const VALUE_TO_SEND = 5

Sub main()
    
    Dim rtdx As Object
    Dim data As Long
    Dim bufferstate As Long
    Dim status 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

    data = VALUE_TO_SEND
    '******************************************************************
    ' Insert code from Step #3 here - to send a 32-bit integer to the
    '                                 target
    '******************************************************************
    status = rtdx.WriteI4(data, bufferstate)

    If status = Success Then
        Debug.Print "Value " & data & " was sent to the target"
    Else
        Debug.Print "WriteI4 failed"
    End If

    ' Close the channel
    status = rtdx.Close()

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

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

End Sub