Использую библиотеку lcomp, функция IoAsync

при выставлении значения на цифровых выходах с помощью этой функции все нормально, при чтении всегда возвращается число 7, какие бы состояния фактически не были бы на входах

хелп ми

Public Function GetIN(ByRef Rezult As Integer) As Boolean
        Try
            Dim err As Integer
            Dim pp As New ASYNC_PAR

            pp.s_Type = eIoAsync.L_ASYNC_TTL_CFG
            pp.Mode = 1

            err = IoAsync(hObj, pp.data)
            If err = eErrLcomp.L_ERROR Then Return False

            pp.s_Type = eIoAsync.L_ASYNC_TTL_INP

            err = IoAsync(hObj, pp.data)
            If err = eErrLcomp.L_ERROR Then Return False

            Rezult = pp.data(0)

            Return True

        Catch ex As Exception
            MessageBox.Show("GetADC L-Card Error" & vbCrLf & ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        End Try

    End Function

При описании параметров на Бейсике не нарушился формат структуры?
Тип ASYNC_PAR как описан?

http://www.lcard.ru/forums/viewtopic.ph … 250#p57250

Я не знаю как в бейсике, но как параметр функции IoAsync должен уходить указатель на pp, а не pp.data. А так в тестовом С++ примере долно быть чтение и запись TTL линий IoAsync... как оно работает?

структуру с разметкой в бэйсике проблемно сделать, сделан класс в котором считываются и записываются данные в массив байт, pp.data указатель на этот массив, ошибки нет иначе как объяснить - что вывод на цифровые выходы работает норально, так же нормально работает асинхронное чтение с канала АЦП, а чтение с цифровых линий не работает

проверьте E-154 на работоспособность в Windows 8 x64 и Lcomp или будьте добры пришлите какой нибудь рабочий exe-ник скомпилированный, в котором можно проверить работоспособность цифровых входов

отправил на почту