#define HiWord( expr ) ( Cast(UInteger, expr) Shr 16 )

result = HiWord( expr )

expr

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

Этот макрос преобразует числовое выражение expr в значение UInteger, и затем возвращает старшее слово из UInteger.

Dim N As UInteger

'Обратите внимание, что это 32 бита
N = &b10000000000000011111111111111111

Print "N is                                       "; N
Print "The binary representation of N is          "; Bin(N)
Print "The most significant word (MSW) of N is    "; HiWord(N)
Print "The least significant word (LSW) of N is   "; LoWord(N)
Print "The binary representation of the MSW is    "; Bin(HiWord(N))
Print "The binary representation of the LSW is    "; Bin(LoWord(N))

Sleep

Вывод:

N Is                                       2147614719
The Binary representation of N Is          10000000000000011111111111111111
The most significant word (MSW) of N Is    32769
The least significant word (LSW) of N Is   65535
The Binary representation of the MSW Is    1000000000000001
The Binary representation of the LSW Is    1111111111111111

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

• Новое в FreeBASIC
  
  

• LoByte
  
• HiByte
  
• LoWord