#define LoByte( expr ) ( Cast(UInteger, expr) And &h000000FF )

result = LoByte( expr )

expr

Возвращает значение LSB из Cast(UInteger, expr).

Этот макрос преобразует числовое выражение expr в значение UInteger, и затем из этого значения UInteger возвращает младший байт (LSB).

Dim N As UInteger

'Обратите внимание, что здесь 16 бит
N = &b1010101110000001
Print "N is                                       "; N
Print "The binary representation of N is          "; Bin(N)
Print "The most significant byte (MSB) of N is    "; HiByte(N)
Print "The least significant byte (LSB) of N is   "; LoByte(N)
Print "The binary representation of the MSB is    "; Bin(HiByte(N))
Print "The binary representation of the LSB is    "; Bin(LoByte(N))
Sleep

Вывод:

N Is                                       43905
The Binary representation of N Is          1010101110000001
The most significant Byte (MSB) of N Is    171
The least significant Byte (LSB) of N Is   129
The Binary representation of the MSB Is    10101011
The Binary representation of the LSB Is    10000001

• Не доступно в диалекте -lang qb , но есть псевдоним __LOBYTE.
  
  

• Новое в FreeBASIC
  
  

• HiByte
  
• LoWord
  
• HiWord