| Вопрос: Перенос программы | Добавлено: 26.12.08 15:06 |
Автор вопроса:  dwpa
|
|
Здравствуйте! Есть программа на VB6, которая запускала и забирала данные с АЦП. Нужно ее перенести в 2008. Выглядит она так (убирая лишнее):
DriverName = "LA2USB" 'Имя драйвера BaseAddress = &H1 'Базовый адрес DRQChannel = 0 'DRQ IRQLevel = 1 'IRQ Res = ADCControl1.LoadDriver(DriverName) Res = ADCControl1.Setup(BaseAddress, DRQChannel, IRQLevel) 'Установка базовых параметров ParametersDMA1.nStartOf = ADCPARAM_START_TIMER 'Запуск АЦП от таймера ………………………………………………………………………. Handle = ParametersDMA1.GetHandle 'Выборка параметров Res = ADCControl1.Init(Handle) 'Инициализация платы Res = ADCControl1.Start() 'Запуск АЦП If ADCControl1.WaitEvent(e) = 1 Then 'Ожидание прерывания Dim Data() As Integer ReDim Data(e) Res = ADCControl1.GetData(ADC_DATA_MODE_DATAFROMDMA, Data(0), e, 0) ' Получение данных Res = ADCControl1.Stop() 'Остановка АЦП Res = ADCControl1.Release() 'Выгрузка драйвера Перенес я ее, заменил синтаксис объектов, сверяясь с обозревателем, но вот в чем проблема: каждую запись он подчеркивает и пишет «Ссылка на член, не являющийся общим, должна быть ссылкой на объект» вот новый и старый варианты: ADCCONTROLLib._DParametersDMA.nTimerStart = 0 'ADCCONTROLLib.ParametersDMA1.nTimerStart = 0 'Номер канала таймера для запуска АЦП не могу понять чего он от меня хочет (я и не программист вовсе), объясните пожалуйста?! |
| Ответы | Всего ответов: 0 |
Страница: