Преобразовать 4 байта в Single

[timsoft]

Всем привет!
Подскажите, как правильно преобразовать 4 байта (массив) в число типа Single?
Через запись в файл и чтение как то смешно, хотя получается =)

[Хакер]

• Через GetMem4
• Через LSet
• Через альтернативно-объявленную VarPtr

[timsoft]

Спасибо. Пока не понятно =)

[iGrok]

Как вариант..

Код: Выделить всё

Type UDT_FourBytes
    b(3) As Byte
End Type

Type UDT_Single
  s As Single
End Type

Dim ub as UDT_FourBytes, us as UDT_Single
ub.b(0) = 1
ub.b(1) = 2
ub.b(2) = 3
ub.b(3) = 4

LSet us = ub

debug.print us.s

[jangle]

Спасибо. Пока не понятно =)

Примерно так

Код: Выделить всё

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
            hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)


Private Sub Form_Load()
   Dim i As Single
   Dim S As String
   S = "test"
   
  CopyMemory i, ByVal S, 4
  MsgBox i
     
     
   
End Sub

[tyomitch]

• Через альтернативно-объявленную VarPtr

Успешной тебе передачи массива байтов ByVal.

[timsoft]

Как вариант..

Код: Выделить всё

Type UDT_FourBytes
    b(3) As Byte
End Type

Type UDT_Single
  s As Single
End Type

Dim ub as UDT_FourBytes, us as UDT_Single
ub.b(0) = 1
ub.b(1) = 2
ub.b(2) = 3
ub.b(3) = 4

LSet us = ub

debug.print us.s

Спасибо огромное, этот вариант -- то что надо!

[timsoft]

Спасибо. Пока не понятно =)

Примерно так

тут если в массиве есть 0, то String обрубается...

[jangle]

тут если в массиве есть 0, то String обрубается...

С какой стати? Ты думаешь в VB строки хранятся в ASCIIZ виде?

[Penumbra]

товарищи! а как преобразовать 4 байта в знаковое число с плавающей точкой
например
D6 DB C9 84 = +50,46
54 35 CB 84 = +50,8

[iGrok]

товарищи! а как преобразовать 4 байта в знаковое число с плавающей точкой
например
D6 DB C9 84 = +50,46
54 35 CB 84 = +50,8

Это ты как такие цифры получил? Что это за формат такой?

[Penumbra]

я их неполучил, я их в задании с примера списал
D6 DB C9 84 - байтовый массив читать с парава на лево
написано что это IEEE-стандарт представления чисел с плавающей точкой

[iGrok]

я их неполучил, я их в задании с примера списал
D6 DB C9 84 - байтовый массив читать с парава на лево
написано что это IEEE-стандарт представления чисел с плавающей точкой

Ну так у тебя в задании, наверное, и описание формата есть? Вот им и воспользуйся. Стандартной ф-ции нет, насколько я знаю.

UPD:
Если делать сообразно описанию 32битного IEEE-float в википедии (да и сообразно тому, как давали этот же формат в универе), то получается так:

Код: Выделить всё

Function long2IEEEfloat(l As Long) As Single
Dim s As Long, e As Long, m As Long
    s = Sgn(l): If s = 0 Then s = 1
    m = l And &H7FFFFF
    e = (((l And &H7FFFFFFF) \ &H7FFFFF) And &HFF) - 127
    long2IEEEfloat = s * (1 + m / &H7FFFFF) * 2 ^ e
End Function

'?long2IEEEfloat(&hC2ED4000)
'-118,625


Но это всё равно никак не стыкуется с теми числами, что приведены у тебя.