Как распозновать числа IEEE-754? - VB

Узнай цену своей работы

Формулировка задачи:

Чем больше я работаю с ВБ - тем сильнее в нём разочаровываюсь: ну скажите, если есть функции OCT и HEX - то почему нету BIN? Вобщем есть у меня данные в виде строки из 1 и 0, которую я получил с некого прибора в формате IEEE754. Как заставить ВБ "узнать" это число? Или может нужно использовать функцию? Ни у кого нет примера?

Решение задачи: «Как распозновать числа IEEE-754?»

textual
Листинг программы
Option Explicit
 
Private Type FourBytes 'byt
    One As Byte
    Two As Byte
    Three As Byte
    Four As Byte
End Type
 
Private Type FourLong 'lon
    Value As Long
End Type
 
Private Sub Command1_Click()
    Dim bytCommIn As FourBytes
    Dim lonCommOut As FourLong
    
    Dim sngValue As Single
    
    With bytCommIn
        .One = 4     '00000100 = 4
        .Two = 2     '00000010 = 512
        .Three = 1   '00000001 = 65536
        .Four = 0    '00000000 = 0
    End With         'SUM = 66052
    
    LSet lonCommOut = bytCommIn
    sngValue = CSng(lonCommOut.Value)
    
    Debug.Print sngValue, lonCommOut.Value '66052
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы