Declare Operator Shr= ( ByRef lhs As Integer, ByRef rhs As Integer )
Declare Operator Shr= ( ByRef lhs As UInteger, ByRef rhs As UInteger )
Declare Operator Shr= ( ByRef lhs As LongInt, ByRef rhs As LongInt )
Declare Operator Shr= ( ByRef lhs As ULongInt, ByRef rhs As ULongInt )

lhs shr= rhs

lhs
rhs

Этот оператор сдвигает биты вправо в левой части выражения (lhs) на кол-во бит правого выражения (rhs), и присваивает результат в lhs. Это функционально эквивалентно:

lhs = lhs Shr rhs

Этот оператор может быть перегружен для пользовательских типов.

Dim i As Integer
i = &b00011000   '' = 24
i Shr= 3         '' = i\2^3
'' Result: 11          3            3
Print Bin(i), i, 24\2^3
Sleep

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

• Новое в FreeBASIC
  
  

• Оператор Shr (Сдвиг бит вправо)
  
• Оператор Shl= (Сдвиг бит влево и присваивание)
  
• Математические функции