d2xx_unit_net.vb

free sources for gsm

            Exit Function
        End If

    End Function


    Function Get_USB_Device_Latency_Timer() As Integer

        FT_Status = FT_GetLatencyTimer(FT_Handle, FT_Latency)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Set_USB_Device_Latency_Timer() As Integer

        FT_Status = FT_SetLatencyTimer(FT_Handle, FT_Latency)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Get_USB_Device_Bit_Mode(ByVal Mask As Byte) As Integer

        FT_Status = FT_GetBitMode(FT_Handle, Mask)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Set_USB_Device_Bit_Mode(ByVal Mask As Byte, ByVal Enable As Byte) As Integer

        FT_Status = FT_SetBitMode(FT_Handle, Mask, Enable)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Set_USB_Device_Parameters(ByVal InTransferSize As Integer, ByVal OutTransferSize As Integer) As Integer

        FT_Status = FT_SetUSBParameters(FT_Handle, InTransferSize, OutTransferSize)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Set_USB_Device_Break_On() As Integer

        FT_Status = FT_SetBreakOn(FT_Handle)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Set_USB_Device_Break_Off() As Integer

        FT_Status = FT_SetBreakOff(FT_Handle)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Get_USB_Device_Status() As Integer

        FT_Status = FT_GetStatus(FT_Handle, FT_RxQ_Bytes, FT_TxQ_Bytes, FT_EventStatus)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Set_USB_Device_Event_Notification(ByVal EventMask As Integer, ByVal EventHandle As Integer) As Integer

        FT_Status = FT_SetEventNotification(FT_Handle, EventMask, EventHandle)

        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function



    Function Read_FT232_FT245_EEPROM() As Integer
        Dim TempManufacturer As String
        Dim TempManufacturerID As String
        Dim TempDescription As String
        Dim TempSerialNumber As String

        ' Create empty strings
        TempManufacturer = Space(32)
        TempManufacturerID = Space(16)
        TempDescription = Space(64)
        TempSerialNumber = Space(16)

        ' Initialise structure
        FT_EEPROM_DataBuffer.Signature1 = &H0
        FT_EEPROM_DataBuffer.Signature2 = &HFFFFFFFF
        FT_EEPROM_DataBuffer.Version = 0
        FT_EEPROM_DataBuffer.VendorID = 0
        FT_EEPROM_DataBuffer.ProductID = 0
        FT_EEPROM_DataBuffer.Manufacturer = 0
        FT_EEPROM_DataBuffer.ManufacturerID = 0
        FT_EEPROM_DataBuffer.Description = 0
        FT_EEPROM_DataBuffer.SerialNumber = 0
        FT_EEPROM_DataBuffer.MaxPower = 0
        FT_EEPROM_DataBuffer.PnP = 0
        FT_EEPROM_DataBuffer.SelfPowered = 0
        FT_EEPROM_DataBuffer.RemoteWakeup = 0
        ' Rev4 extensions:
        FT_EEPROM_DataBuffer.Rev4 = 0
        FT_EEPROM_DataBuffer.IsoIn = 0
        FT_EEPROM_DataBuffer.IsoOut = 0
        FT_EEPROM_DataBuffer.PullDownEnable = 0
        FT_EEPROM_DataBuffer.SerNumEnable = 0
        FT_EEPROM_DataBuffer.USBVersionEnable = 0
        FT_EEPROM_DataBuffer.USBVersion = 0
        ' FT2232C extensions:
        FT_EEPROM_DataBuffer.Rev5 = 0
        FT_EEPROM_DataBuffer.IsoInA = 0
        FT_EEPROM_DataBuffer.IsoInB = 0
        FT_EEPROM_DataBuffer.IsoOutA = 0
        FT_EEPROM_DataBuffer.IsoOutB = 0
        FT_EEPROM_DataBuffer.PullDownEnable5 = 0
        FT_EEPROM_DataBuffer.SerNumEnable5 = 0
        FT_EEPROM_DataBuffer.USBVersionEnable5 = 0
        FT_EEPROM_DataBuffer.USBVersion5 = 0
        FT_EEPROM_DataBuffer.AIsHighCurrent = 0
        FT_EEPROM_DataBuffer.BIsHighCurrent = 0
        FT_EEPROM_DataBuffer.IFAIsFifo = 0
        FT_EEPROM_DataBuffer.IFAIsFifoTar = 0
        FT_EEPROM_DataBuffer.IFAIsFastSer = 0
        FT_EEPROM_DataBuffer.AIsVCP = 0
        FT_EEPROM_DataBuffer.IFBIsFifo = 0
        FT_EEPROM_DataBuffer.IFBIsFifoTar = 0
        FT_EEPROM_DataBuffer.IFBIsFastSer = 0
        FT_EEPROM_DataBuffer.BIsVCP = 0

        FT_Status = FT_EE_ReadEx(FT_Handle, FT_EEPROM_DataBuffer, TempManufacturer, TempManufacturerID, TempDescription, TempSerialNumber)
        If FT_Status <> FT_OK Then
            Exit Function
        End If


        FT_EEPROM_Manufacturer = Left(TempManufacturer, InStr(1, TempManufacturer, vbNullChar) - 1)
        FT_EEPROM_ManufacturerID = Left(TempManufacturerID, InStr(1, TempManufacturerID, vbNullChar) - 1)
        FT_EEPROM_Description = Left(TempDescription, InStr(1, TempDescription, vbNullChar) - 1)
        FT_EEPROM_SerialNumber = Left(TempSerialNumber, InStr(1, TempSerialNumber, vbNullChar) - 1)

    End Function


    Function Read_FT2232C_EEPROM() As Integer
        Dim TempManufacturer As String
        Dim TempManufacturerID As String
        Dim TempDescription As String
        Dim TempSerialNumber As String

        ' Create empty strings
        TempManufacturer = Space(32)
        TempManufacturerID = Space(16)
        TempDescription = Space(64)
        TempSerialNumber = Space(16)

        ' Initialise structure
        FT_EEPROM_DataBuffer.Signature1 = &H0
        FT_EEPROM_DataBuffer.Signature2 = &HFFFFFFFF
        FT_EEPROM_DataBuffer.Version = 1
        FT_EEPROM_DataBuffer.VendorID = 0
        FT_EEPROM_DataBuffer.ProductID = 0
        FT_EEPROM_DataBuffer.Manufacturer = 0
        FT_EEPROM_DataBuffer.ManufacturerID = 0
        FT_EEPROM_DataBuffer.Description = 0
        FT_EEPROM_DataBuffer.SerialNumber = 0
        FT_EEPROM_DataBuffer.MaxPower = 0
        FT_EEPROM_DataBuffer.PnP = 0
        FT_EEPROM_DataBuffer.SelfPowered = 0
        FT_EEPROM_DataBuffer.RemoteWakeup = 0
        ' Rev4 extensions:
        FT_EEPROM_DataBuffer.Rev4 = 0
        FT_EEPROM_DataBuffer.IsoIn = 0
        FT_EEPROM_DataBuffer.IsoOut = 0
        FT_EEPROM_DataBuffer.PullDownEnable = 0
        FT_EEPROM_DataBuffer.SerNumEnable = 0
        FT_EEPROM_DataBuffer.USBVersionEnable = 0
        FT_EEPROM_DataBuffer.USBVersion = 0
        ' FT2232C extensions:
        FT_EEPROM_DataBuffer.Rev5 = 0
        FT_EEPROM_DataBuffer.IsoInA = 0
        FT_EEPROM_DataBuffer.IsoInB = 0
        FT_EEPROM_DataBuffer.IsoOutA = 0
        FT_EEPROM_DataBuffer.IsoOutB = 0
        FT_EEPROM_DataBuffer.PullDownEnable5 = 0
        FT_EEPROM_DataBuffer.SerNumEnable5 = 0
        FT_EEPROM_DataBuffer.USBVersionEnable5 = 0
        FT_EEPROM_DataBuffer.USBVersion5 = 0
        FT_EEPROM_DataBuffer.AIsHighCurrent = 0
        FT_EEPROM_DataBuffer.BIsHighCurrent = 0
        FT_EEPROM_DataBuffer.IFAIsFifo = 0
        FT_EEPROM_DataBuffer.IFAIsFifoTar = 0
        FT_EEPROM_DataBuffer.IFAIsFastSer = 0
        FT_EEPROM_DataBuffer.AIsVCP = 0
        FT_EEPROM_DataBuffer.IFBIsFifo = 0
        FT_EEPROM_DataBuffer.IFBIsFifoTar = 0
        FT_EEPROM_DataBuffer.IFBIsFastSer = 0
        FT_EEPROM_DataBuffer.BIsVCP = 0

        FT_Status = FT_EE_ReadEx(FT_Handle, FT_EEPROM_DataBuffer, TempManufacturer, TempManufacturerID, TempDescription, TempSerialNumber)
        If FT_Status <> FT_OK Then
            Exit Function
        End If


        FT_EEPROM_Manufacturer = Left(TempManufacturer, InStr(1, TempManufacturer, vbNullChar) - 1)
        FT_EEPROM_ManufacturerID = Left(TempManufacturerID, InStr(1, TempManufacturerID, vbNullChar) - 1)
        FT_EEPROM_Description = Left(TempDescription, InStr(1, TempDescription, vbNullChar) - 1)
        FT_EEPROM_SerialNumber = Left(TempSerialNumber, InStr(1, TempSerialNumber, vbNullChar) - 1)

    End Function


    Function Program_FT232_FT245_EEPROM(ByVal FT_EEPROM_DataBuffer As FT_PROGRAM_DATA, ByVal FT_EEPROM_Manufacturer As String, ByVal FT_EEPROM_ManufacturerID As String, ByVal FT_EEPROM_Description As String, ByVal FT_EEPROM_SerialNumber As String) As Integer

        FT_EEPROM_DataBuffer.Signature1 = &H0
        FT_EEPROM_DataBuffer.Signature2 = &HFFFFFFFF
        FT_EEPROM_DataBuffer.Version = 0

        FT_Status = FT_EE_ProgramEx(FT_Handle, FT_EEPROM_DataBuffer, FT_EEPROM_Manufacturer, FT_EEPROM_ManufacturerID, FT_EEPROM_Description, FT_EEPROM_SerialNumber)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Program_FT2232C_EEPROM(ByVal FT_EEPROM_DataBuffer As FT_PROGRAM_DATA, ByVal FT_EEPROM_Manufacturer As String, ByVal FT_EEPROM_ManufacturerID As String, ByVal FT_EEPROM_Description As String, ByVal FT_EEPROM_SerialNumber As String) As Integer

        FT_EEPROM_DataBuffer.Signature1 = &H0
        FT_EEPROM_DataBuffer.Signature2 = &HFFFFFFFF
        FT_EEPROM_DataBuffer.Version = 1

        FT_Status = FT_EE_ProgramEx(FT_Handle, FT_EEPROM_DataBuffer, FT_EEPROM_Manufacturer, FT_EEPROM_ManufacturerID, FT_EEPROM_Description, FT_EEPROM_SerialNumber)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Erase_EEPROM() As Integer

        FT_Status = FT_EraseEE(FT_Handle)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Get_EEPROM_UA_Size() As Integer

        FT_Status = FT_EE_UASize(FT_Handle, FT_UA_Size)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Read_EEPROM_UA(ByVal UA_Read_Count As Integer) As Integer
        Dim UA_Read_Result As Integer

        FT_Status = FT_EE_UARead(FT_Handle, FT_UA_Data(0), UA_Read_Count, UA_Read_Result)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


    Function Write_EEPROM_UA(ByVal UA_Write_Count As Integer) As Integer
        Dim UA_Write_Result As Integer

        FT_Status = FT_EE_UAWrite(FT_Handle, FT_UA_Data(0), UA_Write_Count)
        If FT_Status <> FT_OK Then
            Exit Function
        End If

    End Function


End Module