干货分享 | 基于VB6.0 实现 CAN信号收发 Demo

2.声明libTSCAN.dll中的函数

使用Declare 语句声明libTSCAN.dll中的函数。

语法如下：

Private Declare [Function|Sub] 外部函数名 Lib “库文件名” [Alias “别名”] ([参数列表])

Private：可选，表示该声明在当前模块内可见。如果需要在多个模块中使用，可以使用Public。

Declare：关键字，用于声明外部函数。

Function或Sub：根据外部函数是返回值（Function）还是不返回值（Sub）来选择。

外部函数名：你在VB6.0代码中使用的函数名称。

Lib：指定包含函数定义的DLL库文件的名称。

库文件名：DLL库文件的名称，不包括扩展名（.lib或.dll）。

Alias：可选，如果DLL中的函数名称与VB6.0中的名称冲突或不符合VB6.0的命名规则，可以使用别名。

参数列表：函数的参数，包括参数的名称、类型和传递方式（ByVal或ByRef）。

‘加载libTSCAN函数库，必须在调用其他API之前执行

Private Declare Sub initialize_lib_tscan_verbose Lib “libTSCAN.dll” (ByVal AEnableFIFO As Boolean, ByVal AEnableErrorFrame As Boolean, ByVal AUseHWTime As Boolean, ByVal ATSType As Long)

‘释放libTSCAN函数库，必须在完成使用退出程序之前调用

Private Declare Sub finalize_lib_tscan Lib “libTSCAN.dll” ()

‘查询设备的制造商，产品名称，序列号，包含多少个CAN通道，是否支持FDCAN，多少个LIN通道，Flexray通道以及以太网通道

Private Declare Function tscan_get_device_info_detail Lib “libTSCAN.dll” (ByVal ADeviceIndex As Long, ByRef AManufacturer As Long, ByRef AProduct As Long, ByRef ASerial As Long, ByRef ADeviceType As Long, ByRef ADeviceName As Long, ByRef ACANChannelCount As Long, ByRef AIsCANFD As Boolean, ByRef ALINChannelCount As Long, ByRef AFRChannelCount As Long, ByRef AEthernetChannelCount As Long) As Long

‘连接设备

Private Declare Function tscan_connect Lib “libTSCAN.dll” (ByVal ADeviceSerial As String, ByRef AHandle As Long) As Long

‘断开设备

Private Declare Function tscan_disconnect_by_handle Lib “libTSCAN.dll” (ByVal AHandle As Long) As Long

‘查询当前在线的TSCAN设备数量

Private Declare Function tscan_scan_devices Lib “libTSCAN.dll” (ByRef ADeviceCount As Long) As Long

‘配置普通CAN硬件通道

Private Declare Function tscan_config_can_by_baudrate Lib “libTSCAN.dll” (ByVal AHandle As Long, ByVal AChnIdx As Long, ByVal ARateKbps As Double, ByVal A120OhmConnected As Long) As Long

‘配置FDCAN硬件通道；AControllerType[0：普通CAN 1：ISO-FD 2：NoISO-FD] AControllerMode[0:Normal 1: ACKOff 2: Retricted 3: Internal Loop 4: External Loop]

Private Declare Function tscan_config_canfd_by_baudrate Lib “libTSCAN.dll” (ByVal AHandle As Long, ByVal AChnIdx As Long, ByVal AArbRateKbps As Double, ByVal ADataRateKbps As Double, ByVal AControllerType As Long, ByVal AControllerMode As Long, ByVal A120OhmConnected As Long) As Long

‘发送CAN/CANFD报文

Private Declare Function tscan_transmit_can_sync Lib “libTSCAN.dll” (ByVal ADeviceHandle As Long, ByRef ACAN As TLIBCAN, ByVal ATimeoutMS As Long) As Long

Private Declare Function tscan_transmit_can_async Lib “libTSCAN.dll” (ByVal ADeviceHandle As Long, ByRef ACAN As TLIBCAN) As Long

‘周期发送CAN/CANFD报文

‘添加CAN周期发送报文

Private Declare Function tscan_add_cyclic_msg_can Lib “libTSCAN.dll” (ByVal ADeviceHandle As Long, ByRef ACAN As TLIBCAN, ByVal APeriodMS As Single) As Long

‘删除CAN周期发送报文

Private Declare Function tscan_delete_cyclic_msg_can Lib “libTSCAN.dll” (ByVal ADeviceHandle As Long, ByRef ACAN As TLIBCAN) As Long

注：如需完整的VB6.0示例工程源代码，可以随时联系太阳集团6138应用支持获取。

3.CAN /CANFD数据结构定义

CAN与CAN FD数据结构如下：