как собрать 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)

[Mikle]

Попал за комп с VB.NET и вспомнил про топик. Если ещё актуально, новый проект, код формы:

Imports System.Runtime.InteropServices
 
Public Class Form1
    Private Structure Bytes4
        Dim b0 As Byte
        Dim b1 As Byte
        Dim b2 As Byte
        Dim b3 As Byte
    End Structure
 
    <StructLayout(LayoutKind.Explicit)> Private Structure SingleAnd4Bytes
        <FieldOffset(0)> Dim Bytes As Bytes4
        <FieldOffset(0)> Dim Float As Single
    End Structure
 
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Dim Test As SingleAnd4Bytes
 
        Test.Float = Val(InputBox("Input Float Value"))
        MsgBox("Bytes:" & Str(Test.Bytes.b0) & Str(Test.Bytes.b1) & Str(Test.Bytes.b2) & Str(Test.Bytes.b3))
    End Sub
End Class

Это разборка Single на байты. Точно так же работает и в обратную сторону - записываем в структуру нужные байты и читаем Single значение в поле Float.

Сообщение отредактировано: Mikle - 30.05.24, 08:23