module1.bas

vb书本教材

Attribute VB_Name = "Module1"

'以下是与CAN板卡有关的参数
'函数初始化
Public Declare Function CAN_Open Lib "k8110.dll" (ByVal iIndex As Long) As Boolean
Public Declare Sub CAN_Close Lib "k8110.dll" (ByVal iIndex As Long)
Public Declare Function CAN_Init Lib "k8110.dll" (ByVal iIndex As Long, ByRef config As Any) As Boolean
Public Declare Function CAN_Trans Lib "k8110.dll" (ByVal iIndex As Long, ByRef obyte As Any, ByVal wtimeout As Long) As Boolean
Public Declare Function CAN_Recv Lib "k8110.dll" (ByVal iIndex As Long, ByRef ibyte As Any, ByVal rtimeout As Long) As Boolean
Public Declare Sub CAN_Reset Lib "k8110.dll" (ByVal iIndex As Long)
Public Declare Sub CAN_ReadReg Lib "k8110.dll" (ByVal iIndex As Long, ByRef oreg As Any)
Public Declare Sub CAN_WriteReg Lib "k8110.dll" (ByVal iIndex As Long, ByRef ireg As Any)