Как распозновать числа 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы