Attribute VB_Name = "Lib"
 Option Explicit
'------------------------ Error Message ------------------
Global Const NoError = 0
Global Const FunctionError = 1
Global Const PortError = 2
Global Const BaudRateError = 3
Global Const DataError = 4
Global Const StopError = 5
Global Const ParityError = 6
Global Const CheckSumError = 7
Global Const ComPortNotOpen = 8
Global Const SendThreadCreateError = 9
Global Const SendCmdError = 10
Global Const ReadComStatusError = 11
Global Const ResultStrCheckError = 12
Global Const CmdError = 13
Global Const TimeOut = 15
Global Const ModuleIdError = 17
Global Const AdChannelError = 18
Global Const UnderInputRange = 19
Global Const ExceedInputRange = 20
Global Const InvalidateCounterNo = 21
Global Const InvalidateCounterValue = 22

'----------------------  UART.DLL -----------------------------------------------
Declare Function Get_Uart_Version Lib "uart.dll" () As Integer

Declare Function Open_Com Lib "uart.dll" (ByVal port As Integer, ByVal BaudRate As Long, ByVal cData As Byte, ByVal cParity As Byte, ByVal cStop As Byte) As Integer

Declare Function Change_Baudrate Lib "uart.dll" (ByVal port As Integer, ByVal lBaudrate As Long) As Integer

Declare Function Change_Config Lib "uart.dll" (ByVal port As Integer, ByVal BaudRate As Long, ByVal cData As Byte, ByVal cParity As Byte, ByVal cStop As Byte) As Integer

Declare Function Get_Com_Status Lib "uart.dll" (ByVal port As Integer) As Integer

Declare Function Close_Com Lib "uart.dll" (ByVal port As Integer) As Boolean

Declare Function Send_Binary Lib "uart.dll" (ByVal port As Integer, ByRef szBuf As Byte, ByVal length As Integer) As Integer

Declare Function Receive_Binary Lib "uart.dll" (ByVal port As Integer, ByRef szResult As Byte, ByVal TimeOut As Integer, ByVal length As Integer, wT As Integer) As Integer
        
'Receive_Binary(unsigned char cPort, char szResult[], WORD wTimeOut, WORD wLen, WORD *wT)

Declare Function Send_Cmd Lib "uart.dll" (ByVal port As Integer, ByVal Cmd As String, ByVal wChkSum As Integer) As Integer

Declare Function Receive_Cmd Lib "uart.dll" (ByVal port As Integer, ByVal szResult As String, ByVal TimeOut As Integer, ByVal Checksum As Integer, wT As Integer) As Integer


Declare Function Send_Receive_Cmd Lib "uart.dll" (ByVal port As Integer, ByVal szCmd As String, ByVal szResult As String, ByVal TimeOut As Integer, ByVal Checksum As Integer, wT As Integer) As Integer

'----------------------------DCONPC.DLL-------------------------------------------
Declare Function DCON_Write_DO Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
    ByVal iSlot As Integer, ByVal iDO_TotalCh As Integer, ByVal lDO_Value As Long, _
    ByVal iCheckSum As Integer, ByVal iTimeOut As Integer) As Integer
'/****************************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)
'    iDO_TotalCh: 1~32. total DO channels
'    lDO_Value: DO value.
'                for example: 0x32==> ch5=1, ch4=1, ch1=1,
'                                     others are 0.
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'
'    return: 0 = No Error
'            other = error code.
'****************************************************************************/

Declare Function DCON_Write_DO_Bit Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iDO_TotalCh As Integer, _
        ByVal iBitValue As Integer, ByVal iCheckSum As Integer, ByVal iTimeOut As Integer) As Integer
'/***********************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)0
'    iChannel: 0~31
'    iDO_TotalCh: 1~32, Total DO channels
'    iBitValue: 0   = Off
'               <>0 = On
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'
'    return: 0 = No Error
'            other = error code.
'*************************************************************************/

Declare Function DCON_Read_DI_Counter Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iDI_TotalCh As Integer, ByVal iCheckSum As Integer, _
        ByVal iTimeOut As Integer, ByRef lCounter_Value As Long) As Integer
'/*******************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)
'    iChannel: 0~15
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'    *lCounter_Value: counter value.
'
'    return: 0 = No Error
'            other = error code.
'**********************************************************************/

Declare Function DCON_Clear_DI_Counter Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iDI_TotalCh As Integer, _
        ByVal iCheckSum As Integer, ByVal iTimeOut As Integer) As Integer
'/******************************************************************
'iComPort: 1 ~ 255
'iAddress: 0 ~ 255: the RS-485 Address of module
'iSlot: 0~7: for 8K and 87K series on i-8000 system
'        -1: 7K and 87K (on 87K IO Expansion bus)
'iChannel: 0~15
'iDI_TotalCh: 1~32. total DI channels
'iCheckSum: 0: disabled
'1:            Enabled
'iTimeOut: timeout value to wait response. unit= ms.
'
'return: 0 = No Error
'        other = error code.
'******************************************************************/

Declare Function DCON_Write_AO Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iAO_TotalCh As Integer, _
        ByVal fValue As Single, ByVal iCheckSum As Integer, ByVal iTimeOut As Integer) As Integer
'/***************************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)
'    iChannel: 0~3
'    iAO_TotalCh: 1~4. total AO channels
'fValue:     AO Value
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'
'    return: 0 = No Error
'            other = error code.
'*****************************************************************************/

Declare Function DCON_Read_AO Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iAO_TotalCh As Integer, _
        ByVal iCheckSum As Integer, ByVal iTimeOut As Integer, ByRef fValue As Single) As Integer
'/***********************************************************************************
'   iComPort: 1 ~ 255
'   iAddress: 0 ~ 255: the RS-485 Address of module
'   iSlot: 0~7: for 8K and 87K series on i-8000 system
'           -1: 7K and 87K (on 87K IO Expansion bus)
'   iAO_TotalCh: 1~4. total AO channels,used to define command and response
'
'   iCheckSum: 0: disabled
'1:               Enabled
'   iTimeOut: timeout value to wait response. unit= ms.
'
'   iDataFormat: 0: Engineering format
'1:                  Percent Format
'2:                  Hex Format
'
'iValue:    Hex Format
'fValue:    Float Format
'
'   return: 0 = No Error
'           15= timeout (No response)
'
'
'    Note: user can readback AO output in either float value or hex format ,
'          according to the data format of module.
'          but user must declare both the variable in function
'    for example:
'    float fVal;
'    int iVal,format;
'    short ret;
'    ....
'    format=0;
'    fVal=5.0;
'    iVal=0;
'    ret= DCON_Read_AO(1,1,-1,0,4,0,300,format,&fVal,&iVal)as integer
'
'    //then the current AO value will be fVal, the iVal will get the default 0
'**********************************************************************************/

Declare Function DCON_Read_AI Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iAI_TotalCh As Integer, _
        ByVal iCheckSum As Integer, ByVal iTimeOut As Integer, ByVal iDataFormat As Integer, _
        ByRef fValue As Single, ByRef iValue As Integer) As Integer
'/*****************************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: for 7K and 87K (on 87K IO Expansion bus)
'    iChannel: 0~7
'    iAI_TotalCh: 1~ N, total AI channels
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'
'    *fValue:the AI value (engineering , % or ohmn data type).
'
'    return: 0 = No Error
'            other = error code.
'******************************************************************************/

Declare Function DCON_Read_Counter Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iCheckSum As Integer, _
        ByVal iTimeOut As Integer, ByRef lCounter_Value As Long) As Integer
'/**********************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)
'    iChannel: 0~15
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'    *lCounter_Value: counter value.
'
'    return: 0 = No Error
'            other = error code.
'***********************************************************************/

Declare Function DCON_Clear_Counter Lib "DCON_PC.dll" (ByVal iComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iCheckSum As Integer, _
        ByVal iTimeOut As Integer) As Integer
'/*********************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)
'    iChannel: 0~15
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'
'    return: 0 = No Error
'            other = error code.
'***********************************************************************/

Declare Function DCON_Read_DIO Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iDI_TotalCh As Integer, ByVal iDO_TotalCh As Integer, _
        ByVal iCheckSum As Integer, ByVal iTimeOut As Integer, ByRef lDI_Value As Long, _
        ByRef lDO_Value As Long, ByRef cDI_BitValue As Byte, ByRef cDO_BitValue As Byte) As Integer
'/*********************************************************************************
'   iComPort: 1 ~ 255
'   iAddress: 0 ~ 255: the RS-485 Address of module
'   iSlot: 0~7: for 8K and 87K series on i-8000 system
'           -1: 7K and 87K (on 87K IO Expansion bus)
'   iDI_TotalCh: 0~32. total DI channels,used to define the input bytes
'   iDO_TotalCh: 0~32. total DO channels,used to define the output bytes
'   iCheckSum: 0: disabled
'1:               Enabled
'   iTimeOut: timeout value to wait response. unit= ms.
'   *lDI_Value: DI value.
'               for example: 0x32==> ch5=1, ch4=1, ch1=1,
'                                    others are 0.
'   *lDO_Value: DO read back value.
'               for example: 0x32==> ch5=on, ch4=on, ch1=on,
'                                    others are off.
'   *cDI_BitValue: DI value.
'                  for example: {0,1,0,0,1,1}
'                  ==> bit0=0,bit1=1,bit2=0,bit3=0,bit4=1,bit5=1.
'   *cDO_BitValue: DO read back value.
'                  for example: {0,1,0,0,1,1}
'                  ==> bit0=0,bit1=1,bit2=0,bit3=0,bit4=1,bit5=1.
'
'    return: 0 = No Error
'            15= timeout (No response)
'**********************************************************************************/

Declare Function DCON_READ_DIO_Latch Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iDI_TotalCh As Integer, ByVal iDO_TotalCh As Integer, _
        ByVal iLatchType As Integer, ByVal iCheckSum As Integer, ByVal iTimeOut As Integer, _
        ByRef lDI_Latch_Value As Long, ByRef lDO_Latch_Value As Long, _
        ByRef cDI_Latch_BitValue As Byte, ByRef cDO_Latch_BitValue As Byte) As Integer
'/***************************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)
'    iDI_TotalCh: 0~32. total DI channels,used to define input bytes
'    iDO_TotalCh: 0~32. total DO channels,used to define the output bytes
'    iLatchType: 0 = Logic Low Latched
'                1 = Logic High Latched
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'    *lDI_Latch_Value: DI latch value.
'                for example: 0x32==> ch5=1, ch4=1, ch1=1,
'                                     others are 0.
'    *lDO_Latch_Value: DO read back latch value.
'                for example: 0x32==> ch5=on, ch4=on, ch1=on,
'                                     others are off.
'    *cDI_Latch_BitValue: DI latch value.
'                   for example: {0,1,0,0,1,1}
'                   ==> bit0=0,bit1=1,bit2=0,bit3=0,bit4=1,bit5=1.
'    *cDO_Latch_BitValue: DO read back latch value.
'                   for example: {0,1,0,0,1,1}
'                   ==> bit0=0,bit1=1,bit2=0,bit3=0,bit4=1,bit5=1.
'
'    return: 0 = No Error
'            15= timeout (No response)
'****************************************************************************/

Declare Function DCON_Clear_DIO_Latch Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iCheckSum As Integer, ByVal iTimeOut As Integer) As Integer
'/*******************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'
'
'    return: 0 = No Error
'            15= timeout (No response)
'
'
'**********************************************************************/

Declare Function DCON_Read_Overflow Lib "DCON_PC.dll" (ByVal cComPort As Byte, ByVal iAddress As Integer, _
        ByVal iSlot As Integer, ByVal iChannel As Integer, ByVal iCheckSum As Integer, _
        ByVal iTimeOut As Integer, ByRef iOverflow As Long) As Integer
'/*******************************************************************
'    iComPort: 1 ~ 255
'    iAddress: 0 ~ 255: the RS-485 Address of module
'    iSlot: 0~7: for 8K and 87K series on i-8000 system
'            -1: 7K and 87K (on 87K IO Expansion bus)
'    iCheckSum: 0: disabled
'1:                Enabled
'    iTimeOut: timeout value to wait response. unit= ms.
'
'
'    return: 0 = No Error
'            15= timeout (No response)
'
'
'**********************************************************************/