rtdx_module.bas

来自「dsp6713开发板的许多例程.对入门特别有用」· BAS 代码 · 共 46 行

Attribute VB_Name = "RTDX_module"
Option Explicit

'Read/Write status codes
'########## RTDX(TM) ##########'
Global Const ENoDataAvailable = &H8003001E
Global Const EEndOfLogFile = &H80030002
Global Const FAIL = &H80004005
Global Const SUCCESS = &H0
'########## RTDX(TM) ##########'

' Channel attributes
Public Type RTDX_Channel_Attributes
    name As String             ' Holds channel name
    type As String             ' Holds channel type information
    messages As String         ' Holds # messages per channel
    members As String          ' Holds # members per channel
    integer_size As String     ' Holds the integer type info
End Type

' Range of columns for each channel
Public Type Column_Break_Points
    Start_Point As Integer      ' Column start point
    End_Point As Integer        ' Column end point
End Type

' Member variables for method calls
Public Type RTDX_Method_Attributes
    stat As Long                ' Open/Close Method status
    CHANNEL_OPEN As Boolean     ' Channel flag
    read_status As Long         ' Returned status code from Read
    member_counter As Long      ' Member counter for Read
    write_status As Long        ' Returned status code from Write
    message_counter As Long     ' Message counter for Read
    buffer_status As Long       ' Buffer status of Write
    Write_Value_I4 As Long      ' Value sent to Write
End Type

' Event Structure
Public Type RTDX_Event
    name As String
    id As Long
End Type

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' Prototype for sleep routine