#define HiByte( expr ) ( ( Cast(UInteger, expr) And &h0000FF00 ) Shr 8 )

result = HiByte( expr )

expr

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

Этот макрос преобразует числовое выражение expr в значение UInteger, затем это значение UInteger представляет значение MSB его LSW. Он ведет себя как HiByte(LoWord(expr)).

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 , но есть псевдоним __HIBYTE.
  
  

• Новое в FreeBASIC
  
  

• LoByte
  
• LoWord
  
• HiWord