как собрать 4 байта в single

[Songrim]

Здраствуйте!
Кто может подсказать как собрать 4 байта которые передает прибор в одну переменную типа single в VBnet 2012? Так же нужно разделить переменную single на 4 байта.

[Songrim]

я попробовал вот таким образом.

Public Declare Function GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long) As Long
Private ModZ As Single
Private ModZ1(3) As Byte
GetMem4(ModZ1(0), ModZ)

Но выдает ошибку

Сообщение отредактировано: Songrim - 05.05.24, 17:55

[TheTrik]

Public Declare Function GetMem4 Lib "msvbvm60" (ByRef pSrc As Any, ByRef pDst As Any) As Long

[Songrim]

Цитата TheTrik @ 05.05.24, 19:04

Public Declare Function GetMem4 Lib "msvbvm60" (ByRef pSrc As Any, ByRef pDst As Any) As Long

Выдает что AsAny в операторах Declare не подерживается

[TheTrik]

Цитата Songrim @ 05.05.24, 19:12

Цитата TheTrik @ 05.05.24, 19:04

Public Declare Function GetMem4 Lib "msvbvm60" (ByRef pSrc As Any, ByRef pDst As Any) As Long

Выдает что AsAny в операторах Declare не подерживается

Какой язык программирования?

[Songrim]

Visual Studio 2012, Basic

[Mikle]

В vb.net можно объединить single с четырёхбайтовым массивом в Union.

[Songrim]

Цитата Mikle @ 06.05.24, 04:40

В vb.net можно объединить single с четырёхбайтовым массивом в Union.

А как это можно сделать? Хотелось бы увидеть примеры кода.

[Mikle]

У меня сейчас на компе не установлена VS, но в сети есть примеры, например:
https://www.vbforums.com/showthread.php?761...claration-valid

[Songrim]

Цитата Mikle @ 06.05.24, 09:00

У меня сейчас на компе не установлена VS, но в сети есть примеры, например:
https://www.vbforums.com/showthread.php?761...claration-valid

не разобрался... Еще нашел в интернете описание класса BitConverter, вроде это подойдет, но я не могу его найти VS2012 Basic. Кто может подсказать как это сделать.

[Gonarh]

В любом ЯП есть конструкт "сдвиг по фазебитовый", схематично чтото типа

Private uint_iModZ As UInteger
Private ModZ As Single
Private ModZ1(3) As Byte
uint_iModZ = ModZ1(0) << 24 + ModZ1(1) << 16 + ModZ1(2) << 8 + ModZ1(3)
ModZ = CType(uint_iModZ, Single)