Как распозновать числа 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д