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

lhs shl= rhs

lhs
rhs

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

lhs = lhs Shl rhs

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

Dim i As Integer
i = &b00000011   '' = 3
i Shl= 3         '' = i*2^3
'' Result: 11000          24            24
Print Bin(i), i, 3*2^3
Sleep

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

• Новое в FreeBASIC
  
  

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