#define LoWord( expr ) ( Cast(UInteger, expr) And &h0000FFFF )

result = LoWord( expr )

expr

Возвращает младшее слово LSW значение из Cast(UInteger, expr).

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

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

• Новое в FreeBASIC
  
  

• LoByte
  
• HiByte
  
• HiWord