Attribute VB_Name = "PISOCANDNM" Option Explicit Global Const ConType_Explicit = 0 Global Const ConType_Poll = 1 Global Const ConType_BitStrobe = 2 Global Const ConType_COS = 3 Global Const ConType_Cyclic = 4 '-------------------------------------------------- ' Dll Function Return Code '-------------------------------------------------- '--------Board Error Code 'DNM_NoError 0 ' CAN_DriverError 1 ' CAN_ActiveBoardError 2 ' CAN_BoardNumberError 3 ' CAN_PortNumberError 4 ' CAN_ResetError 5 ' CAN_SoftResetError 6 ' CAN_InitError 7 ' CAN_ConfigError 8 ' CAN_SetACRError 9 ' CAN_SetAMRError 10 ' CAN_SetBaudRateError 11 ' CAN_EnableRxIrqFailure 12 ' CAN_DisableRxIrqFailure 13 ' CAN_InstallIrqFailure 14 ' CAN_RemoveIrqFailure 15 ' CAN_TransmitBufferLocked 16 ' CAN_TransmitIncomplete 17 ' CAN_ReceiveBufferEmpty 18 ' CAN_DataOverrun 19 ' CAN_ReceiveError 20 ' CAN_SoftBufferIsEmpty 21 ' CAN_SoftBufferIsFull 22 ' CAN_TimeOut 23 ' CAN_InstallIsrError 24 '------Master Status Error Code ' DNMXS_NoError 0 ' DNMXS_UnKnowError 5000 ' DNMXS_BoardNotActive 1000 ' DNMXS_OnlineError 1001 ' DNMXS_CANBusError 1002 ' DNMXS_Booting 1003 '------General Error Code ' DNMXS_MACIDError 1050 ' DNMXS_BaudRateError 1051 ' DNMXS_ConnectionTypeError 1052 ' DNMXS_DuplicMasterMACID 1053 ' DNMXS_EEPROMError 1054 ' DNMXS_NowScanning 1055 ' DNMXS_ScanListError 1056 ' DNMXS_DeviceExist 1057 ' DNMXS_DeviceNotExist 1058 ' DNMXS_MapTableError 1059 '--------IOConnection Error ' DNMXS_ExplicitNotAllocate 1100 ' DNMXS_PollNotAllocate 1101 ' DNMXS_BitStrobeNotAllocate 1102 ' DNMXS_COSNotAllocate 1103 ' DNMXS_CyclicNotAllocate 1104 ' DNMXS_PollAlreadyExist 1105 ' DNMXS_BitStrobeAlreadyExist 1106 ' DNMXS_COSAlreadyExist 1107 ' DNMXS_CyclicAlreadyExist 1108 ' DNMXS_CommunicationPause 1109 '--------Slave Error Code ' DNMXS_SlaveNoResp 1150 ' DNMXS_WaitForSlaveResp 1151 ' DNMXS_SlaveRespError 1152 ' DNMXS_OutputDataLenError 1153 ' DNMXS_InputDataLenError 1154 '---------------------- PISOCANDNM.dll ----------------------------------------------- 'Board Functions Declare Function CANDNM_GetBoardInf Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByRef dwVID As Long, ByRef dwDID As Long, _ ByRef dwSVID As Long, ByRef dwSDID As Long, ByRef dwSAuxID As Long, _ ByRef dwIrqNo As Long) As Long Declare Function CANDNM_TotalPISOCANDNMBoard Lib "PISOCANDNM.dll" (ByRef TotalBoards As Byte, ByRef BoardIDList As Byte) As Long Declare Function CANDNM_Active Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_Close Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_GetDLLVersion Lib "PISOCANDNM.dll" () As Long Declare Function CANDNM_GetDNMXSPCVersion Lib "PISOCANDNM.dll" () As Long 'Master Operating Functions Declare Function CANDNM_GetMasterMACID Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_SetMasterMACID Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal MasterMACID As Byte) As Long Declare Function CANDNM_GetBaudRate Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_SetBaudRate Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal BaudRate As Byte) As Long Declare Function CANDNM_GetMasterStatus Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_GetSlaveStatus Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte) As Long Declare Function CANDNM_StartDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte) As Long Declare Function CANDNM_StopDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte) As Long Declare Function CANDNM_StartAllDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_StopAllDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_AddDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte, ByVal Explicit_EPR As Integer) As Long Declare Function CANDNM_RemoveDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte) As Long Declare Function CANDNM_AddIOConnection Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte, _ ByVal ConType As Byte, ByVal DeviceInputLen As Integer, _ ByVal DeviceOutputLen As Integer, ByVal EPR As Integer) As Long Declare Function CANDNM_RemoveIOConnection Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte, ByVal ConType As Byte) As Long Declare Function CANDNM_GetAttribute Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte, _ ByVal ClassID As Byte, ByVal InstanceID As Byte, ByVal AttributeID As Byte) As Long Declare Function CANDNM_IsGetAttributeOK Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte) As Long Declare Function CANDNM_GetAttributeValue Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte, _ ByRef DATA As Byte, ByRef DataLen As Integer) As Long Declare Function CANDNM_SetAttribute Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte, _ ByVal ClassID As Byte, ByVal InstanceID, ByVal AttributeID As Byte, _ ByVal DataLen As Integer, ByRef DATA As Byte) As Long Declare Function CANDNM_IsSetAttributeOK Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte) As Long Declare Function CANDNM_ClearAllConfig Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_SearchAllDevices Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_SearchSpecificDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, _ ByVal ListCount As Integer, ByRef DesMACIDList As Byte) As Long Declare Function CANDNM_IsSearchOK Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte) As Long Declare Function CANDNM_GetSearchedDevices Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByRef TotalDevices As Integer, _ ByRef DesMACID As Byte, ByRef ConType As Byte, ByRef DeviceInputLen As Integer, _ ByRef DeviceOutputLen As Integer) As Long Declare Function CANDNM_GetDeviceInfoFromScanList Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByVal DesMACID As Byte, _ ByRef ListCount As Integer, ByRef ConnectionTypeList As Byte, _ ByRef InputDataLenList As Integer, ByRef OutputDataLenList As Integer, _ ByRef EPRList As Integer) As Long Declare Function CANDNM_GetSearchedDevices Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByRef TotalDevices As Integer, _ ByRef DesMACIDList As Byte, ByRef ConnectionTypeList As Byte, _ ByRef InputDataLenList As Integer, ByRef OutputDataLenList As Integer, _ ByRef EPR_List As Integer) As Long Declare Function CANDNM_ImportEEPROM Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, ByRef ListCount As Integer, _ ByRef DesMACIDList As Byte, ByRef ConnectionTypeList As Byte, _ ByRef InputDataLenList As Integer, ByRef OutputDataLenList As Integer, _ ByRef EPR_List As Integer) As Long ' I/O Configuring Functions Declare Function CANDNM_ReadInputData Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, _ ByVal DesMACID As Byte, ByVal ConType As Byte, _ ByRef IOLen As Integer, ByRef IODATA As Integer) As Long Declare Function CANDNM_WriteOutputData Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal PortNo As Byte, _ ByVal DesMACID As Byte, ByVal ConType As Byte, _ ByVal IOLen As Integer, ByRef IODATA As Integer) As Long