Проблема с отсутствием Variant

Всем привет.
Переношу софт с VBA на VB-NET, особых проблем нет, практически всё идёт один в один (в части кода),
единственная проблема - это отсутствие типа Variant в VB-NET, может кто подскажет:

Есть часть кода на vba:
и на VBA всё летало...
как это реализовать на VB-NET ?
Проблема в том, то так
не прокатывает, ибо обращение идет к аппаратной части, которая не поддерживает команду в команде,
нужна последовательность команд
Тоже не работает, на втором операторе получатся ошибка типа
Неподдерживаемый тип параметра в COM-обертке
Тоже не работает, ошибка та же, упирается в неизвестный размер ByteArray
Какие есть идеи?
Заранее спасибо!

0

vmag, Что выполняет fun1()? Может ее исправить на возврат нужного вам типа данных (массив, строка или что там у Вас), и не использовать тип Variant вообще, тем самым не плодить костылей.

1

К сожалению функции и процедуры это софт стороннего разработчика к аппаратной части...
Сама функция по документации выглядит так:
В лог файле у неё выход примерно такой
EE 04 03 00 30 33 30 EF 04 0A 00 32 31 2E 31 31 2E 32 30 32 33 F0 04 04 00 31 39 34 34 F1 04 3E 00 22 55 55 49 44 3D 34 30 34 62 38 64 35 39 2D 63 64 35 61 2D 34 36 35 38 2D 39 32 34 37 2D 66 34 63 36 38 63 35 32 62 37 61 30 26 54 69 6D 65 3D 31 37 31 39 37 36 32 34 30 34 39 38 36 22
Процедура по документации
C Long проблем нет, не могу найти альтернативу Variant, который удивительным образом
справлялся с переносом Byte() в качестве value в процедуру sub1
и это работало (рабочие параметры для понимания проблемы пропущены)
Ну, грубо говоря, в переменную Variant попадало вот это
EE 04 03 00 30 33 30 EF 04 0A 00 32 31 2E 31 31 2E 32 30 32 33 F0 04 04 00 31 39 34 34 F1 04 3E 00 22 55 55 49 44 3D 34 30 34 62 38 64 35 39 2D 63 64 35 61 2D 34 36 35 38 2D 39 32 34 37 2D 66 34 63 36 38 63 35 32 62 37 61 30 26 54 69 6D 65 3D 31 37 31 39 37 36 32 34 30 34 39 38 36 22
А потом Value этой переменной успешно переваривала sub1

0

На всякий случай: Long в VBA это Integer в VB.Net.

0

Дошел до этого:

такое ощущение что нужно массив b1 преобразовать в строку и засунуть в sub как Value

0

Почему вы передаете один аргумент там где ожидается два? И почему массив передается через Long?

0

потому что к лонгам вопросов нет и я их не показываю при описании проблемы...
к каждому коду выше есть пояснения...

главная проблема - передача Byte() в процедуру как Value, с чем раньше Variant справлялся на ура и которого сейчас нет

Добавлено через 1 час 0 минут
Спасибо всем, проблема решена на аппаратном уровне, без танцев с бубном...
Использовал другую функцию, которая возвращает не массив Byte(), а тоже самое, но в виде строки Hex
Соответственно Sub обработала её как Value без проблем.

В общем сложно сказать: отсутствие Variant в VB-NET это хорошо или плохо, особенно в разрезе перехода на него
с VBA... Убил почти сутки, нужно бросать привычку работать без документации...

0

vmag, Тоесть в параметр Value нужно было передать строку HEX, а не массив byte()? Ну получить строку Hex в VB.NET тоже можно и передавать ее.
А почему такая разница, Вы спрашивали... Там Long, Variant, тут Integer и т.п., так это потому, что разные языки, хоть и синтаксис похож чем-то.

0

Детали трудно понять, чужое (железо + софт) это черный ящик, но Variant успешно брал в себя byte() и с таким
же успехом отдавал его с нужным Value дальше

0