Attribute VB_Name = "PISOCANDNM" Option Explicit '-------------------------------------------------- ' Dll Function Return 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 ' DNM_TxMessageConnectionIDError 1100 ' DNM_TxMessageRTRError 1101 ' DNM_TxMessageLengthError 1102 ' DNM_DuplicateMACIDTimeout 1200 ' DNM_WaitBufferResponseTimeout 1201 ' DNM_BaudrateError 1202 //please check the baudrate is correct.(0~2) ' DNM_MACIDNumberError 1203 //please check the MAC ID is correct(0~63) ' DNM_OnlineError 1204 //please change another MAC ID ' DNM_OfflineError 1205 //you must call this function after called DNM_Online() ' DNM_MasterStateError 1206 ' DNM_BoardNumberError 1300 ' DNM_BoardAlreadyClose 1301 ' DNM_BoardAlreadyActive 1302 ' DNM_BoardNotActive 1303 ' DNM_PortAlreadyOnline 1400 ' DNM_PortNumberError 1401 ' DNM_ChangeMACIDError 1500 ' DNM_ChangeBaudrateError 1501 ' DNM_SetAttributeRequestError 1600 ' DNM_SetAttributeResponseError 1601 ' DNM_SetAttributeResponseTimeout 1602 ' DNM_SetAttributeDataIsEmpty 1603 ' DNM_SetAttributeACKError 1604 ' DNM_SetAttributeFragmentACKTimeout 1605 ' DNM_GetAttributeRequestError 1700 ' DNM_GetAttributeResponseError 1701 ' DNM_GetAttributeResponseTimeout 1702 ' DNM_GetAttributeFragmentTimeout 1703 ' DNM_DeviceAlreadyInScanList 1800 ' DNM_DeviceNotInScanList 1801 ' DNM_DeviceIsUnConnected 1802 ' DNM_DeviceIsConnecting 1803 ' DNM_ExplicitMsgNotConfigure 1900 ' DNM_PollNotConfigure 1901 ' DNM_BitStrobeNotConfigure 1906 ' DNM_COS_CyclicNotConfigure 1907 ' DNM_PollNoResponse 1902 ' DNM_PollResponseDataError 1903 ' DNM_PollFragmentError 1904 ' DNM_WritePollOutputDataLengthError 1905 ' DNM_SetPollInputLenError 1908 //Add by Johney 2006.1.12 ' DNM_SetPollOutputLenError 1909 //Add by Johney 2006.1.12 ' DNM_CreateThreadError 2000 ' DNM_ResumeThreadError 2001 ' DNM_SuspendThreadError 2002 ' DNM_TerminateThreadError 2003 ' DNM_CloseHandleError 2004 ' DNM_ThreadNotExist 2005 ' DNM_CreateDeviceBitStrobeThreadError 2100 ' DNM_BitStrobeRequestThreadNotExist 2101 ' DNM_CloseBitStrobeRequestError 2102 ' DNM_TerminateBitStrobeRequestThreadError 2103 ' DNM_SuspendBitStrobeRequestThreadError 2104 ' DNM_ResumeBitStrobeRequestThreadError 2105 ' DNM_BitStrobeNoResponse 2106 ' DNM_BitStrobeResponseDataError 2107 ' DNM_SetBitStrobeInputLenError 2108 //Add by Johney 2006.1.12 ' DNM_CreateDeviceCOS_CyclicThreadError 2200 ' DNM_COS_Cyclic_NoResponse 2201 ' DNM_COS_Cyclic_ResponseDataError 2202 ' DNM_COS_Cyclic_FragmentError 2203 ' DNM_WriteCOSOutputDataLengthError 2204 ' DNM_WriteCyclicOutputDataLengthError 2205 ' DNM_SetCOSInputLenError 2206 //Add by Johney 2006.1.12 ' DNM_SetCOSOutputLenError 2207 //Add by Johney 2006.1.12 ' DNM_SetCyclicInputLenError 2208 //Add by Johney 2006.1.12 ' DNM_SetCyclicOutputLenError 2209 //Add by Johney 2006.1.12 ' DNM_CreateDeviceExplicitMsgThreadError 3000 ' DNM_CreateDevicePollThreadError 3100 ' DNM_CreateDeviceBitStrobeRequestThreadError 3200 ' DNM_COS_Cyclic_ConnectionDuplicate 3300 ' DNM_ConfigureConnectionDuplicate 3400 ' DNM_COS_CyclicAlreadyConfigure 3500 ' DNM_GetOwnershipFail 4000 ' DNM_MasterNotGetOwnership 4001 '---------------------- PISOCANDNM.dll ----------------------------------------------- Declare Function DNM_GetVersion Lib "PISOCANDNM.dll" () As Single Declare Function DNM_ActiveBoard Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte) As Integer Declare Function DNM_CloseBoard Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte) As Integer Declare Function DNM_Online Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, _ ByVal Baudrate As Byte, ByVal Macid As Byte) As Integer Declare Function DNM_Offline Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte) As Integer Declare Function DNM_ChangeMACID Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, _ ByVal Macid As Byte) As Integer Declare Function DNM_ChangeBaudrate Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, _ ByVal Baudrate As Byte) As Integer Declare Function DNM_AddDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, _ ByVal DestMACID As Byte) As Integer Declare Function DNM_RemoveDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, _ ByVal DestMACID As Byte) As Integer Declare Function DNM_SetAttribute Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, ByVal ClassIDm As Integer, _ ByVal InstanceID As Byte, ByVal AttributeID As Byte, ByRef SetValue As Byte, ByVal Length As Long) As Integer Declare Function DNM_GetAttribute Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, ByVal ClassIDm As Integer, _ ByVal InstanceID As Byte, ByVal AttributeID As Byte, ByRef GetValue As Byte, ByRef Length As Long) As Integer Declare Function DNM_ConfigExplicitMsg Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByVal watchdog_timeout_action As Integer) As Integer Declare Function DNM_CheckExplicitMsgConnectionStatus Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Integer Declare Function DNM_ConfigPoll Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByVal produced_connection_size As Integer, ByVal consumed_connection_size As Integer, ByVal expected_packet_rate As Integer, ByVal watchdog_timeout_action As Integer) As Integer Declare Function DNM_CheckPollConnectionStatus Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Integer Declare Function DNM_ReadPollInputData Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByRef DataBuf As Byte, ByRef DataLength As Long) As Integer Declare Function DNM_WritePollOutputData Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByRef DataBuf As Byte, ByVal DataLength As Long) As Integer Declare Function DNM_ConfigBitStrobe Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByVal produced_connection_size As Integer, ByVal expected_packet_rate As Integer, ByVal watchdog_timeout_action As Integer) As Integer Declare Function DNM_ReadBitStrobe Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByRef DataBuf As Byte, ByRef DataLength As Long) As Integer Declare Function DNM_CheckBitStrobeConnectionStatus Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Integer Declare Function DNM_ConfigCOS Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByVal produced_connection_size As Integer, ByVal consumed_connection_size As Integer, ByVal isnonack As Byte, ByVal expected_packet_rate As Integer, ByVal watchdog_timeout_action As Integer) As Integer Declare Function DNM_ConfigCyclic Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByVal produced_connection_size As Integer, ByVal consumed_connection_size As Integer, ByVal isnonack As Byte, ByVal expected_packet_rate As Integer, ByVal watchdog_timeout_action As Integer) As Integer Declare Function DNM_ReadCOSInputData Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByRef DataBuf As Byte, ByRef DataLength As Long) As Integer Declare Function DNM_WriteCOSOutputData Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByRef DataBuf As Byte, ByVal DataLength As Long) As Integer Declare Function DNM_ReadCyclicInputData Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByRef DataBuf As Byte, ByRef DataLength As Long) As Integer Declare Function DNM_WriteCyclicOutputData Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte, _ ByRef DataBuf As Byte, ByVal DataLength As Long) As Integer Declare Function DNM_CheckCOSConnectionStatus Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Integer Declare Function DNM_CheckCyclicConnectionStatus Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Integer Declare Function DNM_GetAllDeviceMACID Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByRef AllMACID As Byte, ByRef DeviceCount As Byte) As Integer Declare Function DNM_GetOwnership Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte) As Integer Declare Function DNM_CheckFaultNode Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte) As Integer Declare Function DNM_GetAllFaultNode Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByRef VendorID As Integer, ByRef SerialNo As Long, ByRef NodeCount As Byte) As Integer Declare Function DNM_ChangeFaultMACID Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal VendorID As Integer, ByVal SerialNo As Long, ByVal NewMACID As Byte) As Integer Declare Function DNM_StartDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Integer Declare Function DNM_StopDevice Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Integer Declare Function DNM_StartCommunicate Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte) As Integer Declare Function DNM_StopCommunicate Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte) As Integer Declare Function DNM_GetExplicitMsgNoResponse Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetExplicitMsgErrorResponse Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetBitStrobeNoResponse Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetCOS_CyclicWithPollNoResponse Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetCOS_CyclicWithPollErrorResponse Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetCOS_CyclicWithPollFragmentError Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetCOS_CyclicWithPollSendError Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetCOS_CyclicWithoutPollSendError Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetCOS_CyclicWithoutPollACKNoResponse Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetPollSendError Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetPollNoResponse Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetPollErrorResponse Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_GetPollFragmentError Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DestMACID As Byte) As Long Declare Function DNM_TotalBoard Lib "PISOCANDNM.dll" () As Integer ' Add 2006.1.12(Johney) Declare Function DNM_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 Integer ' Add 2006.1.12(Johney) Declare Function DNM_SetPollFrequency Lib "PISOCANDNM.dll" (ByVal Frequency As Integer) As Integer ' Add 2006.1.12(Johney) Declare Function DNM_SetBitStrobeFrequency Lib "PISOCANDNM.dll" (ByVal Frequency As Integer) As Integer ' Add 2006.1.12(Johney) Declare Function DNM_GetDeviceStatus Lib "PISOCANDNM.dll" (ByVal BoardNo As Byte, ByVal Port As Byte, ByVal DesMACID As Byte) As Long ' Add 2006.1.12(Johney)