Извлечение битов из поплавка в vba - PullRequest
Новая
       52

Извлечение битов из поплавка в vba

1 голос
/ 24 февраля 2012

Как извлечь биты из переменной Single в vba?

Например, я хочу извлечь биты с 23 по 30 и поместить их в младшие 8 бит целого числа.

1 Ответ

5 голосов
/ 24 февраля 2012

Для переноса битовых настроек переменной short в int самым быстрым решением является «быстрый и грязный» подход CopyMemory, как видно здесь . 

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Bytes As Long)

Public Sub DoubleToIEEE32(ByVal dValue As Double, ByRef nI1 As Integer, ByRef nI2 As Integer)
  Dim fValue As Single
  Dim nInt(1) As Integer

  fValue = CSng(dValue)
  CopyMemory nInt(0), fValue, Len(fValue) ‘ copy from Single to Int Array

  ‘ Internally, the Low Word is word 1 and High Word is word 2.
  ‘ Swap them to make it like the PLC guys do it.
  nI1 = nInt(1)
  nI2 = nInt(0)
End Sub

Чтобы прочитать и записать отдельные биты в целых числах, см. здесь .Соответствующий исходный код: 

' The ClearBit Sub clears the nth bit (Bit%) 
' of an integer (Byte%).
Sub ClearBit (Byte%, Bit%)
   ' Create a bitmask with the 2 to the nth power bit set:
   Mask% = 2 ^ Bit%
   ' Clear the nth Bit:
   Byte% = Byte% And Not Mask%
End Sub

' The ExamineBit function will return True or False depending on
' the value of the nth bit (Bit%) of an integer (Byte%).
Function ExamineBit% (Byte%, Bit%)
   ' Create a bitmask with the 2 to the nth power bit set:
   Mask% = 2 ^ Bit%
   ' Return the truth state of the 2 to the nth power bit:
   ExamineBit% = ((Byte% And Mask%) > 0)
End Function

' The SetBit Sub will set the nth bit (Bit%) of an integer (Byte%).
Sub SetBit (Byte%, Bit%)
   ' Create a bitmask with the 2 to the nth power bit set:
   Mask% = 2 ^ Bit%
   ' Set the nth Bit:
   Byte% = Byte% Or Mask%
End Sub

' The ToggleBit Sub will change the state of the 
' nth bit (Bit%) of an integer (Byte%).
Sub ToggleBit (Byte%, Bit%)
   ' Create a bitmask with the 2 to the nth power bit set:
   Mask% = 2 ^ Bit%
   ' Toggle the nth Bit:
   Byte% = Byte% Xor Mask%
End Sub
...